日期:2022-09-28 16:21:06人气:15
方法/步骤首先,我们在任意工作表标签上右击选择,查看代码,进入下一步
进入VBE界面以后,我们在工程窗口在,在工作表名称中标签上右击插入,选择插入模块
模块插好后,双击模块,粘贴如下代码:复制内容到剪贴板Sub合并单元格()DimMrow,i,k,dAsObjectApplication.DisplayAlerts=FalseSetd=CreateObject(scripting.dictionary)WithSheets(1)Mrow=.Cells(Rows.Count,1).End(3).RowFori=1ToMrowd(.Cells(i,1))=NextFork=0Tod.Count-1Fori=1ToMrow-1If.Cells(i,1)=.Cells(i+1,1)Then.Range(Ai:Ai+1).MergeEndIfNextNextEndWithApplication.DisplayAlerts=TrueEndSub代码粘贴完成后,需要关闭VBE编辑框,点X标记即可关闭
在开发工具中点击控件插入一个按钮控件,在工作表中鼠标拖动一个大小合适的按钮
右击新建的按钮,选择指定宏,选择我们合并单元格,即我们刚刚写的代码,然后点击确定完成
一切OK之后,我们只需要轻轻点击一下按钮,看到了吧,已经合并好了
高颜值的千玺夏日陪伴首选机!华为nova11Pro定制礼盒正式开售 千玺视屏
(501)人喜欢2023-08-24 16:26:10苹果手机怎么查看已经删除的信息 苹果手机怎么查看已经撤回的消息
(523)人喜欢2023-08-24 16:26:09手机老是收到垃圾短信怎么回事 手机老是收到垃圾短信是怎么回事
(512)人喜欢2023-08-24 16:26:09vivoS17Pro和vivoS16Pro怎么选 vivos1pro和oppor17哪个好
(544)人喜欢2023-08-24 16:26:0912306一般几点放余票 为什么12306放票就秒光
(664)人喜欢2023-08-24 16:26:09小米MIXFold3摄像头像素是多少
(457)人喜欢2023-08-24 16:26:09声明: 本站所有文章来自互联网搜索结果, 如果侵犯到你的权益 请提供版权证明来信告知,我们会在3个工作日之内删除 本站为非赢利性网站 不接受任何赞助和广告
Copyright 2005-2022 baike.pingguodj.com 酷帝达百科 客服邮箱:s2s2s2-s@outlook.com