Excel VBA 複数「列」を高速削除「Range・Union」使用で高速化する

Dim ObjThisSh  As Object
Dim LngColMax As Long
Set ObjThisSh = ThisWorkbook.Sheets("Sheet1")

With ObjThisSh

    LngColMax = .Cells(2, .Columns.Count).End(xlToLeft).Column

    For LngIndex = 2 To LngColMax
        If .Cells(2, LngIndex).Value = 0 Then
            '列を削除
            .Columns(LngIndex).Delete
        End If
    Next LngIndex

End With

Dim ObjThisSh  As Object
Dim LngColMax As Long
Dim LngIndex As Long
Dim RngDelete As Range
Set ObjThisSh = ThisWorkbook.Sheets("Sheet1")

With ObjThisSh

    LngColMax = .Cells(2, .Columns.Count).End(xlToLeft).Column

    For LngIndex = 2 To LngColMax
        If .Cells(2, LngIndex).Value = 0 Then
            If RngDelete Is Nothing Then
                Set RngDelete = .Cells(2, LngIndex)
            Else
                Set RngDelete = Union(RngDelete, .Cells(2, LngIndex))
            End If
        End If
    Next LngIndex

    If Not RngDelete Is Nothing Then
        'RngDelete.EntireColumn.Select 'テスト用　削除予定列を表示させる
        '列を一括削除
        RngDelete.EntireColumn.Delete
    End If

End With

Dim ObjThisSh  As Object
Dim LngColMax  As Long
Dim LngIndex   As Long
Dim RngDelete  As Range
Dim VarValues  As Variant

Set ObjThisSh = ThisWorkbook.Sheets("Sheet1")

With ObjThisSh
    ' 行2を配列に読み込み
    LngColMax = .Cells(2, .Columns.Count).End(xlToLeft).Column
    VarValues = .Range(.Cells(2, 2), .Cells(2, LngColMax)).Value

    ' 配列で判定（For文はセルにアクセスしないので速い）
    For LngIndex = 1 To UBound(VarValues, 2)
        If VarValues(1, LngIndex) = 0 Then
            If RngDelete Is Nothing Then
                Set RngDelete = .Cells(2, LngIndex + 1)
            Else
                Set RngDelete = Union(RngDelete, .Cells(2, LngIndex + 1))
            End If
        End If
    Next LngIndex

    ' 一括削除
    If Not RngDelete Is Nothing Then
        RngDelete.EntireColumn.Delete
    End If
End With