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

来源：金山软件作者：出处：巧巧读书 2008-07-03 进入讨论组

关键词：
excel
sas
快捷键

ET2005的选择性粘贴中的运算项有加减乘除运算，唯独没有&运算（即连接），见图一所示。这使工作中某些需求难以满足。

　　

　　

　　假设需要输入以下内容，因没有连接功能，只好将重复的字符重复的输入，无疑降低了工作效率。　　

　　客户地址

　　广东省东莞市全兴有限公司

　　广东省东莞市宏运有限公司

　　广东省东莞市中天有限公司

　　广东省东莞市月满楼有限公司

　　广东省东莞市兴又盛有限公式

　　解决思路：

　　用VBA为WPS表格2005增设一个“选择性粘贴——连接”的功能，置于右键菜单方便调用。

　　步骤1.建立“选择性粘贴——连接”的功能的宏

　　本例假设你的WPS已具备VBA环境；

　　1.新建工作簿；

　　2.用快捷键ALT+F11打开VBE环境；

　　3.单击菜单【插入】\【模块】，在模块中输入以下代码：

　　Sub选择性粘贴__连接() DimrngAsString,NewShtAsString,OldShtAsString,texts,iAsByte,ansAsByte IfActiveSheet.ProtectContentsThenMsgBox"工作表已保护,本程序拒绝执行！",64,"提示":ExitSub OnErrorGoToendd rng=Selection.Address OldSht=ActiveSheet.Name Application.DisplayAlerts=False Worksheets.Add NemSht=ActiveSheet.Name Range("a1").Select ActiveSheet.Paste IfActiveSheet.UsedRange.Count>1Then MsgBox"只能连接单个单元格的值。",64,"andysky" GoToendd EndIf texts=Selection.Text Application.ScreenUpdating=True Sheets(OldSht).Select ans=InputBox("请选择连接于目标前还是连接于目标后。"&Chr(10)&"1：连接于目标之前；"_ &Chr(10)&"2：连接于目标之后。","连接方式",1) Fori=1ToSelection.Count If--ans=1ThenSelection(i)=textsSelection(i) If--ans=2ThenSelection(i)=Selection(i)texts Next endd: Worksheets(NemSht).Delete EndSub进入讨论组讨论。