Come unire automaticamente le celle vuote sopra / sinistra in Excel?
In questo articolo, parlerò di unire celle vuote sopra o sinistra automaticamente come mostrato nell'immagine sottostante. In realtà, non esiste un'utilità incorporata in grado di gestire questa attività, ma i codici macro sì.
| Unisci gli spazi sopra | ||
 |
 |
 |
| Unisci gli spazi vuoti rimasti | ||
 |
|
 |
Unisci le celle vuote sopra in base a una colonna
Unisci celle vuote sopra (funziona solo per una singola colonna)
Unisci le celle vuote a sinistra
Unisci le celle vuote sopra in base a una colonna
Supponendo che ci sia un intervallo di dati in tre colonne e ora si desidera unire i dati sopra in base alla colonna C.
1. Stampa Alt+F11 keys per abilitare il Microsoft Visual Basic, Applications Edition finestra e fare clic su inserire > Modulo. Vedi screenshot:
2. Quindi incolla il codice sottostante nello script vuoto. Vedi screenshot:
VBA: unisci lo spazio vuoto sopra in base alla colonna successiva
Sub MergeCells()
'UpdatebyExtendoffice2017025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then
Range(xCell, xCell.Offset(-1, 0)).Merge
End If
Next
End Sub
3. Stampa F5 per eseguire il codice, quindi viene visualizzata una finestra di dialogo per ricordarti di selezionare un intervallo su cui lavorare. Vedi screenshot:
4. Clic OK, quindi le celle vuote sono state unite sopra. Vedi screenshot:
Unisci celle vuote sopra (funziona solo per una singola colonna)
Ecco un codice macro che può unire le celle vuote sopra nella colonna specificata.
1. Stampa Alt + F11 tasti per abilitare il Microsoft Visual Basic, Applications Edition finestra e fare clic su inserire > Modulo. Vedi screenshot:
2. Incolla sotto il codice nello script. Vedi screenshot:
VBA: unisci celle vuote sopra
Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
Dim I As Long
Dim xRow As Long
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only work for single column", , "KuTools For Excel"
Exit Sub
End If
xRow = xRg.Rows.Count
Set xRg = xRg(xRow)
For I = xRow To 1 Step -1
Set xCell = xRg.Offset(I - xRow, 0)
Debug.Print xCell.Address
If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
Next
End Sub
3. Stampa F5 chiave per eseguire il codice e viene visualizzata una finestra di dialogo per la selezione di un intervallo di colonne. Vedi screenshot:
4. Fare clic su OK. E le celle vuote nella selezione sono state unite sopra.
 |
|
 |
Unisci le celle vuote a sinistra
Se vuoi unire le celle vuote rimaste, il seguente codice può farti un favore.
1. Stampa Alt + F11 tasti per abilitare il Microsoft Visual Basic per la finestra Applicazioni e fare clic su inserire > Modulo. Vedi screenshot:
2. Quindi incolla il codice sottostante nello script vuoto. Vedi screenshot:
VBA: unisci gli spazi vuoti a sinistra
Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
Next
End Sub
3. Stampa F5 per eseguire il codice e viene visualizzata una finestra di dialogo per la selezione di un intervallo. Vedi screenshot:
4. Clic OK. Le celle vuote sono state unite a sinistra.
| Unisci gli spazi vuoti rimasti | ||
|
|
|
Unisci le stesse celle o separa le celle
|
I migliori strumenti per la produttività in ufficio
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
- Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
- Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
- Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
- Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
- Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
- Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
- Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
- Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
- Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
