Come eliminare le colonne vuote con l'intestazione in Excel?
Se hai un foglio di lavoro di grandi dimensioni che contiene più colonne, ma alcune delle colonne contengono solo un'intestazione e ora, vuoi eliminare queste colonne vuote che con solo un'intestazione per ottenere la seguente schermata mostrata. Questo può essere risolto in Excel in modo rapido e semplice?
Elimina le colonne vuote con un'intestazione utilizzando il codice VBA
Elimina più colonne vuote in un intervallo/foglio di lavoro/cartella di lavoro con Kutools per Excel
Elimina le colonne vuote con un'intestazione utilizzando il codice VBA
In Excel, non esiste un metodo diretto per gestire questo lavoro eccetto eliminarli uno per uno manualmente, ma, qui, posso introdurre un codice per te, per favore fai come segue:
1. Tenere premuto il tasto ALT + F11 chiavi, quindi apre il file Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: elimina le 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 and column(s) with only a header row have now 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. E poi clicca OK pulsante, tutte le colonne vuote con la sola intestazione nel foglio di lavoro corrente vengono eliminate contemporaneamente.
Note:: Se sono presenti colonne vuote, verranno eliminate anche loro.
Elimina più colonne vuote in un intervallo/foglio di lavoro/cartella di lavoro con Kutools per Excel
A volte, devi solo eliminare le colonne vuote, il file Kutools for Excel'S Elimina righe e colonne nascoste (visibili) può aiutarti a completare questa operazione con facilità.
Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
Dopo l'installazione Kutools for Excel, si prega di fare come segue:
1. Seleziona l'intervallo di colonne che include le colonne vuote da eliminare.
2. Quindi fare clic Kutools > Elimina > Elimina righe e colonne nascoste (visibili), vedi screenshot:
3. Nel Elimina righe e colonne nascoste (visibili) finestra di dialogo, è possibile selezionare l'ambito di eliminazione dal menu a discesa Cerca in come necessario, selezionare colonne dal Elimina tipo sezione, quindi scegli Colonne vuote dal Tipo dettagliato sezione, vedi screenshot:
4. Quindi fare clic Ok e solo le colonne vuote vengono eliminate contemporaneamente. Vedi screenshot:
Suggerimenti:: Con questa potente funzione, puoi anche eliminare righe vuote, colonne o righe visibili, colonne o righe nascoste di cui hai bisogno.
Fai clic su Scarica gratuitamente Kutools per Excel adesso!
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo 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!