vba中跨工作表使用index+match函数，提示“不能取得类worksheetfunction的属性！

ForAlways

问题：在同一个工作表中，已经成功实现利用index+match组合函数，查找值；但是跨工作表查找就报错，不知道是什么原因，望各位师傅指导一下，多谢!
1、下图在同一工作表中：

在同一工作表中

Sub IndexMatch()
    Dim i As Integer
    For i = 2 To 4
    Cells(i, 5).Value = WorksheetFunction.Index(Range(" b2:b4 "), _
    WorksheetFunction.Match(Cells(i, 4).Value, Range(" a2:a4 "), 0))
    Next i
End Sub
运行结果如下：


2、跨工作表查找
下表是待填表

下表是待引用表

代码如下：


Sub 查找()
   Dim i As Integer
   For i = 2 To 4
   Cells(i, 2).Value = WorksheetFunction.Index(Worksheets("引用表").Range(" a2:b4 "), _
   WorksheetFunction.Match(Cells(i, 1).Value, Worksheets("引用表").Range(" b1:b4 "), 0))
     Next i
End Sub

运行结果如下：

ykcbf1100

你既然用函数了，何必再用VBA呢？再说了，既然想用VBA解决，那何必再用函数呢？
附件供参考。。。

qdtzq

出错原因是两个函数的参数中指定区域错误,与跨表无关

ForAlways

ykcbf1100 发表于 2024-2-19 19:28
你既然用函数了，何必再用VBA呢？再说了，既然想用VBA解决，那何必再用函数呢？
附件供参考。。。

修改后运行无误，十分感谢！两张工作表中数据需要互相核对，以前都是index组合match函数手工输入，今儿先尝试能否在vba中自动执行此操作，由于初学还没有其他思路。

ykcbf1100

ForAlways 发表于 2024-2-19 21:24
修改后运行无误，十分感谢！两张工作表中数据需要互相核对，以前都是index组合match函数手工输入，今儿先 ...

一样的。。。

ForAlways

qdtzq 发表于 2024-2-19 19:53
出错原因是两个函数的参数中指定区域错误,与跨表无关

的确是，修改后运行正确！多谢指点！

ForAlways

ykcbf1100 发表于 2024-2-19 21:29
一样的。。。

刚才发现是，引用区域不对，

ykcbf1100

ForAlways 发表于 2024-2-19 21:32
刚才发现是，引用区域不对，

sheets()和worksheets()效果一样的。

chixun9999

跨表页进行公式调用，需要考虑range的适用范围是当前活动表页，如果调用其他表页的内容，则需要sheets("xxx").range("yyy")这样的方式，否则就有可能出错。