如何在VBA里套嵌使用index和match函数？

girlinjuly

想通过index函数套嵌使用match函数的方法在sheet2中的A列自动填充按B列单元格对应查找与Sheet3里的B列内容相同的那个单元格所对应的A列单元格的内容。
我写的VBA是这样的：
Worksheets("Sheet2").Activate
n = Application.WorksheetFunction.CountA(Columns("B"))
Dim i As Integer
For i = 2 To n
Cells(i, 1) = Application.WorksheetFunction.Index(Sheet3![A:A], Match(Cells(i, 2), Sheet3![B:B], 0))
Next i
可是为什么运行后总是报错“子过程或函数未定义”？请高手帮忙看看是什么缘故，谢谢！

hlightaaaa

你的方法及单元格的引用都有问题。
可以用下面的macro2，要达到同样的次果。

1. Sub Macro2()
   
2. '
   
3. Worksheets("Sheet2").Activate
   
4. n = Application.WorksheetFunction.CountA(Columns("B"))
   
5. With Sheet2
   
6.     .Cells(2, 1).Formula = "=INDEX(Sheet3!A:A,MATCH(B2,Sheet3!B:B,0))"
   
7.     .Cells(2, 1).Copy Range("a3:a" & n)
   
8. End With
   
9. End Sub

复制代码

girlinjuly

感谢您的帮助！
但是现在又遇到一个很令我困惑的问题。
我运行您的原始程序时运行完全正确。可是当我把工作表改成中文名字后，运行后就报错。
后来我在您的程序代码基础上，把Cells(2,1)修改成[A2]后就可以运行了，请教一下，这个又是什么缘故呢？
我已经再次上传新的附件
宏2为将您的代码中的工作表名称改成中文后的情况
宏3为Cells(2,1)修改成[A2]的情况

hlightaaaa

有几个点你应该先学一下。
1 [with]的用法。
2 表的引用方法。
这两个知识点要是懂了的话，就OK 了。

[ 本帖最后由 hlightaaaa 于 2009-3-31 18:24 编辑 ]