基于单元格内容的excel vba宏删除列

Question

我正在尝试编写宏以从电子表格中删除具有特定内容的列。 所有数据都在第一行中，长度可变。 我认为问题可能与我的范围选择有关。 尝试进行搜索时，我总是下标超出范围。 任何意见，将不胜感激。 :)

Sub Disk_Firmware()
   Dim c As Range
   Dim SrchRng As Range
   Dim SrchStr As String
   Set SrchRng = ActiveSheet.Range("A1").EntireRow
   SrchStr = InputBox("Please enter a search string")
   Do
      Set c = SrchRng.Find(SrchStr, LookIn:=xlvalues)
      If Not c Is Nothing Then c.EntireColumn.Delete
   Loop While Not c Is Nothing
End Sub

Answer 1

您的代码在我的VBE中绝对可以正常工作。 我刚刚添加了以下内容：

SrchStr = Trim(SrchStr)

对于该错误，MSDN网站建议您使用For Next代替Do While，以免指定索引元素。