Excel VBA-搜索列名，完全删除列

我试图通过VBA宏删除多个列。我有一个代码在大部分情况下都能工作，但是当我到达第5行（或者可能发生在第4行和第5行之间）时，它会选择当前列右侧的所有列并删除它们，而不是我选择的单个列

ActiveWorkbook.ActiveeSheet.Rows(1).Find("location", lookat:=xlWhole).Select
ActiveCell.Offset(0, 0).Seleect
ActiveCell.EntireColumn.Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Delete

例如，我想删除名为Location的列。但是，当我到达第4-5行时，它会选择位置和位置右侧的所有列，然后第5行将它们删除。

尝试以下操作：

Dim f As Range
Set f = ActiveSheet.Rows(1).Find("location", lookat:=xlWhole)
If Not f Is Nothing then f.EntireColumn.Delete

尽管宏记录器倾向于这样编写代码，但您很少需要在VBA中选择/激活内容