excelvba如何查询表数据
Excel跨多个工作表查询数据，用公式不好统计，尤其是遇到不断增加工作表的情况，比如：
上图中，要根据订货单号选择相应的货名、数量、单位、单价等信息。而这些订货单号对应货名等分布在不同的9个工作表中，而且工作表还在不断增加。
在这种情况下，公式显得有些苍白无力，就需要用VBA来完成跨表查询。实现效果如下：
在代码窗口中输入以下代码：
Sub 多表查询()Dim i%, k%Dim irow%, icol%Dim sht As WorksheetRange(a5:e200).Clear 清除a5到e200区域中的数据，此处200可根据数据行多少改变k = 1Application.ScreenUpdating = FalseFor Each sht In Worksheets If sht.Name ActiveSheet.Name Then 当工作表不是当前工作时，执行以下语句 With sht irow = .Cells(.Rows.Count, 1).End(xlUp).Row 当前工作表数据行数 icol = .Cells(1, .Columns.Count).End(xlToLeft).Column 当前工作表数据列数 For i = 1 To irow If .Cells(i, 1).Value = Sheets(1).Cells(2, 5).Value Then 当前工作表是第一列i行数据与sheet1工作表E2单元格数值相同时 .Cells(i, 2).Resize(1, icol).Copy Sheets(1).Cells(4 k, 1) 将第i行数据复制到sheet1工作表第4 k行 k = k 1 End If Next i End With End IfNextApplication.ScreenUpdating = TrueEnd Sub
如下图：
如果不知道“按订货单号查询”按钮怎么设置，可参考文章Excel | 让“宏”来替你做重复动作
------------------------------------------
-----------------------------------------
加入圈子，一起学习office吧！
更新于：11小时前
上一篇
下一篇猜你喜欢
热点百科 摄影过程中如何运用大小光圈
光圈是指镜头中控制进入镜头光量的装置，这个装置上有一个进光孔，进光孔的直径就光圈的直径。光圈可根据需要进行大小的调整，光圈的大小即F值=镜头的焦距/镜头光圈的直径。通常光圈用F 数字来表示，如：F2.0。2、整档光圈是指在快门速度不变的情况下，改变一个曝光量（EV值）所需要改变的光圈的大小。光圈是F1是基准，其它..
2024-12-19
热点百科 手把手教你如何订阅付费版ChatGPT 30分钟成功订阅ChatGPT Plus
ChatGPT 是 OpenAI 公司在人工智能领域的一次重大创新，它的创新和进步值得我们认可和赞赏。至于ChatGPT的付费版本“Plus”，它提供了更多的功能和服务，例如更快的响应速度，更高质量的回复，以及更多的自定义选项。对于那些需要 ChatGPT 更高级功能的人来说，这可能是值得的投资。但是，这取决于个人使用 ChatGPT 的需求..
2024-12-19
职场百科 如何在excel统计员工出勤时间
某公司新来的小明负责员工的考勤，现在他遇到了一些问题，怎么统计出员工的出勤天数呢？我们来帮帮他。看到那些密密麻麻的字，眼都花了，如果没有好的方法确实无法准确统计。划重点：=COUNTIF($B2:$AE2,"班")
2024-12-19
热点百科 手把手教你如何订阅付费版ChatGPT
ChatGPT 是 OpenAI 公司在人工智能领域的一次重大创新，它的创新和进步值得我们认可和赞赏。至于ChatGPT的付费版本“Plus”，它提供了更多的功能和服务，例如更快的响应速度，更高质量的回复，以及更多的自定义选项。对于那些需要 ChatGPT 更高级功能的人来说，这可能是值得的投资。但是，这取决于个人使用 ChatGPT 的需求..
2024-12-18
母婴百科 雌雄一体的动物如何自己生宝宝
生命，是人类一直以来探索的课题，随着时间的流逝，我们发现了很多奇迹。在地球上，不论是人还是动物，要想一直延续下去，繁衍后代是必须的，而这一切都需要通过交配来完成。有人说“除了交配，还能自交!”，但是植物自交还好理解，可是当动物也能“自交繁殖”，那画面真的不敢想象!没有伴侣怎么生小孩?下面就让我们一起去..
2024-12-17
世界奇闻 科学梦想还是资源浪费？杨振宁与王贻芳如何看待对撞机计划
21世纪是信息技术爆炸的时期，也是以技术论成败的时期。特别是各个大国之间，想要在国际地位中占有一席之地，高新技术是非常重要的。我国现在已经成为了国际大国，我国的各种高科技技术也在不断发展，在高科技技术中有一门学科非常的重要，那就是物理学，而在物理学中有一个设备非常重要，那就是对撞机，中国到底要不要建造..
2024-12-16
世界记录 挑战吉尼斯世界纪录 《赳赳大秦》"剧本"如何变成"图纸"
《赳赳大秦》剧场 记者 王健 摄近年来，红火的演艺市场带动了文旅消费升级，随着各类演出的爆火，各地也在不断新建剧院。这些崭新的建筑不仅为演出提供了更好的场地，也成为不少城市的新地标和文化景观，塑造了城市气韵，展示着城市繁华。11月8日，全国首个超大型秦文化主题演艺《赳赳大秦》剧场成功挑战吉尼斯世界纪录，获..
2024-12-14
历史百科 夏侯惇有哪些功劳？为何曹操如何器重他？
夏侯惇当时是什么官呢?他那时同时担任陈留、济阴两郡太守，还身居军职建武将军。当时曹操也就只是拥有四五个郡的地盘，可却交给了夏侯惇两个郡。平安时做官，权利大于责任;困难时做官，责任大于权利。在曹操最困难的时候，夏侯惇做的官多，大，责任最重。夏侯惇不负使命，身为将军，“身自负土，率将士劝种稻”，解决了曹军..
2024-12-14