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吧！
上一篇
下一篇猜你喜欢
科技之最 阿基米德：古代科学的巨人，如何改变了我们的世界
在古代希腊的阳光下，有一位伟大的科学家、数学家和工程师，他的名字是阿基米德。作为历史上最杰出的科学家之一，阿基米德的贡献不仅影响了他的时代，更为后世的科学发展奠定了基础。今天，让我们一起走进阿基米德的世界，探索他的伟大发现和传奇故事。一、阿基米德的生平与背景阿基米德出生于公元前287年，位于今天的叙拉..
2025-04-06
育儿百科 孕期孕妇如何增进营养 孕妇有哪些营养食谱推荐
孕前饮食均衡不但可保持适宜体重，而且能为整个怀孕过程及宝宝健康打下坚实基础。首先，要保证足够的能量，能量主要来源于碳水化合物、蛋白质及脂肪。其次，要摄入充足的维生素及矿物质;为此每日要保证3两主食、一个鸡蛋、二两瘦肉、一袋牛奶、一盒酸奶、一斤蔬菜及200克水果、少量5克及25毫升植物油即可。主食中一半可选择..
2025-04-06
百科大全 委员称无痛分娩是该单独入医保了 如何看待无痛分娩纳入医保
无痛分娩的普及度不是很高，很多人因价格而劝退，有委员建议无痛分娩应该单独纳入医保，那么，如何看待无痛分娩纳入医保？下面八宝网小编就带来介绍。委员称无痛分娩是该单独入医保了据报道，在今年的全国两会上，全国政协委员、北京协和医学院麻醉学系主任黄宇光，提交《关于加强县域医疗机构麻醉专科护士培养，推进分娩镇..
2025-04-06
百科大全 《花琉璃轶闻》姬元溯花琉璃是如何产生火花的 姬元溯花琉璃结局是什么
《花琉璃轶闻》目前的热度还是非常不错的，姬元溯花琉璃这对cp在拉扯中产生感情，性格迥异的两个人渐渐靠近，那么，姬元溯花琉璃结局是什么？下面八宝网小编就带来介绍。《花琉璃轶闻》姬元溯花琉璃是如何产生火花的《花琉璃轶闻》改编自月下蝶影的《造作时光》，“大IP”标签加身，自然给了《花琉璃轶闻》一剧关注度。该剧..
2025-04-05娱乐之最
"震撼！娱乐圈最坚固的爱情堡垒，邓婕张国立如何共渡风雨？"
邓婕与张国立：绘梦人生，爱绘传奇序章：点亮星辰，共赴非凡之旅亲爱的朋友们，今天，让我们携手踏上一段非凡的旅程，去探寻那两位在光影交错间，以艺术为笔，爱情为墨，共同绘制人生画卷的传奇人物——邓婕与张国立。他们的故事，如同夜空中最亮的星，引领我们走进一个充满爱与梦想的世界。请跟随我的脚步，一同点亮心中的..
2025-04-04
科技之最 AI冲击下，大学如何站在科技创新最前沿？听听复旦同济校长怎么说
AI时代，大学如何站在科技创新的最前沿？7月4日，在世界人工智能大会“科研范式变革与产业发展”主题论坛，复旦大学校长、中国科学院院士金力，同济大学校长、中国工程院院士郑庆华，中国科学技术大学党委常委、副校长吴枫，上海科技大学副教务长虞晶怡，展开精彩对话。复旦大学副校长姜育刚担任对话主持人。【大学能否仍然..
2025-04-04商业之最
商业新工具，如何成就创业青年
这不只是商业的故事，更是关于人，关于命运，无论是谁，出生在哪里，都有机会越过关隘，触碰到更远的人生理想。文｜鲁皮编辑｜李天宇酒香也怕巷子深对着手机镜头，豆晓龙讲了一个笑话。直播间十来个人，评论里很快有人对他的笑话做出反应，说自己被逗笑了。这让他很兴奋，说出去的话真的有人在听，第一次直播，他一个平时不..
2025-04-04
排行榜 装修公司排行榜十大排名：性价比终极对决，该如何选择？
[附：同城装修公司排行榜查询工具“极速装修排行榜”小程序]最近朋友家新房装修踩了坑——号称全城最低价的装修队，开工后不断增项收费，完工后墙面开裂找不到人维修。这样的案例在装修旺季屡见不鲜，让很多业主开始关注装修公司排行榜。但面对网上各类榜单，究竟该信哪个？走访了37位装修过的业主发现，90%的人在对比装修..
2025-04-03