如何删除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使用delete方法删除列。

在你的情况下，

Sub DelColumns()

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

End Sub