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 > Moduli. 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 > Moduli. 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 > Moduli. 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
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo 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!
