一起来学office，提高办公技能
　　问题情境
　　Excel跨多个工作表查询数据，用公式不好统计，尤其是遇到不断增加工作表的情况，比如：
　　上图中，要根据订货单号选择相应的货名、数量、单位、单价等信息。而这些订货单号对应货名等分布在不同的9个工作表中，而且工作表还在不断增加。
　　在这种情况下，公式显得有些苍白无力，就需要用VBA来完成跨表查询。
　　实现效果如下：
　　VBA实现
　　在代码窗口中输入以下代码（建议横屏观看）：
　　Sub多表查询（）
　　Dimi，k
　　Dimirow，icol
　　DimshtAsWorksheet
　　Range（a5：e200）。Clear清除a5到e200区域中的数据，此处200可根据数据行多少改变
　　k1
　　Application。ScreenUpdatingFalse
　　ForEachshtInWorksheets
　　Ifsht。Nameamp；lt；amp；gt；ActiveSheet。NameThen当工作表不是当前工作时，执行以下语句
　　Withsht
　　irow。Cells（。Rows。Count，1）。End（xlUp）。Row当前工作表数据行数
　　icol。Cells（1，。Columns。Count）。End（xlToLeft）。Column当前工作表数据列数
　　Fori1Toirow
　　If。Cells（i，1）。ValueSheets（1）。Cells（2，5）。ValueThen当前工作表是第一列i行数据与sheet1工作表E2单元格数值相同时
　　。Cells（i，2）。Resize（1，icol）。CopySheets（1）。Cells（4k，1）将第i行数据复制到sheet1工作表第4k行
　　kk1
　　EndIf
　　Nexti
　　EndWith
　　EndIf
　　Next
　　Application。ScreenUpdatingTrue
　　EndSub
　　如下图：
　　如果不知道按订货单号查询按钮怎么设置，可参考文章Excel让宏来替你做重复动作

驴友求助路费的行骗手法有哪些身着骑行衣、头戴骑行帽、背着山地包，一身专业装备的驴友在街头出现，以落难的名义沿街乞讨求助。吸引很多人的眼球，最后发现属于诈骗行为，那么驴友求助路费的行骗手法有哪些？驴友……支付宝安全险自动续保吗手机支付宝对于我们当中的任何一个人来说都很重要，因为我们生活中的花销几乎都会通过支付宝来进行，在方便的同时也带来了很多隐患，如果支付宝设置的不安全就会泄露很多个人信息，并且钱财……月食时为什么月亮变红白色的太阳光是由红、橙、黄、绿、蓝、靛、紫等7种颜色的光线混合形成的。当太阳光经过地球上的大气层被折射到地球背后影子里去的时候，它们都受到大气层中极其微小的大气分子的散射和吸收……外来物种对生态系统的影响外来物种会严重破坏生态平衡以及严重破坏生物的多样性，并加速物种的灭绝，下面带您简单了解一下。外来物种对生态系统的影响1、外来物种入侵会严重破坏生态平衡。外来物……保护心脏要摒弃不良习惯一个人的心跳预示着健康状况，如果心脏都不好了，那么支撑人体运作的动力就会下降。心脏的重要性不言而喻了，对于心脏的保护大家也一定会很重视，尤其是保护心脏要摒弃不良习惯。1。……癫痫急救要点癫痫这种疾病对人的危害是非常大，就目前来看相信家长对于这个问题都想有深入的了解，那么癫痫急救要点有哪些呢？下面就跟着本站小编一起来看一下吧！一、癫痫的病因癫痫俗称羊……长病假定义生病了是需要请假的，有些人因为身体的关系需要请长期病假，那么长病假定义是什么呢？下面就一起随本站小编来了解一下吧。长病假基础定义《关于加强企业职工疾病休假管理保障职……坐过山车脖子疼正常吗坐过山车脖子疼正常吗？很多小伙伴们反映去坐过山车导致脖子疼，还有的甚至鼓了个大包，这是怎么回事呢？为什么坐了过山车脖子疼？那是因为你脖子扭到了，坐过山车还是有安全隐患的，大家一……在夏天怎么钓鱼aclasstaghrefwiki10164I4Wmhx15。html钓鱼a是一种修身养性的活动，那么大家知道在夏天应该怎么钓鱼吗？接下来这篇指南将告诉你答案。操作方法……绰号理工男小A最喜欢的名言是浓缩的都是精华！原因很简单：个子矮嘛。这小子却极有艳福呢，出乎大家的意料，一个高挑美女居然独钟于他。他朋友们见两人同行，其女友比小A竟高出一……万岁万岁万万岁为了争当领导，狮子与老虎大战，猎豹与花豹撕杀，猞猁与雪豹格斗；而猫儿在一旁看起了热闹。就在它们打得难分难解，猫儿看的入神入味之时，长颈鹿叼来了人类的任命书当场宣读：……笑对人生人生，是从生到死的过程，出生了，还没死的过程，那就是生活。人生，是一场旅行，你能走多远，完全无法把握。人生，是一场梦，梦醒了，人就消失于世界。人生，是一场戏，……