谈一谈：WPS表格怎么快速输入重复内容

liukai

西虹网 西虹网　　表格怎么快速输入重复内容呢?很多朋友都还不了解，大大增加了不必要的劳动时间。下面小编就给大家讲解一下，希望对你们有所帮助。WPS官网下载https://www.wpssoft.com/download.html欢迎来到wps官网，这里提供最新版WPS下载,最新WPS OFFICE办公软件及其全部组件的免费WPS下载服务。作为国内领先的办公软件，WPS电脑版集成了文字处理、电子表格和演示文稿等多种功能，完美满足您的日常办公需求。WPS界面简洁直观，操作便捷，即使是办公新手也能快速上手。WPS下载到电脑上，您将享受最新功能和安全保障。
西虹网 西虹网

西虹网 西虹网
西虹网 西虹网　　假设需要输入以下内容，因没有连接功能，只好将重复的字符重复的输入，无疑降低了工作效率。
西虹网 西虹网
西虹网 西虹网　　选择性粘贴
西虹网 西虹网
西虹网 西虹网　　客户地址：
西虹网 西虹网
西虹网 西虹网　　广东省东莞市全兴有限公司。
西虹网 西虹网
西虹网 西虹网　　广东省东莞市宏运有限公司。
西虹网 西虹网
西虹网 西虹网　　广东省东莞市中天有限公司。
西虹网 西虹网
西虹网 西虹网　　广东省东莞市月满楼有限公司。
西虹网 西虹网
西虹网 西虹网　　广东省东莞市兴又盛有限公式。
西虹网 西虹网
西虹网 西虹网　　解决思路：
西虹网 西虹网
西虹网 西虹网　　用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.ScreenUting=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
西虹网 西虹网
西虹网 西虹网　　步骤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").Reset EndSub
西虹网 西虹网
西虹网 西虹网　　步骤3.将工作簿另存为默认模板
西虹网 西虹网
西虹网 西虹网　　1.关闭VBE窗口返回工作表;
西虹网 西虹网
西虹网 西虹网　　2.单击菜单【文件】【另存为】，在保存类型处选择“WPS表格模板文件”。
西虹网 西虹网
西虹网 西虹网　　步骤4.测试效果
西虹网 西虹网
西虹网 西虹网　　1.选择菜单【文件】【本机上的模板】，在列表中选择刚才存放的模板;
西虹网 西虹网
西虹网 西虹网　　2.在工作表中输入以下数据，然后复制A9，然后选择A2：A7，单击右键，选择菜单中的“选择性粘贴__连接”;
西虹网 西虹网
西虹网 西虹网　　3.此时程序弹出对话框，在里面输入1表示连接于前。单击确定后最后结果。
西虹网 西虹网
西虹网 西虹网　　以上就是小编给大家带来的全部内容，希望可以帮助到大家!