使用Excel VBA的Find()函数查找值对应列号时的匹配异常问题

问题根源 #

你的代码中Find函数默认采用部分匹配（LookAt参数默认值为xlPart），因此查找值2时会匹配包含2的单元格25，查找1时会匹配包含1的单元格14。

修改后的VBA代码 #

For Each b In list3
    ' 添加LookAt:=xlWhole参数强制完全匹配
    Set n = X.Sheets("2023 Feedback Master").Range("A1:A" & CStr(lastRow)).Find(What:=b, LookAt:=xlWhole)
    MsgBox b
    name = CStr(X.Sheets("2023 Feedback Master").Range("A" & CStr(n.Row)).Value) & ". " & CStr(X.Sheets("2023 Feedback Master").Range("B" & CStr(n.Row)).Value) & " - " & CStr(X.Sheets("2023 Feedback Master").Range("E" & CStr(n.Row)).Value)
    MsgBox name
Next b

补充说明 #

• xlWhole参数要求查找值与单元格内容完全一致，彻底避免部分匹配引发的错误结果
• 若需要区分大小写，可额外添加MatchCase:=True参数

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