VBA删除指定文本列时FindNext方法报错问题求助

删除列后，原代码里的rngFound引用的单元格已经不存在，再调用FindNext必然触发"无法获取Range类的FindNext属性"的错误。而且每次删除列会导致后续列的索引左移，用原逻辑会出现查找混乱、漏删的问题。

正确的思路是先收集所有需要删除的列号，再批量删除，既避免引用失效，也不会因为列索引变化出错。

修正后的代码 #

Private Sub ClearInPlanCells(strSearch As String, wrkSheetName As String)
    Dim rngFound As Range
    Dim colNums As Collection
    Dim firstAddr As String
    Dim ws As Worksheet
    
    Set ws = Worksheets(wrkSheetName)
    Application.ScreenUpdating = False
    Set colNums = New Collection
    
    ' 遍历所有匹配项，收集需要删除的列号
    With ws.Cells
        Set rngFound = .Find(strSearch, LookIn:=xlValues, LookAt:=xlWhole)
        If Not rngFound Is Nothing Then
            firstAddr = rngFound.Address
            Do
                ' 用列号作为Key，避免同一列重复添加（如果该列多个单元格匹配文本）
                On Error Resume Next
                colNums.Add rngFound.Column, Key:=CStr(rngFound.Column)
                On Error GoTo 0
                
                Set rngFound = .FindNext(rngFound)
            Loop While Not rngFound Is Nothing And rngFound.Address <> firstAddr
        End If
    End With
    
    ' 从右往左批量删除列（避免删除左侧列导致右侧列索引偏移）
    If colNums.Count > 0 Then
        Dim i As Integer
        For i = colNums.Count To 1 Step -1
            ws.Columns(colNums(i)).EntireColumn.Delete
        Next i
    End If
    
    Application.ScreenUpdating = True
End Sub

关键说明 #

• 用Collection存储列号，通过Key去重，确保同一列只会被删除一次。
• 先完成所有查找再删除，彻底避免删除操作破坏查找上下文的问题。
• 从右往左删除列：如果从左往右删，删除第2列后原第3列会变成新的第2列，导致后续删除索引出错；从右删则不会影响剩余待删列的索引。

内容的提问来源于stack exchange，提问作者Craig Johnstone