Vai al contenuto principale

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:

=COUNTA(A2:A1048576)=0

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 > Modulie incolla la seguente macro nel file Moduli 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

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

Suggerimenti::Per applicare questo Elimina righe e colonne nascoste (visibili) in primo luogo, dovresti scaricare il file Kutools for Excele quindi applica la funzione in modo rapido e semplice.

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 > Modulie incolla la seguente macro nel file Moduli 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:

  • Elimina tutte le immagini o altri oggetti in Excel
  • Se si desidera eliminare tutte le immagini da Microsoft Excel, potrebbe essere necessario molto tempo selezionare ciascuna immagine ed eliminarle una alla volta. I seguenti trucchi possono facilitare il tuo lavoro per eliminare tutte le immagini.
  • Elimina le righe in base al colore di sfondo in Excel
  • Come potresti eliminare intere righe in base al colore di sfondo? In questo esempio, devo eliminare tutte le righe le cui celle sono state riempite con il colore di sfondo blu come mostrato nella seguente schermata. Con questo articolo, otterrai alcuni codici per eseguire questa attività in Excel.

I migliori strumenti per la produttività in ufficio

Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

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...

scheda kte 201905


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!

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It deleted all my names in my first name column! Auuggh!
This comment was minimized by the moderator on the site
Thanks its very helpful page with basic excel option :)
This comment was minimized by the moderator on the site
Hi, can anyone guide how i can delete blank cells in a row or column...note whole blank column or rows... only blank cell i need to delete in a column
This comment was minimized by the moderator on the site
Hello,


try to implement below code
This comment was minimized by the moderator on the site
Hi, the thing which you are mentioned is so helpfull. I want a small help from your side. Daily am download the some files and using pivot prepared the reports. It is daily task for me and routine process. How can i do it with out using pivot. Ex: If i prepared the reports on yesterday in "A" Excel file. Next day in "A" Excel file just i replace the new "B" Excel file data. By this automatically report would be create? Is it possible?
This comment was minimized by the moderator on the site
Very helpful page. Thank you. :-) My challenge is that I have columns with headers, but no data in that column. Only the header is present. How would one go about deleting columns where there is no data, but the header is there? :o
This comment was minimized by the moderator on the site
the above details are very helpful for my personal use. Thanks for your guidance. M.KARTHIKEYAN :-)
This comment was minimized by the moderator on the site
I found it much simpler to go to the line after my last line of data, enter "Shift-Ctrl-End" to highlight all blank lines that followed(much faster), right click and enter "delete all rows/columns". The system didn't waste so much time searching this way and so it was clean in the blink of an eye and files that were 20 MB were dropped to a size of 20 kb.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations