基於單元格內容的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，以免指定索引元素。