为何这段VBA代码返回无意义的单元格地址？

核心问题1：单元格定位逻辑错误 #

你的代码中，WorksheetFunction.Match(codigo, Range("B3:B3000"), 0)返回的是查找范围B3:B3000内的相对行号（比如B6在该范围里是第4行，因为B3是第1行），而Cells(行号)默认指向A列对应行的单元格，所以最终拿到的是A列单元格地址，并非你要的B列目标单元格。

此外，代码中频繁使用Select/Activate切换工作表，极易因当前激活工作表的意外变化导致地址赋值出错，这也是你得到错误单元格地址的潜在诱因。

核心问题2：类型不匹配与无错误处理 #

• codigo定义为Integer，但如果Text_CodPro.Text是超出Integer范围（>32767）的数字，或是非数字内容，会直接触发运行时错误。
• 若codigo在B3:B3000中不存在，WorksheetFunction.Match会直接报错，而非返回可识别的空值或提示。

修复后的代码 #

Dim codigo As Variant ' 改用Variant兼容更大数字或文本格式的编码
Dim matchRow As Variant
Dim targetCell As Range

' 直接通过工作表对象操作，避免Select/Activate引发的错误
With Sheets("Produtos")
    codigo = Text_CodPro.Text
    ' 用Application.Match替代WorksheetFunction.Match，找不到匹配时返回Error值，便于处理
    matchRow = Application.Match(codigo, .Range("B3:B3000"), 0)
    
    If Not IsError(matchRow) Then
        ' 将相对行号转换为工作表绝对行号，定位到B列目标单元格
        Set targetCell = .Range("B3").Offset(matchRow - 1, 0)
        ' 直接赋值，无需切换激活状态
        Planilha1.Range("A3").Value = targetCell.Address
    Else
        ' 处理无匹配项的场景
        Planilha1.Range("A3").Value = "未找到匹配编码"
    End If
End With

关键改进说明 #

• 移除Select/Activate：直接通过工作表对象操作单元格，彻底避免因激活状态变化导致的错误。
• 精准定位目标单元格：通过Range("B3").Offset(matchRow -1, 0)锁定B列的目标单元格，而非默认的A列。
• 新增错误处理：用Application.Match结合IsError判断匹配结果，避免程序崩溃。
• 类型兼容优化：将codigo改为Variant，兼容更大数字或文本类型的编码场景。

内容的提问来源于stack exchange，提问作者João Paulo Francisconi