In questo articolo, impareremo come eliminare le colonne vuote tramite VBA in Microsoft Excel. Cancelleremo le colonne che sono completamente vuote, significa che se non ci sono dati all'interno dell'intera colonna quei dati.
Facciamo un esempio e capiamo:
Abbiamo dati nell'intervallo A1: I21, in cui la colonna A contiene il nome, la colonna B è vuota, la colonna C contiene l'indirizzo, la colonna D Città, la colonna E è vuota, la colonna F contiene la regione, la colonna G è vuota, la colonna H contiene il paese nome e la colonna I contiene il numero di telefono.
Vogliamo eliminare le colonne vuote dai dati, seguire i passaggi e il codice indicati di seguito:
- Apri la pagina VBE per premere il tasto Alt+F11
- Inserisci il modulo per scrivere il codice
- Scrivi il codice sotto indicato:
Sub Delete_Columns() Dim C As Integer C = ActiveSheet.Cells.SpecialCells(xlLastCell).Column Do Until C = 0 If WorksheetFunction.CountA(Columns(C)) = 0 Then Columns(C).Delete End If C = C - 1 Loop End Sub
Spiegazione del codice:
Per prima cosa abbiamo definito tutte le variabili. Quindi l'intervallo di colonne vuote, quindi abbiamo usato "Do fino al ciclo" per eliminare le colonne vuote. E ora abbiamo definito la colonna vuota e il comando di eliminazione.
Per eseguire il codice premi il tasto F5 sulla tastiera,
- Tutte le colonne vuote verranno eliminate.
In questo modo, possiamo eliminare le colonne vuote tramite VBA in Microsoft Excel.
Se ti è piaciuto il nostro blog, condividilo con i tuoi amici su Facebook. E puoi anche seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare, completare o innovare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica