【原】别再用Vlookup函数了，查找4个表格它更简单！

要根据E1的姓名，在4个分表查找相应的数据。

分表的格式都一样。

如果知道姓名在哪个表格，直接用VLOOKUP函数就搞定了。

=VLOOKUP($E$1,财务!$A:$G,COLUMN(A1),0)

问题是根本不知道姓名在哪个表格啊，这可怎么办？

那就只能用最原始的办法，进行4次VLOOKUP，这也太为难VLOOKUP了。

=IFERROR(IFERROR(IFERROR(VLOOKUP($E$1,生产!$A:$G,COLUMN(A1),0),VLOOKUP($E$1,品质!$A:$G,COLUMN(A1),0)),VLOOKUP($E$1,财务!$A:$G,COLUMN(A1),0)),VLOOKUP($E$1,行政!$A:$G,COLUMN(A1),0))

如果是40个分表呢？你是不是要写疯掉。

你是否还记得For循环，这个简直就是VBA的灵魂，VLOOKUP一次，剩下的循环下不就完事。对吧，挺简单的。

调用工作表函数，先输入WorksheetFunction，再输入.，就可以将Vlookup调用出来，语法跟在工作表一样。

现在要根据E1单元格的内容，查找在财务这个表格对应的第1列内容。

现在要根据E1单元格的内容，查找在财务这个表格对应的第2列内容。

这里实际上要查找1-7列的所有对应值，不能傻傻的一个个改吧，For循环该上场了。

单元格向右，可以用Range("a4").Offset(0, ic - 1)，ic为变量。

Vlookup第3参数，也用ic这个变量。

到目前为止，就完成了在财务这个工作表查找所有列的内容。

现在要依次查找所有工作表，那就再来依次For循环。

理论上这个是可以的，但实际上是不行的，Vlookup在查找不到对应值的时候会报错。一运行代码，就弹出出错对话框。

在工作表中容错用IFERROR函数，在VBA中用On Error Resume Next。

到此，完整的代码就出来了。

Sub 新v()

On Error Resume Next

Dim i, ic As Integer

For i = 2 To Sheets.Count

For ic = 1 To 7

    Range("a4").Offset(0, ic - 1) = WorksheetFunction.VLookup(Range("e1"), Sheets(i).Range("a:h"), ic, 0)

Next

Next

End Sub

现在换一个人员，也可以查找到。

你发现VBA的好处没，就是遇到一些重复性的工作，可以直接扔给For循环。

连续9天的VBA教程，每天都有For循环，没有一次循环搞定不了的，如果有那就再来一次循环。

我已经将最近的VBA教程全部收进专辑里面，以后可以进入专辑学习，更方便。

写文章不是自己想写什么就写什么，因为我是教你学习，如果我只顾着自己写，而忽略了你的感受。写出来的文章，你不爱看，那不就失去了这篇文章的价值。

如果写出来的文章，你是非常认可，觉得写得很棒，由心底产生“我靠，写得也太好了吧”，这篇文章意义就非常大。

假如你是一个老师，桃李满天下，教出来的学生都是人才，你是不是很欣慰？相反，学生都不爱学习，你一上课就睡觉，这心理的落差有多大。

作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）