为WPS表格增加选择性粘贴——连接
ET2005的选择性粘贴中的运算项有加减乘除运算,唯独没有&运算(即连接),见图一所示。这使工作中某些需求难以满足。
假设需要输入以下内容,因没有连接功能,只好将重复的字符重复的输入,无疑降低了工作效率。
客户地址
广东省东莞市全兴有限公司
广东省东莞市宏运有限公司
广东省东莞市中天有限公司
广东省东莞市月满楼有限公司
广东省东莞市兴又盛有限公式
解决思路:
用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表示连接于前。单击确定后最后结果如图八所示。
结束语:ET支持VBA进行二次开发,这使得它更具有灵活性。当默认的功能难以满足我们工作需求时,不妨用VBA来处理吧。
相关内容
-
借用WPS表格的数据有效性检测输入数据的正确性
借用WPS表格的数据有效性检测输入数据的正确性阻止无效输入,...
-
WPS表格中如何设置输入不可重复让我们无法输入
WPS表格中如何设置输入不可重复让我们无法输入重复项,重复,输...
-
使用WPS下拉菜单功能实现快速输入数据提高工作
使用WPS下拉菜单功能实现快速输入数据提高工作效率,输入,数据...
-
WPS中如何自动取消当输入网址时自动转换成超链
WPS中如何自动取消当输入网址时自动转换成超链接的形式,超链...
-
WPS巧用数据有效性制作下拉菜单实现快速准确输
WPS巧用数据有效性制作下拉菜单实现快速准确输入数据,输入,数...
-
WPS表格设置错误输入提示框来提醒操作者输入了
WPS表格设置错误输入提示框来提醒操作者输入了错误数据,输入,...
-
在WPS表格中输入平方和立方符号即上标2与上标3
在WPS表格中输入平方和立方符号即上标2与上标3的多种方法,上...
-
WPS表格使用粘贴为图片功能轻松完成截图如同QQ
WPS表格使用粘贴为图片功能轻松完成截图如同QQ截图一样,截图,...
-
WPS表格复制前的单元格及行的选择与粘贴图文介
WPS表格复制前的单元格及行的选择与粘贴图文介绍,选择,粘贴,...
-
WPS表格使用数据有效性来限制单元格中输入指定
WPS表格使用数据有效性来限制单元格中输入指定内容,输入,点击...
-
在WPS表格中利用批注和数据有效性为单元格添加
在WPS表格中利用批注和数据有效性为单元格添加输入说明,输入,...
-
WPS表格中使用text函数输入英文星期日期的两种
WPS表格中使用text函数输入英文星期日期的两种方式,输入英文,...
-
wps表格利用选择性粘贴实现在某列数据的基础上
wps表格利用选择性粘贴实现在某列数据的基础上进行加减乘除,...
-
WPS表格2013中如何制作一二三级下拉菜单方便数
WPS表格2013中如何制作一二三级下拉菜单方便数据输入,下拉菜...
-
利用选择性粘贴功能为WPS2013表格数据批量添加
利用选择性粘贴功能为WPS2013表格数据批量添加固定值,数据,粘...