用VBA 能实现 VLOOKUP 函数的功能吗?如果可以,代码怎么写?

发布网友发布时间：2023-03-23 02:00

共4个回答

热心网友时间：2023-10-13 00:05

Sub a()
    Dim x%
    For x = 2 To 4
        Sheets(2).Cells(x, 2) = Application.VLookup(Sheets(2).Range("a" & x), Sheets(1).Range("a:b"), 2, False)
    Next x
End Sub

如附件！

热心网友时间：2023-10-13 00:05

问题不具体，也只能简单说下了：
用For 加 If语句就可以实现，而且很方便。

热心网友时间：2023-10-13 00:06

录制一遍VLOOKUP 函数，用vba编辑器打开然后修改一下循环的起始行参数就行了

热心网友时间：2023-10-13 00:06

直接用INDEX函数，不过你没有实际的样表。追问

数据格式大概就是这个样子的。只是实际数据的行数和列数都比这个要大得多，而且表1和表2在两个不同的Sheet里面。表1中同时满足两个条件的记录很少，一般不会超过5条，有时候是没有。用IINDEX会影响运算速度的吧，所以希望可以用VBA做。能用VBA吗？

追答INDEX 如果数据太多，可能速度慢