Как удалить несколько столбцов в Excel VBA?

Question

Как удалить несколько столбцов в Excel VBA? Я пробовал:

Sub DelColumns() 
    Dim col As Range 

    For Each col In Range("A:C,E:E,H:S,U:AK,AM:AM,AO:AU,BC:BI,BK:BV").Columns 
    col.EntireColumn.Delete 
    Next col 

End Sub 

Обновление. Я пытаюсь сделать это на столе, который представляет собой таблицу показанных деталей сводной таблицы. Можно ли удалить столбцы таблицы, не преобразовывая сначала таблицу в диапазон?

Answer 1

Вы можете использовать метод удаления для Range для удаления столбцов.

В вашем случае,

Sub DelColumns() 

    Range("A:C,E:E,H:S,U:AK,AM:AM,AO:AU,BC:BI,BK:BV").Delete 

End Sub