Come si eliminano le colonne vuote con intestazione in Excel?
Se si dispone di un foglio di lavoro ampio contenente più colonne, ma alcune di queste contengono solo un'intestazione e ora si desidera eliminare tali colonne vuote che includono soltanto l'intestazione per ottenere un risultato come mostrato nello screenshot seguente, è possibile risolvere rapidamente e facilmente questa operazione in Excel?
Eliminare colonne vuote con un'intestazione utilizzando codice VBA
Eliminare colonne vuote con un'intestazione utilizzando codice VBA
In Excel non esiste un metodo diretto per eseguire questa operazione, a meno di eliminarle manualmente una per una; tuttavia, posso proporvi una soluzione su misura. Procedete come segue:
1. Tieni premuti i tasti ALT + F11, quindi si aprirà la finestra di Microsoft Visual Basic, Applications.
2. Fare clic su Inserisci > Modulo e incollare il codice seguente nella finestra del Modulo.
Codice VBA: Elimina colonne vuote con un'intestazione:
Sub Macro1()
'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 columns with only headers are 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; apparirà una finestra di avviso che ricorderà che le colonne vuote con intestazione verranno eliminate.
4. Fai clic su OK e tutte le colonne vuote contenenti soltanto intestazioni nel foglio di lavoro corrente verranno eliminate contemporaneamente.
Nota: Se sono presenti colonne vuote, verranno eliminate anch’esse.
Eliminare più colonne vuote in un intervallo / foglio di lavoro / cartella di lavoro con Kutools per Excel
A volte basta semplicemente eliminare le colonne vuote; in tal caso, lo strumento Kutools per Excel’s Elimina righe/colonne nascoste (visibili) può aiutarti a completare facilmente questa operazione.
Dopo aver installato Kutools per Excel, procedere come segue:
1. Seleziona l'intervallo di colonne che include le colonne vuote da eliminare.
2. Quindi fare clic su Kutools > Elimina > Elimina righe/colonne nascoste (visibili), vedere lo screenshot:
3. Nella finestra di dialogo Elimina righe/colonne nascoste (visibili), è possibile selezionare l’ambito di eliminazione dal menu a discesa «Cerca in» in base alle proprie esigenze, scegliere Colonne nella sezione Tipo di eliminazione e quindi selezionare Colonne vuote nella sezione Tipo dettagliato. Vedere lo screenshot:
4. Fare quindi clic sul pulsante Ok: verranno eliminate contemporaneamente soltanto le colonne vuote. Vedere lo screenshot:
Suggerimenti: Grazie a questa funzionalità avanzata, puoi eliminare righe o colonne vuote, visibili o nascoste, in base alle tue esigenze.
Kutools per Excel– Potenzia Excel con oltre 300 strumenti essenziali, rendendo il tuo lavoro più veloce e semplice, e sfrutta le funzionalità basate sull’IA per un’elaborazione dati più intelligente e una maggiore produttività.Scaricalo ora
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