江苏龙网

  1. 首页 > 资讯 > 资讯 > >

别再用Vlookup函数了，查找4个表格它更简单！( 二 )




现在要根据E1单元格的内容 ， 查找在财务这个表格对应的第2列内容 。
别再用Vlookup函数了，查找4个表格它更简单！
文章图片


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

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

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

到目前为止 ， 就完成了在财务这个工作表查找所有列的内容 。
别再用Vlookup函数了，查找4个表格它更简单！
文章图片


现在要依次查找所有工作表 ， 那就再来依次For循环 。
别再用Vlookup函数了，查找4个表格它更简单！
文章图片


理论上这个是可以的 ， 但实际上是不行的 ， Vlookup在查找不到对应值的时候会报错 。 一运行代码 ， 就弹出出错对话框 。
别再用Vlookup函数了，查找4个表格它更简单！
文章图片


在工作表中容错用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

现在换一个人员 ， 也可以查找到 。
别再用Vlookup函数了，查找4个表格它更简单！
文章图片


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

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

链接：
https://pan.baidu.com/s/1KPCkEJT_WoBgu1GmGufEWw


提取码：h24l


我已经将最近的VBA教程全部收进专辑里面 ， 以后可以进入专辑学习 ， 更方便 。
别再用Vlookup函数了，查找4个表格它更简单！
文章图片


别再用Vlookup函数了，查找4个表格它更简单！
文章图片


即日起 ， 凡是报名VIP会员的 ， 赠送1本VBA书籍 。 其他读者 ， 可以点下方小程序 ， 到京东购买VBA书籍 ， 全面学习 。


推荐阅读


上一篇：谁会是烧烤界的海底捞？

下一篇：你的鼓励，可能伤到孩子