在某些特殊状况下需要先将区域中的数据合并再贴于目标单元格中，手工逐个操作显然事倍功半。本文讲述如何利用VBA自行编制一个“合并复制”功能。

　　本文假设您的WPS已安装VBA编辑器。

　　实现步骤：

　　一、建立“合并复制”工具按钮

　　1)新建工作表；

　　2)单击菜单【工具】【宏】【Visual Bisic编辑器】进入VBA代码编辑环境。

　　3)利用快捷键CTRL+R调出工程资源管理器，再双击工程资源管理器中的“ThisWorkbook”打开代码窗体。工程资源管理器见图1.

图1 工程资源管理器

　　4)在右边代码窗口输入以下代码：

　　5)代码解析：

　　第一句表示本代码在每次打开工作表时都执行；

　　第二句表示在常用工具栏添加一个按钮；

　　第三句表示按钮名字为“另类复制 CTRL+Q”；

　　第四句表示按钮影响的宏为“另类复制”；

　　第五句表示当鼠标移过按钮时显示的提示信息为“是不是感觉有用?”；

　　第六句表示在按钮前加入一条竖线。

　　另两句为结束语句。

　　光标置于代码任决位置后点F5执行本代码。然后回到ET工作表中，可以看到已添加了一个按钮。见图2所示。

图2 新建按钮

　　二、为按钮添加功能

　　1)再到第一步输入的代码后面继续输入以下代码：

　　2)代码解析

　　第一句表示宏名称；

　　第二句表示申明三个变量，并限制变量范围；

　　第三句表示当本程序有错时执行err标签后的代码；

　　第四句表示为变量i赋值，范围是1到选区单元格个数；

　　第五句和第六句共用表示用一个字符串将选择的区域中的所有字符合并起来，成为一个长字符串；

　　第七句表示将新字符串复制到 DataObject；

　　第八句表示将数据从 DataObject 移到剪贴板上，结束程序；

　　第九句表示定义一个标签，供On Error语句调用；

　　第十句表示程序出错时将弹出的提示语句；

分页：[1] [2]