修改VBA代码实现Excel多工作表批量查找替换功能

扩展后的VBA代码 #

Sub multiFindandReplace()
    Dim myList As Range, cel As Range
    Dim ws As Worksheet
    ' 读取Names工作表的查找替换规则
    Set myList = Sheets("Names").Range("A1:B238")
    
    ' 遍历当前工作簿所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 排除存放规则的Names工作表，避免误改匹配规则
        If ws.Name <> "Names" Then
            For Each cel In myList.Columns(1).Cells
                ' 在当前工作表全范围执行替换
                ws.Cells.Replace What:=cel.Value, Replacement:=cel.Offset(0, 1).Value, LookAt:=xlWhole
            Next cel
        End If
    Next ws
    MsgBox "全工作表查找替换完成"
End Sub

调整说明 #

• 新增工作表遍历逻辑：循环读取当前工作簿内所有工作表，替换范围从单张Output表扩展到全部工作表
• 增加Names表排除规则：避免误操作修改存放查找替换匹配规则的源表内容
• 替换范围改为全工作表：用ws.Cells覆盖当前工作表所有单元格，如果你需要限定固定范围，可自行修改为ws.Range("A1:Y99")这类指定区域
• 保留原代码的完全匹配规则：LookAt:=xlWhole代表仅替换单元格内容和查找词完全一致的内容，如需部分匹配替换，可将参数修改为LookAt:=xlPart
• 补全了变量声明，符合VBA编码规范，避免未定义变量报错

可选优化：自动识别规则范围 #

如果你的Names表中查找规则行数会动态变化，不需要固定写死238行，可以把规则范围的定义替换为自动识别最后一行的写法：

' 替换原代码中Set myList的对应部分即可
Dim lastRow As Long
lastRow = Sheets("Names").Cells(Rows.Count, "A").End(xlUp).Row
Set myList = Sheets("Names").Range("A1:B" & lastRow)

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