善用VBA 提高工作效率

大江东去

在开始介绍本期的VBA相关技巧之前，我们先来复习一下VBA的操作方法：按下“Alt+F11”组合键，打开Microsoft Visual Basic for Applications编辑器窗口，依次选择“插入/模块”，在右侧窗格插入一个空白模块，手工输入或粘贴代码。代码检查无误之后，选择“文件/关闭并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”组合键，打开“宏”对话框，选择并运行宏即可实现相应操作。

利用VBA代码快速查找数据

并提取内容

在工作中遇到一个问题，要求从Sheet2工作表查找出相关会员的分数和总排名（如图1），并将其显示在Sheet3，由于原始表格的数据太大，使用公式的话耗费的时间相对比较多，领导并不满意，因此考虑使用VBA代码实现上述任务。

按下“Alt+F11”组合键，打开Microsoft Visual Basic for Applications编辑器窗口，依次选择“插入/模块”，在右侧窗格插入一个空白模块（如图2），在这里手工输入或粘贴如下代码（相关代码可关注电脑迷微信回复“201506vba1”获取下载链接）。

上述代码检查无误之后，依次选择“文件/关闭并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”组合键，打开“宏”对话框，选择并运行宏，很快就可以完成数据查找和复制的任务。

利用VBA代码批量删除特定行

最近从金蝶财务软件中导出相关的明细帐（如图3），需要删除其中包含“期初余额”、“本日合计”、“本月合计”、“本年累计”、“结转下年”单元格所在的行，由于数据量接近数十万条，手工删除显然相当麻烦。我们可以使用VBA代码解决这一问题。

按下“Alt+F11”组合键，打开Microsoft Visual Basic for Applications编辑器窗口，依次选择“插入/模块”，在右侧窗格插入一个空白模块。经过分析，包含相关单元格内容的行，在B列均为空白，因此我们可以在模块窗格手工输入或粘贴如下代码（相关代码可关注电脑迷微信回复“201506vba2”获取下载链接）（如图4）。

该代码换了一种思路，主要是删除B列非空白的数据，检查无误之后，依次选择“文件/关闭并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”组合键，打开“宏”对话框，选择并运行宏，很快就可以完成批量删除的任务（如图5）。

利用VBA代码拼音

提取注音文本

手头有一篇拼音标注的佛经注音校对文档，其中的拼音是使用域代码实现的，切换域代码之后（如图6），可以发现大量类似于“（chénɡ），乘）”的文字，现在希望借助某种手段，将其中的注音文本提取出来复制到文档的末尾，除了手工操作之外，有没有简单一些的方法呢？

利用VBA代码可以解决这一问题，按下“Alt+F11”组合键，打开Microsoft Visual Basic for Applications编辑器窗口，依次选择“插入/模块”，在右侧窗格插入一个空白模块，手工粘贴或输入代码（相关代码可关注电脑迷微信回复“201506vba3”获取下载链接）。

代码检查无误之后，依次选择“文件/关闭并返回到Microsoft Word”命令，返回Word主界面，按下“Alt+F8”组合键，打开“宏”对话框，选择并运行宏，很快就可以得到结果（如图7）。

利用VBA代码实现复杂查重任务

最近在工作中遇到一个比较复杂的要求，需要对“数据表”工作表中B列（户口编号）、D列（户主姓名）进行查重操作，希望在查询到重复的户主信息之后，将相关信息在“校验信息”工作表A列的空白单元格显示。我们可以通过VBA代码实现上述要求：

按下“Alt+F11”组合键，打开Microsoft Visual Basic for Applications编辑器窗口，依次选择“插入/模块”，在右侧窗格插入一个空白模块（如图8），手工输入或粘贴如下代码（相关代码可关注电脑迷微信回复“201506vba4”获取下载链接）。

代码中的“[A2：A10000]”表示放置查重信息的区域，“[A2]”表示起始单元格，也可以根据实际情况重新调整。检查无误之后，选择“文件/关闭并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”组合键，打开“宏”对话框，选择并运行宏，即得（如图9）。