为WPS表格增加选择性粘贴--连接
发布时间:2023-06-12 13:59:58
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来处理吧。
猜你喜欢
- 1.打开WPS文档,首先先输入选项的答案,然后选中答案内容 2.接着右键选中的内容,然后选择“项目符号和编号”,在
- Excel 2007的“开发工具”选项卡中有许多与程序开发和XML功能相关的命令,包括“代码”、“控件”、“XML”和“修改”组。利用该选项
- Excel批量取消行列隐藏的方法一般的方法:1、拖动选取所有含隐藏列的列区域,右键菜单 – 取消隐藏2、拖动选取所有含隐藏行的行区域,右键菜
- Excel中统计某分段人数具体该如何用函数进行统计呢?下面是小编带来的关于excel 利用函数统计某分段人数的方法,希望阅读过后对你有所启发
- 蓝屏问题是所有电脑经常遇到的问题,所以用户们在使用电脑的时候经常会遇到蓝屏问题,遇到问题就要解决。这时候就可以生成蓝屏dump文件提供给专业
- 做人事管理的某位朋友,说想要用函数查询单位不同部门员工信息,随意输入单位,所在部门的员工信息会自动查询,结果如下:上中的查询效果是由函数VL
- 在word2003中,用户可以根据自己的操作习惯来自定义工具栏,例如将自己常用的命令添加到自定义的工具栏上。具体操作如下:1.打开“自定义”
- 在word文档中,为了文章看起来更加有创意,常常会制作一些个性化的模板,保存起来方便下去使用。那么word文档模板该怎么保存并使用呢?一、把
- 工作中有时需要对EXCEL整个页面进行截图 ,而当EXCEL页面很大,特别是超过一个屏幕时,就没办法通过QQ、键盘等截图工具来进行截图,那么
- 对于名次排序,许多人都是用排序,再看最左边那列的数字来看名次。如果要单独填写一列名次的呢?今天,小编就教大家如何Excel表格如何名次排序的
- 在编辑word文档的时候,经常需要给文档添加页码,从第一页开始添加页码很多人应该都会,那从任意页开始设置页码你会吗?今天小编要给大家介绍的就
- 在word中使用“插入”命令插入图片的方法,想必大家都懂,那么直接拖动图片来插入图片可能不怎么接触过,在下面就由小编给大家分享下word拖动
- 还是一样的,拆分的前提必须是拆分已合并的单元格,单个单元格无法拆分。步骤一、我们选择需要拆分的单元格,当您选择单元格时,“合并及居中”按钮
- 1、在左上角的“WPS文字”菜单上,单击右下角的“工具——选项”。 2、在“选项”对话框中,选择“常规与保存”选项
- 在Word 2007“选项卡”对话框中,只有一项必须用标尺无法完成的任务:设置领导者选项卡。但是 W¯¯帽子是一个引导者标签?甲前导标签产生
- 在使用Excel表格时,为了使表格看起来更漂亮,我们通常使用空白行间距的功能,那么空格后的表格会给人一种明亮的感觉吗?但是,现在很多人都不熟
- 很多时候,excel中的数字串会变成E+11…这样的格式,显示出现问题,今天,小编就教大家在Excel中进行数字显示不对的解决方法。Exce
- 今天小编为大家分享在excel的一个单元格里输入两行字或多行字方法,教程比较基础,适合新手来学习,推荐到脚本之家,有需要的朋友可以参考本文今
- win10系统的整体并不如win7可靠,各种小问题不断,比如用户尝试同步应用程序查看新电子邮件时,打开Windows Mail应用程序会遇到
- 在使用Word工具编辑文档的时候,有时候碰到一些数学计算的公式需要输入大于等于号,但是这个特殊符号很多用户都不知道如何输入,这严重影响了工作