Excel VBA跨工作表求和异常：Find方法返回空值导致结果为0

核心原因分析 #

你的代码中Find方法失效，本质是默认参数不匹配实际需求或数据/格式不一致导致无法定位目标单元格，具体可能的情况：

• Find默认使用LookAt:=xlPart（部分匹配），如果rng.Value是需要精确匹配的内容，可能误匹配到包含该值的其他单元格，或者因为格式差异完全匹配失败。
• 默认LookIn:=xlFormulas，如果目标单元格是通过公式计算得到的值，而你需要匹配显示值，会导致查找失败。
• 数据类型不统一：比如rng是数值型单元格，而目标区域的单元格是文本格式存储的数字，Find会因类型不同无法匹配。
• 隐藏单元格/列：Find默认会跳过隐藏区域，若目标单元格在隐藏列中则无法找到。

针对性解决办法 #

1. 显式指定Find关键参数（最直接的修复） #

给Find方法明确指定匹配规则，避免默认参数的坑：

Set cell = ws.Range("B5:BZ5").Find( _
    What:=rng.Value, _
    LookIn:=xlValues, _  ' 匹配单元格显示的值，而非公式
    LookAt:=xlWhole, _   ' 精确匹配整个单元格内容
    MatchCase:=False, _  ' 不区分大小写（按需调整）
    SearchOrder:=xlByColumns, _  ' 按列查找（符合你的区域B5:BZ5的结构）
    SearchDirection:=xlNext _
)

2. 统一数据类型匹配 #

如果存在文本/数值格式差异，强制转换为相同类型再查找：

' 转换为字符串匹配
Set cell = ws.Range("B5:BZ5").Find( _
    What:=CStr(rng.Value), _
    LookIn:=xlValues, _
    LookAt:=xlWhole _
)

或针对数值类型：

Set cell = ws.Range("B5:BZ5").Find( _
    What:=CDbl(rng.Value), _
    LookIn:=xlValues, _
    LookAt:=xlWhole _
)

3. 用循环遍历替代Find（最稳定的方案） #

如果Find的参数问题难以排查，直接遍历目标区域，避免Find的隐性坑：

Dim targetCell As Range
Set cell = Nothing  ' 初始化避免残留值
For Each targetCell In ws.Range("B5:BZ5")
    ' 可根据需求添加格式/类型判断
    If targetCell.Value = rng.Value Then
        Set cell = targetCell
        Exit For  ' 找到后退出循环
    End If
Next targetCell

4. 重置Find缓存 #

如果之前的代码调用过Find，可能残留参数设置，先重置再查找：

' 重置Find的默认参数
Cells.Find(What:="", After:=Cells(1, 1)).Activate
' 再执行你的查找
Set cell = ws.Range("B5:BZ5").Find(rng.Value, LookIn:=xlValues, LookAt:=xlWhole)

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