请求编写VBA代码：在‘R Replaced’工作表批量替换单元格内容

当然有对应的VBA代码啦！下面这段代码正好能满足你的需求——在名为‘R Replaced’的工作表里，批量把I列的文本替换成J列对应的内容，而且还能自动适配数据行数（不用硬卡1000行，会处理到I列最后一个有内容的单元格）：

Sub BatchFindReplace()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定目标工作表
    Set ws = ThisWorkbook.Worksheets("R Replaced")
    
    ' 获取I列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
    
    ' 从第2行开始循环（假设第1行是表头）
    For i = 2 To lastRow
        ' 跳过I列空单元格，避免无效替换
        If ws.Cells(i, "I").Value <> "" Then
            ' 在整个工作表中查找I列内容，替换为J列对应内容
            ws.Cells.Replace What:=ws.Cells(i, "I").Value, _
                            Replacement:=ws.Cells(i, "J").Value, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            MatchCase:=False, _
                            SearchFormat:=False, _
                            ReplaceFormat:=False
        End If
    Next i
    
    MsgBox "批量替换完成！", vbInformation
End Sub

代码说明： #

• 自动适配行数：通过lastRow变量获取I列最后一行数据，不管你的数据是100行还是1000行以上，都能自动处理。
• 精确匹配：LookAt:=xlWhole确保只替换完全匹配的单元格内容，不会出现部分匹配的误替换（比如不会把"Apple1"当成"Apple"替换）。
• 跳过空值：判断I列单元格不为空才执行替换，避免不必要的操作。

使用方法： #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器。
2. 插入一个新模块：右键点击左侧的工作簿名称 → 插入 → 模块。
3. 将上面的代码粘贴到模块中。
4. 按下F5运行代码，或者回到Excel界面，通过开发工具→宏→选择BatchFindReplace执行。

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