找軟件用軟件,就到華軍軟件園! 軟件發(fā)布
所在位置: 首頁 — 教程攻略 — 教程 — 其他教程  —  為WPS表格...

為WPS表格增加選擇性粘貼——連接的方法

作者: 日期:2022-06-14

WPS Office 海外版
WPS Office 海外版-12.1.0.18608

辦公軟件 占存:102MB 時間:2020-05-28

軟件介紹: WPS即 WPS Office 由金山軟件出品發(fā)行可以實現(xiàn)辦公軟件常用的文字、表格、演示等多種功能。內(nèi)存...

立即下載

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

      客戶地址

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

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

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

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

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

      解決思路:

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

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

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

      1.新建工作簿;

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

      3.單擊菜單【插入】【模塊】,在模塊中輸入以下代碼:

      Sub選擇性粘貼__連接() DimrngAsString,NewShtAsString,OldShtAsString,texts,iAsByte,ansAsByte IfActiveSheet.ProtectContentsThenMsgBox"工作表已保護,本程序拒絕執(zhí)行!",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("請選擇連接于目標(biāo)前還是連接于目標(biāo)后。"&Chr(10)&"1:連接于目標(biāo)之前;"_ &Chr(10)&"2:連接于目標(biāo)之后。","連接方式",1) Fori=1ToSelection.Count If--ans=1ThenSelection(i)=textsSelection(i) If--ans=2ThenSelection(i)=Selection(i)texts Next endd: Worksheets(NemSht).Delete EndSub

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

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

      2.在右邊的代碼窗口輸入以代碼(兩段代碼:第一段為將工能加到右鍵菜單,另一段為關(guān)閉EXCEL時恢復(fù)右鍵):

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

      步驟3.將工作簿另存為默認(rèn)模板

      1.關(guān)閉VBE窗口返回工作表;

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


      步驟4.測試效果       1.選擇菜單【文件】【本機上的模板】,在列表中選擇剛才存放的模板;


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

WPS


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


WPS



      結(jié)束語:ET支持VBA進行二次開發(fā),這使得它更具有靈活性。當(dāng)默認(rèn)的功能難以滿足我們工作需求時,不妨用VBA來處理吧。

相關(guān)文章

最新教程 更多

谷歌瀏覽器(Google Chrome)下載網(wǎng)頁視頻的圖文操作內(nèi)容 谷歌瀏覽器(Google Chrome)下載網(wǎng)頁視頻的圖文操作內(nèi)容

電腦定時關(guān)機怎么設(shè)置?-電腦定時關(guān)機設(shè)置教程 電腦定時關(guān)機怎么設(shè)置?-電腦定時關(guān)機設(shè)置教程

華為純凈模式怎么關(guān)閉?-華為純凈模式關(guān)閉教程 華為純凈模式怎么關(guān)閉?-華為純凈模式關(guān)閉教程

電腦配置怎么看?-電腦配置查看教程 電腦配置怎么看?-電腦配置查看教程

蘋果手機突然黑屏打不開怎么辦?-蘋果手機突然黑屏打不開教程 蘋果手機突然黑屏打不開怎么辦?-蘋果手機突然黑屏打不開教程

熱門教程 更多

圖片工廠形狀圖層重命名的詳細(xì)步驟 圖片工廠形狀圖層重命名的詳細(xì)步驟

小米怎么退出安全模式?-小米退出安全模式方法 小米怎么退出安全模式?-小米退出安全模式方法

小米手機助手怎么使用?-小米手機助手使用教程 小米手機助手怎么使用?-小米手機助手使用教程

小米怎么強制重啟手機?-小米強制重啟手機方法 小米怎么強制重啟手機?-小米強制重啟手機方法

電腦定時關(guān)機怎么設(shè)置?-電腦定時關(guān)機設(shè)置教程 電腦定時關(guān)機怎么設(shè)置?-電腦定時關(guān)機設(shè)置教程