4 4c语言表格的画法_别再用Vlookup函数了，查找4个表格它更简单

原创作者： 卢子1987 转自：Excel不加班

要根据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循环，没有一次循环搞定不了的，如果有那就再来一次循环。