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吧！
上一篇
下一篇猜你喜欢
明星秘密 汪小菲大s情感事件后续如何
汪小菲与大S在2021年离婚后纷争不断。后续大S于2025年2月3日因流感并发肺炎去世，相关事件仍有一系列后续发展，具体如下：- 法律事务方面：大S生前与汪小菲的离婚诉讼尚未完全结束，其名下约6亿元人民币的资产成为遗产分配焦点。根据台湾法律，具俊晔作为配偶可主张婚后新增财产的一半，子女继承的三分之二遗产将由生父汪小..
2025-06-17
天文之最 天文学的“天眼”—第谷·布拉赫如何用一生铸就最精确天文表
在浩瀚如海的科学长河中，天文学这片星空总是闪烁着最耀眼的光芒。从古代的神话传说到现代的太空探索，天文学的每一次飞跃都像是人类对宇宙深邃奥秘的又一次大胆探索。而在这众多星辰般璀璨的科学巨星中，有一位丹麦的天文学家，他用自己那双“星眼”在天幕上刻画出了最细腻的轨迹，用他那份严谨与创新，点亮了天文学的未来..
2025-06-17
世界奇闻 聚焦！新疆奇台射电望远镜封顶，它将如何探索宇宙奥秘？
射电望远镜建设的里程碑时刻在我国天文探索的征程中，又迎来了一个具有重大意义的时刻——新疆奇台射电望远镜顺利封顶。这一标志性事件，宛如一颗璀璨的星辰，在全球天文界引起了广泛的关注。射电望远镜作为探索宇宙的重要工具，能够接收到来自宇宙深处的射电波，为人类揭开宇宙的神秘面纱提供关键线索。新疆奇台射电望远镜..
2025-06-16
百科大全 笔记本如何看内存检查内存规格只用这些命令
在Windows 10上，检查计算机上安装的内存技术规格的功能在许多情况下都会派上用场。例如，当你必须解决与硬件和软件相关的问题时，创造商名称、部件号和序列号等详细信息在联系技术支持时会很有用。如果由于对内存要求高的应用程序或游戏而导致电脑性能下降，升级内存可以提高性能。此外，了解内存规格还有助于确定合适的尺..
2025-06-16
热点百科 原神如何在不战斗的情况下换角色
这次的海岛活动主线任务，长发辛焱给我留下了深刻的印象，趁着兴趣未减，打算为她写一篇角色攻略（赶在活动攻略征集结束前...）。说定位之前，我们先看一下「辛焱」的角色机制中的这些亮点：①.防御力转化护盾值的「火元素护盾」；②.增加己方角色“物理伤害加成”；③.暴击时，增加自身“普通攻击”与“重击”的攻击速度（..
2025-06-16
母婴百科 如何挑选适合婴儿的纸尿裤
今天是除夕，小编在这里祝大家钱兔无忧，钱兔似锦，兔然暴富，大展宏兔，大家除夕快乐宝宝的纸尿裤一般有S码，M码，L码，XL码，帮宝宝选择合身的纸尿裤有几个方法:第一种方法就是按照宝宝的月龄购买纸尿裤有时我们去买纸尿裤的时候，店员都会很热情地问我们宝宝有多大了，因为有时候是可以根据宝宝的月龄去购买纸尿裤的。不..
2025-06-16
母婴百科 如何预防四岁宝宝晕车
春暖花开，小长假要来了，很多家长会带孩子出去游玩。途中免不了坐车，孩子刚上车的时候还兴高采烈的，谁知，坐着坐着就闷声不响了，静静缩在一边，脸色也煞白，说“不舒服”的时候，可能立马吐你一身。妈妈看了既心疼又无奈，有什么办法预防孩子晕车呢？孩子为什么会晕车？晕车，医学名为“晕动症”。单纯的晕车，与耳朵中..
2025-06-15
历史百科 嘴唇很厚的男人命运好吗 性格如何
嘴唇很厚的男人命运好，性格也很好。虽然每个人的嘴巴几乎都不一样，但也会划分到一定的范围之内，可以从嘴巴的外观大小形状薄厚等等划分出几个不同的类别，而嘴唇不同的人运势也有极其不同的进展。嘴唇厚的男人性格嘴唇厚的男人成熟稳重，无论做任何事情绝对不会冒失的去做，而是会提前做好一切的计划和准备才会行动，只为..
2025-06-12
微信分享
扫描二维码分享到微信或朋友圈