别再用Vlookup函数了，查找4个表格它更简单！
点击上方蓝字「Excel不加班」关注，看下一篇
恭喜下面3个粉丝：飞天小恶女、春、唯念晨希，获得书籍，加卢子微信chenxilu2019，发送姓名，电话，地址。
要根据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循环，没有一次循环搞定不了的，如果有那就再来一次循环。
链接：
https://pan.baidu.com/s/1KPCkEJT_WoBgu1GmGufEWw
提取码：h24l
我已经将最近的VBA教程全部收进专辑里面，以后可以进入专辑学习，更方便。
即日起，凡是报名VIP会员的，赠送1本VBA书籍。其他读者，可以点下方小程序，到京东购买VBA书籍，全面学习。
VIP888元，一次报名，所有视频课程，终生免费学，提供一年在线答疑服务。
报名后加卢子微信chenxilu2019，发送报名截图邀请进群。
上篇：教你一个新用法，OFFSET函数2个参数就可以多表引用
写文章不是自己想写什么就写什么，因为我是教你学习，如果我只顾着自己写，而忽略了你的感受。写出来的文章，你不爱看，那不就失去了这篇文章的价值。
如果写出来的文章，你是非常认可，觉得写得很棒，由心底产生“我靠，写得也太好了吧”，这篇文章意义就非常大。
假如你是一个老师，桃李满天下，教出来的学生都是人才，你是不是很欣慰？相反，学生都不爱学习，你一上课就睡觉，这心理的落差有多大。
作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）
请把「Excel不加班」推荐给你的朋友
无需打赏，请点在看↓↓↓