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吧！
更新于：2个月前
上一篇
下一篇猜你喜欢
世界记录 402Tbit/s：研究人员打破数据传输速度世界纪录
阿斯顿光子研究所（Aston Institute of Photonic Research）的学者们创造了一项新纪录，从而有可能在需求激增时稳定宽带成本。他们通过建立首个跨六个波长带的光传输系统实现以每秒 402 太比特(Tbit)的速度传输数据，超过了之前每秒 301 太比特的记录。阿斯顿大学的研究人员与一个团队合作，通过商用光纤以每秒 402 太比特..
2025-03-03-
牛百叶如何清洗才不臭？牛百叶如何煮不会硬
一般牛百叶是不煮的，确切的说是烫一下即可，牛百叶切成丝，盛漏瓢中在沸水中烫3分钟，时间一长，肯定很老，还会缩的很厉害的。你只要等水开了，放入生姜酒（生姜汁加黄酒），牛百叶切好的放下去一烫就好，捞出拌入或浇上调料汁就好。下面，就快和一起了解相关知识吧！本文目录1、牛百叶如何清洗才不臭？2、牛百叶如何煮不..
2025-03-03 
世界奇闻 探索未知：宇宙飞船如何实现深空探测？
在浩瀚的宇宙中，深空探测一直是人类探索未知的前沿。随着科技的不断进步，我们的宇宙飞船能够穿越太阳系，甚至更远，揭开宇宙的神秘面纱。那么，宇宙飞船是如何实现深空探测的呢？让我们一同走进这个迷人的领域，探索其中的奥秘。一、深空探测的意义深空探测不仅是科学研究的需要，更是人类探索精神的体现。通过探测，我们..
2025-03-02-
世界上最坚贞的树，“岁寒三友”松柏如何坚贞？
自然界原本有很多的东西都是很平常的，只是由于人类结合周边的环境与自己的理解，将很多的事物赋予了一种特殊的含义。“坚贞”一词原本是形容一个人的优良品质的一个词，但是由于有种树比较符合人类对于“坚贞”一次的理解，所以便将这种树作为了这个词的代表，下面就由我为大家介绍一下世界上最坚贞的树。1、世界上最坚贞..
2025-03-02 
美食百科 五香豆干如何炒才软
炒豆干时，记住别直接下锅炒，多加1步，好吃没怪味，真香冬至过后，年关将近，进入到“数九”时节，之后的天气也会愈发寒冷，在这时候，我们可以适量的吃一些蒜苗等具有辛辣味的食材，蒜苗中含有的辣素，食用之后，对身体也是有多种好处的。蒜苗具有大蒜的辛辣味，平时可以用来炒菜，拌面等，都非常提味，在蒜苗的多种做法..
2025-03-01
科技百科 网络数据治理峰会定档
封面新闻记者熊英英数据作为一种新型生产要素，正以更深度的方式为经济社会发展赋能。当前，数据要素有序流动面临哪些瓶颈？数据交易存在哪些法律问题？如何完善数据治理体系，释放数据要素价值，推动数字经济进一步发展？9月26日，2022 CCS成都网络安全大会暨数据治理峰会在线上举行，下午的数据治理峰会开设数字治理及数..
2025-03-01
育儿百科 如何顺利度过糖筛 糖筛检查多少时间可以出报告
如何顺利度过糖筛1.检查前两周就要开始节制饮食了，淀粉类的要少吃。糖分高的水果，甜食，蔬菜和油炸高油脂的食品也不能吃，以免体内积累太多的糖分，而导致糖筛不过。同时要多吃蔬菜，保证充足的维生素和纤维素。2.饭后一定要散步，把体内的糖分消耗掉。3.做检查前一天，8点后不要进食，禁食12小时后抽血，效果最好。喝了..
2025-02-28
科技百科 手机输入法如何打出正方形序号
简介：手机输入法在拼音和笔画状态下都可以输入①②③④，下面给大家介绍一下工具：智能手机输入法一、拼音输入法状态输入拼音“yi”点击第2个输入拼音“er”点击第2个输入拼音“san”点击第2个二、笔画输入法状态用笔画输入“一”点击第2个用笔画输入“二”点击第2个用笔画输入“三”点击第2个..
2025-02-28