Come eliminare colonne vuote con intestazione in Excel?
Se hai un foglio di lavoro di grandi dimensioni che contiene più colonne, ma alcune di queste colonne contengono solo un'intestazione, e ora desideri eliminare queste colonne vuote che contengono solo un'intestazione per ottenere quanto mostrato nello screenshot seguente. È possibile risolvere questo problema in Excel rapidamente e facilmente?
Elimina colonne vuote con un'intestazione utilizzando il codice VBA
Elimina colonne vuote con un'intestazione utilizzando il codice VBA
In Excel, non esiste un metodo diretto per gestire questa operazione a parte eliminarle manualmente una per una, ma qui posso presentarti un codice da utilizzare, procedi come segue:
1. Tieni premuti i tasti ALT + F11, quindi si aprirà la finestra Microsoft Visual Basic for Applications.
2. Clicca su Inserisci > Modulo, e incolla il seguente codice 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. Quindi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di avviso per ricordarti che le colonne vuote con intestazione verranno eliminate.
4. Clicca su OK, tutte le colonne vuote con solo intestazioni nel foglio di lavoro corrente verranno eliminate immediatamente.
Nota: Se ci sono colonne vuote, verranno eliminate anche quelle.
Elimina più colonne vuote in un intervallo / foglio di lavoro / cartella di lavoro con Kutools per Excel
A volte, potresti aver bisogno di eliminare solo le colonne vuote; l'utilità Elimina righe e colonne visibili (nascoste) di Kutools per Excel può aiutarti a completare questa operazione con facilità.
Dopo aver installato Kutools per Excel, procedi come segue:
1. Seleziona l'intervallo di colonne che include le colonne vuote da eliminare.
2. Quindi clicca su Kutools > Elimina > Elimina righe e colonne visibili (nascoste), vedi screenshot:
3. Nella finestra di dialogo Elimina righe e colonne visibili (nascoste), puoi selezionare l'ambito di eliminazione dal menu a discesa Cerca in base alle tue esigenze, seleziona Colonne dalla sezione Tipo di eliminazione, e poi scegli Colonne vuote dalla sezione Tipo dettagliato, vedi screenshot:
4. Quindi clicca sul pulsante Ok, e solo le colonne vuote verranno eliminate immediatamente. Vedi screenshot:
Suggerimenti: Con questa potente funzionalità, puoi anche eliminare righe vuote, colonne o righe visibili, colonne o righe nascoste secondo necessità.
Kutools per Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi funzionalità AI gratuite per sempre! Ottienilo ora
I 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 oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in