Sub選擇性粘貼__連接() DimrngAsString,NewShtAsString,OldShtAsString,texts,iAsByte,ansAsByte IfActiveSheet.ProtectContentsThenMsgBox"工作表已保護(hù),本程序拒絕執(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.選擇菜單【文件】【本機(jī)上的模板】，在列表中選擇剛才存放的模板;2.在工作表中輸入以下數(shù)據(jù)，然后復(fù)制A9，然后選擇A2：A7，單擊右鍵，選擇菜單中的“選擇性粘貼__連接”;3.此時程序彈出對話框，在里面輸入1表示連接于前。單擊確定后最后結(jié)果。以上就是小編給大家?guī)淼娜績?nèi)容，希望可以幫助到大家!

與50位技術(shù)專家面對面20年技術(shù)見證，附贈技術(shù)全景圖

總結(jié)

以上是生活随笔為你收集整理的wps重复上一步快捷键_WPS表格怎么快速输入重复内容？快速输入重复内容的详细步骤...的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。