Excel VBA多列查找替换报错：Task表N列替换Adm.list数据失败

代码核心问题： #

• 工作表名称不匹配：你需要用的是「Adm. list」，但代码里写成了"Adm"和"HR list"，Excel找不到对应工作表会直接报错。
• 变量重复覆盖：searchRange和replaceTable被多次赋值，最终执行的是「HR list」的数据替换，完全偏离了用「Adm. list」处理N列的需求。
• N列范围行数错误：设置N列搜索范围时，用了E列的最后一行行数，若N列数据行数与E列不一致，会导致部分数据漏处理或范围无效。
• 冗余代码残留：之前处理E列和HR表的无用代码没删除，干扰逻辑还容易引发错误。

修正后的代码： #

Sub FindAndReplace_AdmList()
    Dim TaskWs As Worksheet
    Dim SearchRng As Range
    Dim ReplaceTable As Variant
    Dim i As Long
    
    ' 指定核心数据工作表
    Set TaskWs = ThisWorkbook.Worksheets("Task")
    
    ' 设置N列的搜索范围（从N2到N列最后一行有数据的单元格）
    With TaskWs
        Set SearchRng = .Range("N2:N" & .Cells(.Rows.Count, "N").End(xlUp).Row)
    End With
    
    ' 读取「Adm. list」的查找替换对照表（A列存查找值，B列存替换值）
    With ThisWorkbook.Worksheets("Adm. list")
        ReplaceTable = .Range("A2:B" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
    End With
    
    ' 遍历对照表执行替换，增加空表判断避免报错
    If Not IsEmpty(ReplaceTable) Then
        For i = LBound(ReplaceTable) To UBound(ReplaceTable)
            SearchRng.Replace _
                What:=ReplaceTable(i, 1), _
                Replacement:=ReplaceTable(i, 2), _
                LookAt:=xlPart, _
                MatchCase:=False
        Next i
    End If
End Sub

关键修改说明： #

1. 修正工作表名称，直接指向目标的「Adm. list」。
2. 重新定义N列搜索范围，用N列自身的最后一行数据行，确保范围准确。
3. 删除所有冗余代码，只保留当前需求的核心逻辑。
4. 增加IsEmpty判断，避免对照表为空时触发循环错误。

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