本文作者:office教程网

为WPS表格增加选择性粘贴--连接

office教程网 2024-10-31 05:12:22
后台-系统设置-扩展变量-手机广告位-内容正文顶部
摘要:

ET2005的选择性粘贴中的运算项有加减乘除运算,唯独没有&运算(即连接),见图一所示。这使工作中某些需求难以满足。



假设需要输入以下内容,因没有连接功能,只好将重复的字符重复的输入,无疑降低了工作效率。

客户地址

广东省东莞市全兴有限公司

广东省东莞市宏运有限公司

广东省东莞市中天有限公司

广东省东莞市月满楼有限公司

广东省东莞市兴又盛有限公式

解决思路:

用VBA为WPS表格2005增设一个“选择性粘贴——连接”的功能,置于右键菜单方便调用。

步骤1.建立“选择性粘贴——连接”的功能的宏

本例假设你的WPS已具备VBA环境;

1.新建工作簿;

wps表格新建空白文档

wps表格新建空白文档 表格是工作统计数据中不可缺少的工具,今天小编为大家介绍一下wps表格,那就让我们先来看看如何新建打开空白文档呢? 首先打开wps表格,点击左上角上的“wps表格”按钮,在下拉菜单中选择“新建”下的“新建空白文档”如下图所示: 新建空白文档完成后我们就可以看到下图中的结果。

2.用快捷键ALT F11打开VBE环境;

3.单击菜单【插入】【模块】,在模块中输入以下代码:

Sub选择性粘贴__连接() DimrngAsString,NewShtAsString,OldShtAsString,texts,iAsByte,ansAsByte IfActiveSheet.ProtectContentsThenMsgBox"工作表已保护,本程序拒绝执行!",64,"提示":ExitSub one rrorGoToendd 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来处理吧。

iPad Mini体验iOS版WPS办公软件

iPad Mini体验iOS版WPS办公软件 随着移动互联业务的飞速发展,人们对于移动办公的渴求也进一步上升。面对日益普及的移动办公趋势,笔者也在近日入手了iPad,配合iOS版WPS Office软件,可实现随时随地播放PPT文档、阅读PDF资料等,并可将文档共享给工作伙伴,带来了优越的办公体验。 下面,就跟随笔者一起去体验iOS版WPS Office带来的移动办公乐趣吧! 支持全部动画及声音 在WPS Office中打开PPT文档后,屏幕左边显示了PPT中的每张幻灯片,右边则是当前页面的显示内容,通过

后台-系统设置-扩展变量-手机广告位-内容正文底部
未经允许不得转载:

作者:office教程网,原文地址:为WPS表格增加选择性粘贴--连接发布于2024-10-31 05:12:22
转载或复制请以超链接形式并注明出处 演示站

分享到:

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

留言与评论(共有 0 条评论)
   
验证码: