为WPS表格增加选择性粘贴——连接

为WPS#格#增加选择性粘贴——连接 来源:WPS Office官网 为ET增加选择性粘贴——连接 ET2007的选择性粘贴中的运算项有加减乘除运算，唯独没有&运算(即连接)，见图一所 示。这使工作中某些需求难以满足。 图一成绩表 假设需要输入以下内容，因没有连接功能，只好将重复的字符重复的输入，无疑降低了工作 效率。 客户地址 广东省东莞市全兴有限公司 广东省东莞市宏运有限公司 广东省东莞市中天有限公司 广东省东莞市月满楼有限公司 广东省东莞市兴又盛有限公式 图二待输入资料 解决思路: 用VBA为WPS表格2007增设一个“选择性粘贴——连接”的功能，置于右键菜单方便调用。 “选择性粘贴——连接”的功能的宏 步骤1.建立 本例假设你的WPS已具备VBA环境; 1.新建工作簿; 2.用快捷键ALT+F11打开VBE环境; 3.单击菜单【插入】\【模块】，在模块中输入以下代码: Sub选择性粘贴__连接() DimrngAsString,NewShtAsString,OldShtAsSt 步骤2.将宏功能加入右键菜单中 1.用快捷键CTLR+R打开“工程资源管理器”，在左边的窗格中找到“This Workbook”并双击; 2.在右边的代码窗口输入以代码(两段代码:第一段为将工能加到右键菜单，另一段为关闭EXCEL时恢复右键): PrivateSubWorkbook_Open() WithApplication.CommandBars("cell") 步骤3.将工作簿另存为默认 1.关闭VBE窗口返回工作表; 2.单击菜单【文件】\【另存为】，在保存类型处选择“WPS表格模板文件”。 图三存为模板 步骤4.测试效果 1.选择菜单【文件】\【本机上的模板】，在列表中选择刚才存放的模板; 图四选择模板 2.在工作表中输入以下数据(见图五)，然后复制A9，然后选择A2:A7，单击右键，选择菜单中的“选择性粘贴__连接”; 图五待输入资料 图六新加的右键菜单 3.此时程序弹出对话框，见图七，在里面输入1表示连接于前。单击确定后最后结果如图八所示。 图七选择方式 图八最后的效果 结束语:ET支持VBA进行二次开发，这使得它更具有灵活性。当默认的功能难以满足我们工作需求时，不妨用VBA来处理吧。