分享

简简单单的VBA小代码,轻松解决一个让同事焦头烂额的工作!

 明灭的烟头 2017-02-06

一天,刚刚经过隔壁库房门口,库房管理员扭头看见我,说:“小伙子,你对EXCEL熟悉不?你看看这个问题怎么解决啊?我都弄了一周多了,太麻烦了!”

简简单单的VBA小代码,轻松解决一个让同事焦头烂额的工作! 他说,他领导要求他统计一个工作薄里面的所有工作表的序号总数。举例如下图例图所示,
简简单单的VBA小代码,轻松解决一个让同事焦头烂额的工作! 工作表1序号总数为3,工作表2序号总数为4,工作表3序号总数为6,所以加起来为13。这只是举例,只有三个工作表,我点击鼠标一看,好嘛,他的工作表多达800多个。如果一个个工作表去点击、查看、统计,既麻烦又费时。我思考片刻,点击菜单栏的开发工具--宏,创建了一个新宏“加入代码”,编写了一个VBA代码,如下图所示,
简简单单的VBA小代码,轻松解决一个让同事焦头烂额的工作! 它的意思是,在每个工作表的C1单元格均插入“=MAX(A1:A65536)”这段公式,以便用来统计A列的序号总数。如果C1单元格有其他的内容,你可以改其他的不用的单元格,比如H1,K1之类的。

然后执行该代码,效果如下图,简简单单的VBA小代码,轻松解决一个让同事焦头烂额的工作! 在每个工作表的C1单元格就显示了该工作表的序号总数。

最后一步,汇总所有工作表的C1的值。随便选择一个工作表,我选择工作表1,在D1单元格输入'=sum()',然后鼠标点击括号之间的位置,先点击第一个工作表的标签(左下角),然后按住键盘上的shift不松手,点击最后一个工作表的标签,再松手,输入C1,回车。如下图所示,简简单单的VBA小代码,轻松解决一个让同事焦头烂额的工作!

于是结果便统计出来了。

库房管理员当时泪流满面,五体投地,没想到自己做了一周还没完成三分之一的工作,几分钟就完成了!

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多