So löschen Sie leere Spalten VBA

Question

Ich importiere Daten in Excel in meiner Tabelle ist fix mit 95 Spalten Ich möchte ein Makro oder Code erstellen, wann immer ich Daten in Excel einfügen, wenn die gesamte Spalte vollständig leer ist, sollte es gelöscht werden.

Answer 1

du versuchen könnte:

Sub Main 
    Dim iCol As Long 

    With Worksheets("mySheetName").UsedRange '<--| change "mySheetName" to your actual sheet name 
     For iCol = .Columns.Count to 1 Step - 1 
      If WorksheetFunction.CountA(.Columns(iCol)) = 1 Then .Columns(iCol).EntireColumn.Delete 
     Next 
    End With 
End Sub 

Answer 2

Dim r As Range, rows As Long, i As Long 
Set r = ActiveSheet.Range(Cells(1, 1), Cells(lastrow, lastcolumn)) 
rows = r.rows.Count 
For i = rows To 1 Step (-1) 
If WorksheetFunction.CountA(r.rows(i)) = 0 Then r.rows(i).Delete 
Next