VBA使用Match函数跨工作表匹配数据时出现2042错误求助

错误代码2042通常表示Match函数未找到匹配值，或者引用的单元格/范围存在问题。针对你的代码和场景，给出以下排查和修复方向：

• 明确Cells(6,3)的所属工作表
  代码里Cells(6,3)未指定工作表，默认会使用当前激活的工作表。如果激活的不是存储位置信息的工作表，就会导致匹配值错误，返回2042。必须指定数据源所在工作表，比如假设位置信息存在名为"数据源"的工作表，修改代码如下：

  UBLocation = Application.Match(ThisWorkbook.Worksheets("数据源").Cells(6, 3).Value, wsUB.Range("A1:A35"), 0)
  

• 检查匹配值的数据类型是否一致
  若Cells(6,3)是文本，而目标范围wsUB.Range("A1:A35")里的内容是数字（或反之），Match会找不到匹配。可以统一转换数据类型，比如都转为文本：

  UBLocation = Application.Match(CStr(ThisWorkbook.Worksheets("数据源").Cells(6, 3).Value), wsUB.Range("A1:A35"), 0)
  

• 处理未找到匹配的情况
  即使前面都正确，也可能存在无匹配项的情况，需要添加错误处理避免代码崩溃：

  Sub Test()
      Dim wsUB As Worksheet
      Dim UBLocation As Variant
      Dim sourceWs As Worksheet
      
      Set wsUB = ThisWorkbook.Worksheets("Übersichtsblatt")
      Set sourceWs = ThisWorkbook.Worksheets("数据源") ' 替换成你的数据源工作表名称
      
      UBLocation = Application.Match(sourceWs.Cells(6, 3).Value, wsUB.Range("A1:A35"), 0)
      
      ' 检查是否找到匹配
      If IsError(UBLocation) Then
          MsgBox "未找到匹配的位置信息", vbExclamation
      Else
          ' 这里可继续执行后续赋值操作，比如找到列号后填充交叉单元格
          MsgBox "匹配的行号为：" & UBLocation
      End If
  End Sub
  

• 检查目标范围是否包含隐藏行/列
  如果wsUB.Range("A1:A35")存在隐藏行，Match默认会忽略隐藏单元格，导致找不到匹配。可以改用WorksheetFunction.Match（需用On Error捕获错误），或者确保目标范围无隐藏内容。

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