wps表格2005的選擇性粘貼中的運算項有加減乘除運算，唯獨沒有&運算(即連接)，見圖一所示。這使工作中某些需求難以滿足。

圖一成績表

　　假設需要輸入以下內(nèi)容，因沒有連接功能，只好將重復的字符重復的輸入，無疑降低了工作效率。

　　客戶地址

　　廣東省東莞市全興有限公司

　　廣東省東莞市宏運有限公司

　　廣東省東莞市中天有限公司

　　廣東省東莞市月滿樓有限公司

　　廣東省東莞市興又盛有限公式

　　解決思路：

　　用VBA為WPS表格2005增設一個“選擇性粘貼——連接”的功能，置于右鍵菜單方便調(diào)用。

　　步驟1.建立“選擇性粘貼——連接”的功能的宏

　　本例假設你的WPS已具備VBA環(huán)境；

　　1.新建工作簿；

　　2.用快捷鍵ALT+F11打開VBE環(huán)境；

　　3.單擊菜單【插入】/【模塊】，在模塊中輸入以下代碼：

　　Sub選擇性粘貼__連接() DimrngAsString,NewShtAsString,OldShtAsString,texts,iAsByte,ansAsByte IfActiveSheWPS表格.PRotectContentsThenMsgBox"工作表已保護,本程序拒絕執(zhí)行!",64,"提示":ExitSub OnErrorGoToendd rng=Selection.Address OldSht=ActiveSheWPS表格.Name application.DisplayAlerts=False WorksheWPS表格s.Add NemSht=ActiveSheWPS表格.Name Range("a1").Select ActiveSheWPS表格.Paste IfActiveSheWPS表格.UsedRange.Count>1Then MsgBox"只能連接單個單元格的值。",64,"andysky" GoToendd EndIf texts=Selection.Text Application.ScreenUpdating=True SheWPS表格s(OldSht).Select ans=InputBox("請選擇連接于目標前還是連接于目標后。"&Chr(10)&"1：連接于目標之前；"_ &Chr(10)&"2：連接于目標之后。","連接方式",1) Fori=1ToSelection.Count If--ans=1ThenSelection(i)=texts&Selection(i) If--ans=2ThenSelection(i)=Selection(i)&texts Next endd: WorksheWPS表格s(NemSht).DelWPS表格e EndSub

　　步驟2.將宏功能加入右鍵菜單中

　　1.用快捷鍵CTLR+R打開“工程資源管理器”，在左邊的窗格中找到“ThisWorkbook”并雙擊；

　　2.在右邊的代碼窗口輸入以代碼(兩段代碼：第一段為將工能加到右鍵菜單，另一段為關閉Excel時恢復右鍵)：

　　PrivateSubWorkbook_Open() WithApplication.CommandBars("cell").Controls.Add(Type:=msoControlButton,before:=4,Temporary:=True) .Caption="選擇性粘貼__連接(&Paste)" .OnAction="選擇性粘貼__連接" EndWith EndSub PrivateSubWorkbook_BeforeClose(CancelAsBoolean) Application.CommandBars("CELL").ResWPS表格 EndSub

　　步驟3.將工作簿另存為默認模板

　　1.關閉VBE窗口返回工作表；

　　2.單擊菜單【文件】/【另存為】，在保存類型處選擇“WPS表格模板文件”。

圖三存為模板

　　步驟4.測試效果

　　1.選擇菜單【文件】/【本機上的模板】，在列表中選擇剛才存放的模板；

圖四選擇模板

　　2.在工作表中輸入以下數(shù)據(jù)(見圖五)，然后復制A9，然后選擇A2：A7，單擊右鍵，選擇菜單中的“選擇性粘貼__連接”；

圖五待輸入資料

圖六新加的右鍵菜單

　　3.此時程序彈出對話框，見圖七，在里面輸入1表示連接于前。單擊確定后最后結果如圖八所示。

圖七選擇方式

圖八最后的效果

　　結束語：WPS表格支持VBA進行二次開發(fā)，這使得它更具有靈活性。當默認的功能難以滿足我們工作需求時，不妨用VBA來處理吧。（本文出自金山）