Come eliminare rapidamente più colonne vuote in Excel?

A volte, quando importi dati in Microsoft Excel da una fonte, come pagina web, CSV, testo, ecc., Potrebbero esserci molte colonne vuote con esso. Deve richiedere molto tempo eliminare ciascuna colonna vuota una alla volta. Pertanto, alcuni di noi cercano modi semplici per risolvere questo problema. Questo articolo raccoglie alcuni suggerimenti complicati per aiutarti a eliminare rapidamente più colonne vuote.

Elimina più colonne vuote nel foglio di lavoro con la formula

Elimina più colonne vuote nel foglio di lavoro con codice VBA

Elimina più colonne vuote nella selezione / foglio attivo / intera cartella di lavoro con una funzione utile

Elimina più colonne vuote con un'intestazione utilizzando il codice VBA

Elimina più colonne vuote nel foglio di lavoro con la formula

In Excel, puoi applicare una formula per identificare se le colonne sono vuote o meno, quindi utilizzare il Riordina funzione per ordinare tutte le colonne vuote insieme e quindi eliminarle contemporaneamente. Per favore, fai come segue:

1. Aggiungi una nuova riga nella parte superiore dell'intervallo di dati, vedi screenshot:

2. Quindi inserisci la formula seguente nella cella A1, quindi trascina il quadratino di riempimento sul lato destro per applicare questa formula ad altre celle, verrà visualizzato un VERO se la colonna è vuota, altrimenti viene visualizzato un FALSO, vedi screenshot:

3. Quindi selezionare l'intervallo di dati inclusa la riga helper, quindi fare clic su Dati > Riordina, vedi screenshot:

4. Nel saltò fuori Riordina finestra di dialogo, fare clic Opzioni pulsante, di seguito Opzioni di ordinamento finestra di dialogo, selezionare Ordina da sinistra a destra opzione, vedi screenshot:

5. Clic OK per tornare al file Riordina finestra di dialogo, quindi selezionare Riga 1 dal Ordina per menu a discesa e selezionare Valori di cella da Ordina sezione, scegliere Dal più grande al più piccolo dal Ordina sezione, vedi screenshot:

6. Quindi, tutte le colonne vuote sono state ordinate a sinistra dei tuoi dati e ora, devi solo selezionare tutte le colonne e quindi fare clic con il tasto destro, scegliere Elimina per eliminare queste colonne vuote contemporaneamente, vedi screenshot:

Elimina più colonne vuote nel foglio di lavoro con codice VBA

Se desideri utilizzare la macro VBA, le cose vanno molto più facilmente. Il seguente codice VBA può aiutarti, per favore fai come segue:

1. Tieni premuto il altro + F11 chiavi in ​​Excel e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla la seguente macro nel file Modulo Finestra.

Codice VBA: elimina più colonne vuote nella selezione:

Sub DeleteEmptyColumns () 'Updateby Extendoffice
Dim rng As Range Dim InputRng As Range xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox ("Range:", xTitleId, InputRng.Address, Type: = 8) Application.ScreenUpdating = False For i = InputRng.Columns.Count To 1 Step -1 Set rng = InputRng.Cells (1, i) .EntireColumn If Application.WorksheetFunction.CountA (rng) = 0 Then rng.Delete End If Next Application.ScreenUpdating = True End Sub

3. premi il F5 tasto per eseguire questa macro, selezionare l'intervallo di lavoro necessario nella finestra di dialogo a comparsa. Vedi screenshot:

4. Clicchi OK, quindi tutte le colonne vuote nella selezione vengono rimosse. Vedi screenshot:

Elimina più colonne vuote nella selezione / foglio attivo / intera cartella di lavoro con una funzione utile

L' Elimina righe e colonne nascoste (visibili) utilità di Kutools for Excel può aiutarti a rimuovere rapidamente più righe o colonne vuote contemporaneamente.

Dopo l'installazione Kutools for Excel, per favore fai come questo:

1. Clic Kutools > Elimina > Elimina righe e colonne nascoste (visibili), vedi screenshot:

2. Nel Elimina righe e colonne nascoste (visibili) finestra di dialogo, specificare l'ambito da cui si desidera applicare l'operazione Guarda dentro menu `A tendina. (Se scegli Nell'intervallo selezionato, è necessario selezionare prima un intervallo che si desidera utilizzare). Quindi selezionare colonne per Elimina tipo. E selezionare Colonne vuote da Tipo dettagliato. Vedi screenshot:

3. Quindi fare clic OK. E le colonne vuote sono state eliminate dall'intervallo selezionato. Vedi screenshot:

Elimina più colonne vuote con un'intestazione utilizzando il codice VBA

A volte, potresti voler eliminare tutte le colonne vuote che contengono solo un'intestazione nel foglio di lavoro, il seguente codice VBA può farti un favore, esegui i seguenti passaggi:

1. Tieni premuto il altro + F11 chiavi in ​​Excel e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla la seguente macro nel file Modulo Finestra.

Codice VBA: elimina tutte le colonne vuote con un'intestazione

Sub deleteblankcolwithheader()
'updateby Extendoffice
    Dim xEndCol As Long
    Dim I As Long
    Dim xDel As Boolean
    On Error Resume Next
    xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xEndCol = 0 Then
        MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For I = xEndCol To 1 Step -1
        If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
            Columns(I).Delete
            xDel = True
        End If
    Next
    If xDel Then
        MsgBox "All blank column(s) with only a header row have been deleted.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3. Quindi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti che le colonne vuote con l'intestazione verranno eliminate, vedi screenshot:

4. Quindi, fare clic sul pulsante OK, tutte le colonne vuote con solo l'intestazione nel foglio di lavoro corrente vengono eliminate contemporaneamente. Vedi screenshot:

Articoli più relativi:

---

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.

Leggi di più... Download gratuito... Acquista... 

---

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!

Leggi di più... Download gratuito... Acquista...