空白の列を行2から削除します。

Question

ワークシートの空の列を行2から削除しようとしています。列全体が空白の場合は、列を削除します。

なぜなら、行2から始まっているのは、行1にヘッダーがあるからです。その後、これらの列も空白の場合は削除されます。どのように行2から始めるのですか？私はあなたがClearする必要があり、行2 から起動する場合Deleteに、これは進むべき道ではありません、行2

Answer 1

私は右のあなたを得た場合は、2行で始まる列が空であり、そうであれば、ユだろうかどうかを確認したいと思います列を削除するのが好きです。あなたはすべての列のヘッダを持っている場合は、あなたのコードは、

Sub Delete_Cols() 
    Dim MyRange As Range 
    Dim iCounter As Long 
    Set MyRange = ActiveSheet.UsedRange 
    For iCounter = MyRange.Columns.Count To 1 Step -1 
     If Application.CountA(Columns(iCounter).EntireColumn) = 1 Then 
      Columns(iCounter).Delete 
     End If 
    Next iCounter 
End Sub 

Answer 2

から空白の列のチェックを開始するマクロを必要

Sub Delete_Cols() 
Dim MyRange As Range 
    Dim iCounter As Long 
    Set MyRange = ActiveSheet.UsedRange 
    For iCounter = MyRange.Columns.Count To 1 Step -1 
     If Application.CountA(Columns(iCounter).EntireColumn) = 0 Then 
     Columns(iCounter).Delete 
     End If 
    Next iCounter 
End Sub 

その周囲：

これは、2行目から65536行目までの範囲をクリアします。おそらくそれはあなたが望むように動作します。

Answer 3

それが空である場合は、以下のVBAは、あなたのシートで列を削除します。

Sub DeleteEmptyColumns() 
    'Updateby20140317 
    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