利用VBA代码实现工作表数据的遍历

林丽华

同事前来求助，某个工作簿其中有多个公司的信息，现在她希望将每个工作表的名称快速汇总到“汇总”工作表的F列，同时还希望将各个工作表内统一单元格的数值和文字汇总到“汇总”工作表的G、H列，该如何操作呢？

对于上述要求，单纯利用公式显然难度较大，毕竟这涉及到工作表的遍历，我们可以借助下面的VBA代码实现：按下“Alt+F11”组合键，打开Microsoft Visual Basic for Applications编辑器窗口，依次选择“插入→模块”，在右侧窗格插入一个空白模块，手工输入或粘贴如下代码（相关代码可关注电脑迷微信回复“201507vba1”获得，如图1）。

上述代码中的“If sh.Name <> "汇总" Then”表示将各个工作表的名称添加到“汇总”工作表，“c2”和“f2”表示各个工作表的数据，代码检查无误之后，依次选择“文件→关闭并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”组合键，打开“宏”对话框，很快就可以将各个工作表的数据汇总起来（如图2）。