Come unire automaticamente le celle vuote con quelle sopra o a sinistra in Excel?
In questo articolo ti mostrerò come unire automaticamente le celle vuote con quelle sopra o a sinistra, proprio come illustrato nello screenshot seguente. Anche se non esiste uno strumento integrato per eseguire questa operazione, puoi comunque ottenerla utilizzando delle macro.
| Unisci celle vuote sopra | ||
 |  |  |
| Unisci celle vuote a sinistra | ||
 | |  |
Unisci le celle vuote sopra in base a una colonna
Unisci le 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
Immagina di avere un intervallo di dati su tre colonne e di voler unire i dati verso l’alto in base alla colonna C.
1. Premere Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications, quindi fare clic su Inserisci > Modulo. Vedere lo screenshot:
2. Incollate quindi il codice seguente nello script vuoto. Vedere lo screenshot:
VBA: Unisci celle vuote 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. Premere F5 per eseguire il codice; verrà visualizzata una finestra di dialogo che chiede di selezionare un intervallo su cui operare. Vedere lo screenshot:
4. Fare clic su OK, dopodiché le celle vuote saranno unite verso l’alto. Vedere lo screenshot:
Sblocca la magia di Excel con KUTOOLS AI
- Esecuzione intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici, il tutto con comandi semplici e intuitivi.
- Formule personalizzate: crea formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA in modo semplice e immediato.
- Interpretazione delle formule: Comprendi con facilità anche le formule più complesse.
- Traduzione del testo: Superate le barriere linguistiche direttamente nei vostri fogli di calcolo.
Unisci le celle vuote sopra (funziona solo per una singola colonna)
Di seguito trovi una macro che unisce le celle vuote con quella immediatamente sopra nella colonna specificata.
1. Premere Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications, quindi fare clic su Inserisci > Modulo. Vedere lo screenshot:
2. Incolla il codice seguente nello script. Guarda lo screenshot:
VBA: Unisci le 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. Premere F5 per eseguire il codice; verrà visualizzata una finestra di dialogo per selezionare un intervallo di colonna. Vedere lo screenshot:
4. Fare clic su OK. Le celle vuote nell’intervallo selezionato verranno unite verso l’alto.
 | |  |
Unisci le celle vuote a sinistra
Se desideri unire le celle vuote a sinistra, il codice seguente ti sarà d’aiuto.
1. Premere Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications, quindi fare clic su Inserisci > Modulo. Vedere lo screenshot:
2. Incollare quindi il codice seguente nello script vuoto. Vedere lo screenshot:
VBA: Unisci celle vuote 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. Premere F5 per eseguire il codice: verrà visualizzata una finestra di dialogo per selezionare un intervallo. Vedere lo screenshot:
4. Fare clic su OK. Le celle vuote saranno unite a sinistra.
| Unisci celle vuote a sinistra | ||
| | |
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi