求助：修改Excel VBA代码实现批量清除匹配单元格偏移内容

以下是修改后的代码，实现了对指定工作表A列中所有匹配特定字符串的单元格，批量清除其右侧偏移一列的内容：

Dim SearchValue6 As String
Dim Action6 As Range
Dim firstMatchAddr As String
Dim sourceWB As Workbook

' 打开源工作簿读取搜索值，读取后关闭
Set sourceWB = Workbooks.Open("C:\Users\.......xlsm")
SearchValue6 = sourceWB.Worksheets("Sheet1").Range("B9").Value
sourceWB.Close SaveChanges:=False

With Worksheets(2).Columns("A:A")
    ' 查找第一个匹配项，从列的最后一个单元格开始查找，确保遍历所有内容
    Set Action6 = .Find(What:=SearchValue6, After:=.Cells(.Cells.Count), _
        LookIn:=xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    
    If Not Action6 Is Nothing Then
        firstMatchAddr = Action6.Address ' 记录首个匹配地址，防止循环无限重复
        Do
            ' 直接清除偏移单元格内容，无需激活选中
            Action6.Offset(0, 1).ClearContents
            ' 查找下一个匹配项
            Set Action6 = .FindNext(Action6)
        Loop While Not Action6 Is Nothing And Action6.Address <> firstMatchAddr
    End If
End With

关键修改说明 #

• 工作簿资源优化：用变量保存打开的工作簿对象，读取目标值后立即关闭，避免资源占用。
• 移除冗余操作：删掉原代码中的Select和Activate，直接通过Range对象操作单元格，提升代码稳定性与运行速度。
• 循环逻辑实现：
  1. 记录首个匹配项的地址firstMatchAddr，确保循环到初始位置时终止，避免无限循环。
  2. 使用Do...Loop While循环遍历所有匹配项，逐个处理清除操作。
• 查找起始位置调整：将查找起始点设为A列最后一个单元格，保证能遍历到所有匹配内容（原代码从ActiveCell开始可能遗漏部分内容）。

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