Note: The other languages of the website are Google-translated. Back to English

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 documenti vuoto sopra a sinistra 1 doc freccia destra unisci documenti vuoto sopra a sinistra 2

 Unisci gli spazi vuoti rimasti    
unisci documenti vuoto sopra a sinistra 3 doc freccia destra unisci documenti vuoto sopra a sinistra 4

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.
unisci documenti vuoto sopra a sinistra 1

1. Stampa Alt+F11 keys per abilitare il Microsoft Visual Basic, Applications Edition finestra e fare clic su inserire > Modulo. Vedi screenshot:
unisci documenti vuoto sopra a sinistra 5

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

unisci documenti vuoto sopra a sinistra 6

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:
unisci documenti vuoto sopra a sinistra 7

4. Clic OK, quindi le celle vuote sono state unite sopra. Vedi screenshot:
unisci documenti vuoto sopra a sinistra 2


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:
unisci documenti vuoto sopra a sinistra 9

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

unisci documenti vuoto sopra a sinistra 10

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:
unisci documenti vuoto sopra a sinistra 11

4. Fare clic su OK. E le celle vuote nella selezione sono state unite sopra.

unisci documenti vuoto sopra a sinistra 12 doc freccia destra unisci documenti vuoto sopra a sinistra 13

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:
unisci documenti vuoto sopra a sinistra 14

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

unisci documenti vuoto sopra a sinistra 15

3. Stampa F5 per eseguire il codice e viene visualizzata una finestra di dialogo per la selezione di un intervallo. Vedi screenshot:
unisci documenti vuoto sopra a sinistra 16

4. Clic OK. Le celle vuote sono state unite a sinistra.

 Unisci gli spazi vuoti rimasti    
unisci documenti vuoto sopra a sinistra 3 doc freccia destra unisci documenti vuoto sopra a sinistra 4

Unisci le stesse celle o separa le celle

doc unisci dividi

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 kte 201905

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!
fondo officetab
Commenti (3)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
non funziona :) Excel 365
Questo commento è stato fatto dal moderatore sul sito
Grazie per la condivisione, è molto utile per me.
Questo commento è stato fatto dal moderatore sul sito
Grazie mille!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL