Question

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

表1中是原始数据，表2是表1中数据的一部分。选取数据的标准有两个：1，表1的分类为A类或者B类；2，所对应的数量为0。

Answer 1

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

如附件！

追问

好的，我试一下。

我想的太简单了，直接修改Sheet名称和行列号做不出来。

追答

要修改的有：

单元格地址。heets(2).Cells(x, 2)

行、列。循环的话根据你的行数量确定；

或你把两张表的图贴出来看下。

看了你贴给别人的图：直接有多条件VLOKUPP就可以了

追问

就是这样的，只是基础数据的实际记录的行数会超过1万，列数是25；特殊记录的行数一般是1到5，有时候是0，列数和基础数据一样。

基础数据中没有主键，任何属性都有可能重复出现。

实际中的数据量很大。

Answer 2

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

追问

谢谢。具体的要怎么做啊？刚开始用VBA。

追答

真的没明白你要做什么，你的截图看到了，但你要做的事情是什么？要达到什么目的？

追问

就是要再表1里面找到类别是A或者B，并且数量为0的整行记录，然后把记录复制进表2。
但是实际情况中表1和表2是在两个不同的Sheet里面。这么说，你能明白吗？

追答

Sub copyTo()
Dim i, j
j = 2   '如果原来有内容了，改成相应空行号
For i = 2 To Sheets(1).UsedRange.Rows.Count '检查第一个表中所有行
    DoEvents
    Sheets(1).Activate
    If (Cells(i, 2) = "A" Or Cells(i, 2) = "B") And Cells(i, 3) = 0 Then    '检查条件
        Rows(i).Select
        Selection.Copy
        Sheets(2).Activate
        Rows(j).Select
        ActiveSheet.Paste
        j = j + 1   '表2行递增
    End If
Next
End Sub

Answer 3

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

追问

希望现在把所有能做的全部做完，以后交接给别人的时候可以方便一点，直接更新基础数据就可以。谢谢。

追答

我的意思就是你用录制宏录制VLOOKUP函数（参数用绝对引用）然后自动填充。

用vba编辑器打开录制的宏主要也是把参数修改成绝对引用，如果你录制的时候用的就是绝对引用就不用再修改了

追问

Rows("1286:1286").Select
Selection.Copy

里面的 Rows("1286:1286").Select 应该怎么改？因为每一次筛选后的行数是不确定的。可能不只是1行，也可能没有。

追答

不需要用到Select啊，你只需要在表2中对应表1的位置使用VLOOKUP函数就行了啊（比如你要检索表一第一行第三列的值,你就在表二第一列第三行调用函数），之后双击单元格的右下角。
注意VLOOKUP的第一个参数一定要用绝对应用。
录制完成的宏应该是不需要修改的

Answer 4

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

追问

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

追答

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