空白の列を削除する方法VBA

Question

テーブルのExcelでデータをインポートしています。95列で修正されています。列全体が完全に空白の場合、削除する必要がある場合はExcelでデータを貼り付けるたびにマクロまたはコードを作成します。

Answer 1

あなたはこの試みることができる：エラー - -getting

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