在Excel工作表中查找指定字符串并替换其右侧第2列单元格的值

安全阿岳

2026-9-25

VBA批量查找并替换偏移列内容实现方案

问题背景

需求：在工作表中查找所有包含指定字符串的单元格，将对应单元格右侧偏移2列的单元格内容替换为指定值。
已编写的基础代码如下：

Sub t()
Dim searchCell As Range  
Dim replaceCell As Range
With Sheets("Chainwire")
    Set searchCell = .Cells.Find(what:="UFFT50")
    Set replaceCell = searchCell.Offset(0, 2)
End With
End Sub

修正后完整可运行代码

原有代码仅匹配了第一个符合条件的单元格，没有循环遍历所有匹配项，也没有执行赋值替换操作，修改后的代码如下：

Sub 批量替换偏移列内容()
    Dim searchCell As Range
    Dim firstFindAddr As String ' 记录第一个匹配项地址，避免无限循环查找
    Const SEARCH_STR As String = "UFFT50" ' 要查找的目标字符串
    Const REPLACE_VALUE As String = "你要替换的指定值" ' 此处修改为实际需要替换的内容
    Const OFFSET_COL As Integer = 2 ' 偏移列数，右偏2列固定为2
    
    With Sheets("Chainwire").Cells
        ' LookAt设为xlPart是单元格包含目标字符串就匹配，改为xlWhole就是全单元格完全匹配才触发
        Set searchCell = .Find(What:=SEARCH_STR, LookIn:=xlValues, LookAt:=xlPart)
        If Not searchCell Is Nothing Then
            firstFindAddr = searchCell.Address
            Do
                ' 给偏移2列的单元格赋值
                searchCell.Offset(0, OFFSET_COL).Value = REPLACE_VALUE
                ' 查找下一个匹配项
                Set searchCell = .FindNext(searchCell)
            Loop While Not searchCell Is Nothing And searchCell.Address <> firstFindAddr
        End If
    End With
    ' 可选操作完成提示
    MsgBox "替换操作已完成", vbInformation
End Sub