Come eliminare rapidamente diverse colonne vuote in Excel?
A volte, quando si importano dati in Microsoft Excel da pagine web, file CSV, testi e altri formati, possono apparire numerose colonne vuote. Eliminarle una per una sarebbe estremamente dispendioso in termini di tempo. Per questo motivo, molti utenti cercano soluzioni semplici ed efficaci. Questo articolo raccoglie alcuni suggerimenti utili per rimuovere rapidamente più colonne vuote in un colpo solo.
Elimina più colonne vuote nel foglio di lavoro con una formula
Elimina più colonne vuote nel foglio di lavoro con codice VBA
Elimina più colonne vuote con intestazione utilizzando codice VBA
Elimina più colonne vuote nel foglio di lavoro con una formula
In Excel puoi applicare una formula per verificare se le colonne sono vuote o meno, quindi utilizzare la funzione Ordina per raggruppare tutte le colonne vuote ed eliminarle in un solo passaggio. Procedi come segue:
1. Aggiungi una nuova riga in cima al tuo intervallo dati, come mostrato nello screenshot:
2. Inserisci quindi la seguente formula nella cella A1 e trascina il quadratino di riempimento verso destra per applicarla alle altre celle: verrà visualizzato VERO se la colonna è vuota, altrimenti FALSO. Vedi screenshot:
3. Seleziona quindi l’intervallo dati, inclusa la riga di appoggio, e fai clic su «Dati» > «Ordina». Vedi screenshot:
4. Nella finestra di dialogo «Ordina» visualizzata, fai clic sul pulsante «Opzioni». Nella finestra «Opzioni ordinamento», seleziona l’opzione «Ordina da sinistra a destra». Vedi screenshot:
 |  |  |
5. Fare clic su OK per tornare alla finestra di dialogo «Ordina», quindi selezionare «Riga 1» dal menu a discesa «Ordina per», scegliere «Valori celle» in «Ordina in base a» e impostare l’opzione «Dal più grande al più piccolo» in «Ordine». Vedi screenshot:
6. A questo punto, tutte le colonne vuote saranno state spostate a sinistra dei dati. Basterà selezionarle tutte, fare clic con il tasto destro e scegliere «Elimina» per rimuoverle contemporaneamente. Vedi screenshot:
Elimina più colonne vuote nel foglio di lavoro con codice VBA
Se si preferisce utilizzare una macro VBA, l’operazione diventa molto più semplice. Il codice VBA seguente può essere d’aiuto. Procedere come indicato di seguito:
1. Tieni premuti i tasti «Alt + F11» in Excel per aprire la finestra «Microsoft Visual Basic, Applications Edition».
2. Fare clic su «Inserisci» > «Modulo» e incollare la seguente macro nella finestra del modulo.
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. Premere il tasto F5 per eseguire la macro, quindi selezionare l’intervallo desiderato nella finestra di dialogo che appare. Vedi screenshot:
4. Fare clic su OK: verranno rimosse tutte le colonne vuote nella selezione. Vedi screenshot:
Elimina più colonne vuote in Intervallo selezionato / Foglio di lavoro corrente / nell’intera cartella di lavoro con Kutools per Excel
L’utilità **Elimina righe/colonne nascoste (visibili)** di Kutools per Excel ti permette di rimuovere rapidamente più righe o colonne vuote in un solo passaggio.
Dopo aver installatoKutools for Excel, procedere come segue:
1. Fare clic su «Kutools» > «Elimina» > «Elimina righe/colonne nascoste (visibili)». Vedi screenshot:
2. Nella finestra di dialogo «Elimina righe/colonne nascoste (visibili)», specifica l’ambito dell’operazione tramite l’elenco a discesa «Cerca in». (Se selezioni “Intervallo selezionato”, assicurati prima di aver selezionato l’intervallo desiderato.) Dopodiché, scegli «Colonne» in «Tipo di eliminazione» e seleziona «Colonne vuote» in «Tipo dettagliato». Vedi screenshot:
3. Fare clic su OK. Le colonne vuote saranno state eliminate dall’intervallo selezionato. Vedi screenshot:
Elimina più colonne vuote con intestazione utilizzando codice VBA
A volte potresti voler eliminare tutte le colonne vuote che contengono esclusivamente un’intestazione nel foglio di lavoro. Il seguente codice VBA ti sarà utile. Segui questi semplici passaggi:
1. Tenere premuti i tasti «Alt + F11» in Excel per aprire la finestra di Microsoft Visual Basic, Applications Edition.
2. Fare clic su «Inserisci» > «Modulo» e incollare la seguente macro nella finestra del modulo.
Codice VBA: elimina tutte le colonne vuote con 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. Premere quindi il tasto F5 per eseguire il codice: verrà visualizzata una finestra di avviso che ricorda come le colonne vuote con intestazione saranno eliminate. Vedi screenshot:
4. Fare clic su OK: tutte le colonne vuote contenenti solo l’intestazione nel foglio di lavoro corrente verranno eliminate contemporaneamente. Vedi screenshot:
 | |  |
Altri articoli correlati:
- Elimina tutte le righe o colonne nascoste in Excel
- Se si ha una cartella di lavoro di grandi dimensioni con numerose righe e colonne nascoste, e i dati nascosti non sono più necessari, potrebbe essere utile eliminarli tutti in modo rapido. Come si può fare?
- Elimina tutte le immagini o altri oggetti in Excel
- Se desideri eliminare tutte le immagini da Microsoft Excel, selezionarle e cancellarle una per una potrebbe richiedere molto tempo. I trucchi seguenti ti permetteranno di semplificare questa operazione.
- Elimina righe in base a Colore di Sfondo in Excel
- Come si possono eliminare le righe intere in base al colore di sfondo? In questo esempio, occorre rimuovere tutte le righe le cui celle presentano il colore di sfondo blu, come illustrato nello screenshot seguente. Grazie a questo articolo, otterrai alcuni codici utili per eseguire questa operazione in Excel.
- Elimina tutte le righe contenenti un testo specifico all'interno di una colonna nei fogli Google
- Supponiamo di avere un intervallo di dati in un foglio google e di voler eliminare le righe in base ai valori delle celle di una colonna. Ad esempio, si desidera eliminare tutte le righe che contengono il testo «Complete» nella colonna C. In questo articolo verrà spiegato come risolvere il problema nei fogli Google.
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