锐客网

  1. 首页 > 生活百科 > it技术 > >

WPS表格中迅速输入重复内容的窍门_WPS office

IT知识

软件是一系列按照特定顺序组织的计算机数据和指令的集合 。一般来讲软件被划分为编程语言、系统软件、应用软件和介于这两者之间的中间件 。硬件是“计算机硬件”的简称 。与“软件”相对,电子计算机系统中所有实体部件和设备的统称 。在WPS表格介绍中，小编教了大家很多使用WPS表格的小技巧，都能有效提高效率 。下面小编就再为大家来讲讲另一个小窍门 。相信小伙伴们都会遇到在录入文字的时候，有时会遇到很多重复的字符，但是都只是重复再编写，现在就说说如何提供重复字符的编辑速度 。
假设需要输入以下内容，因没有连接功能，只好将重复的字符重复的输入，无疑降低了工作效率 。

WPS表格中迅速输入重复内容的窍门_WPS office

文章插图

选择性粘贴
客户地址：
广东省东莞市全兴有限公司 。
广东省东莞市宏运有限公司 。
广东省东莞市中天有限公司 。
广东省东莞市月满楼有限公司 。
广东省东莞市兴又盛有限公式 。
解决思路：
用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
步骤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表示连接于前 。单击确定后最后结果 。
【WPS表格中迅速输入重复内容的窍门_WPS office】以上就是对WPS表格中重复字符的快速编写的方法 。方法很简单，主要是要经过VBE环境，来对模块进行调整，代码就可以复制上面小编提供的内容，当然，具体内容就需要自行更改下，之后保存模板文件就可以了 。接下来就是用选择性粘贴来录入文字 。

    推荐阅读


    上一篇：Office 2010安装技巧推荐_Word专区

    下一篇：倒计时工具，WPS表格一样能搞定_WPS office