当前位置：首页 > 科技 > 正文

VBA常用小代码102：批量合并相同值单元格

茫然走在海边，看那潮来潮去，徒劳无功想把 每朵浪花记起……

诸君好，我们今天分享的VBA小代码内容是批量合并相同值的单列单元格。

照例举个例子，如下图所示，A列是班级字段，需要将相同的班级单元格修改为合并单元格……。

代码如下：

Sub MergeRange()

'EH技术论坛：VBA编程学习与实践 看见星光

Dim Rng As Range

Dim i&, Col&, Fist, Last

Set Rng = Application.InputBox('请选择单列数据列！', Type:=8)

'用户选择数据列

Set Rng = Intersect(Rng.Parent.UsedRange, Rng)

'intersect语句避免用户选择整列造成无谓运算

Col = Rng.Column 'Rng所在列

Fist = Rng.Row

'Rng开始行，用户选择的区域并不是一定从第一行开始，因此需要此句判断

Last = Fist Rng.Rows.Count - 1 'Rng结束行

Application.ScreenUpdating = False '取消屏幕更新

Application.DisplayAlerts = False

'取消消息提醒。当有值单元格被合并时屏蔽提示信息

Rng.Parent.Select '激活Rng对象所在的工作表，避免跨工作表操作问题

For i = Last To Fist 1 Step -1

'对Rng进行从后向前遍历

If Cells(i, Col) = Cells(i - 1, Col) Then

Cells(i - 1, Col).Resize(2, 1).Merge

End If

Next

Rng.VerticalAlignment = xlCenter '格式上下居中

Application.ScreenUpdating = True

Application.DisplayAlerts = True

MsgBox '合并完成。'

End Sub

小贴士：

1，该段代码只支持单列单元格区域，例如A10:A20，B2:B500等。

2，由于merge合并后的单元格区域只保留右上角首个单元格的值，因此该段代码遍历单元格区域的顺序是从后向前，而不是从前向后，后者是新人常出错之处。

3，当然也可以采用从前向后的遍历顺序，先将Rng装入数组，对数组中的数据进行遍历判断是否等同，标记头尾行号，再批量合并单元格。该方法的效率也会高于遍历单元格两两合并的方法。

……感冒头疼……听完大海，就说晚安~

一码不扫，
可以扫天下？

ExcelHome

VBA编程学习与实践

你可能想看：

VBA常用小代码103：实现去重且自动显示列表的数据有效性

我们今天聊的内容是单元格的数据有效性（2010版本后更名为数据验证）：如何创建去除重复项后的下拉列表，在表格的A列创建去除重复人名后的数据验证下拉列表：'如果选择的单元格不存在于A列,Cells(Ro...

Excel VBA引用单元格区域有哪些方法？

VBA中可以使用Range属性返回单元格或单元格区域,图 11使用Range属性引用单元格区域：Range属性返回活动表的一个区域。使用Cells属性返回一个Range对象，Cells属性指定单元格区...

快速将批注内容批量复制到单元格中，你花了半天别人只要了五秒钟

Excel单元格中批注大家应该不陌生，如何将批注的内容批量的导出复制到对应单元格中。我们需要将C列每个单元格中的批注内容，单独的复制到D列对应人员的位置。如何自定义函数，快速批量的复制单元格批注。我们...

批量将图片插入到Excel中，且自动调整图片大小以适应单元格的大小！

如何将一个文件夹内所有的图片批量插入到Excel工作表的B列中，并且图片可以自动适应单元格的大小，现在我们想要将文件内的图片按照从左向右的先后顺序批量插入到Excel工作表的B列中，并且每一张图片自动...

还在被合并单元格虐？这个Excel“偷懒神器”解决你80%操作难题！

相信用过办公软件的小伙伴肯定都有合并和取消单元格的经历吧！今天就跟大家来聊一下表格中合并单元格与取消合并单元格的那些事，今天主要跟大家介绍一下关于Excel和WPS表格中批量取消\合并单元格的技巧。然...

加工中心常用G代码和M代码大全，收藏好了！

G11--程式参数输入取消（部分机床）G16--极坐标指令有效（部分机床）G36--特别固定循环（圆弧）G45--刀具位置设定（扩张）G46--刀具位置设定（缩小）G48--刀具位置设定（减半）G53...

Excel VBA 7.19 Excel跨工作薄多工作表数据合并之Excel表格多行表头

所以我们今天针对多行表头的数据汇总来分析下方法场景模拟假设我们要统计的Excel中每个表格都有表头，1) End If Next sth End If ActiveWorkbook.Close Fal...

一个单元格中有三个数，这怎么求和！

使用EVALUATE函数可以轻松解决这一类的问题。不能直接在单元格中输入”利用SUBSTITUTE函数将A列中的”也有一组经典的函数组合可以处理这类问题,在单元格B2中输入公式,=SUM(--TRIM...

EXCEL | 使用特殊符号自定义单元格格式，要什么格式你做主

单元格格式中常使用特殊符号来定义特殊格式。如果单元格的内容大于指定占位符；则显示实际数字，代表设置单元格格式为四位整数，A3单元格中数字，数字占位符“在小数点两边为无意义的零添加空格?自定义添加千分位...

自制血脉通治疗冠心病伴双下肢水肿32例临床观察分析+美味当良药 治疗高血脂合并冠心病+速效救心丸治疗冠心病可弥补西药不足+美味当良药 治疗高血脂合并冠心病

自制血脉通治疗冠心病伴双下肢水肿32例临床观察分析：采用中医活血化瘀兼利水法与地奥心血康对照治疗冠心病伴 双下肢水肿的临床观察：将56例冠心病伴双下肢水肿患者“治疗明显减少复发。

PS日常实用小技巧：3秒批量修改图片尺寸

今天的【PS日常使用小技巧】课堂，和大家分享的是——照片尺寸的批量处理方法！当你想要把图片发布到朋友圈的时候，领取更多免费视频教程↑。把图片导入PS中，在PS软件中“依次勾选或填入下面的内容！PS会根...

初中语文八上第二单元：知识清单 问题归纳 单元测试卷

于老师说 知识清单+问题归纳+单元测试卷 结识了藤野先生;并建立了深挚的情谊;《藤野先生》就是这时在厦门大学图书馆楼上写成的“三、文学常识 散文是一种自由、灵活的抒写见闻感受的...

以发包人擅自使用推定建设工程质量合格，是否要以合同有效为前提？

以发包人擅自使用推定建设工程质量合格不以合同有效为前提：则推定发包人使用了的部分建设工程质量合格。再依据《最高人民法院关于审理建设工程施工合同纠纷案件适用法律问题的解释》第2条的规定（建设工程施工合同...

常用JS代码大全

INPUT TYPE="BUTTON" NAME="Button" VALUE="ABCnet.CN" onclick="showModalDialog('http;//www.abcnet.cn')...

再好的文章也只能感动阅历相同的人

再好的文章只能感动阅历相同的人，哪会有'对牛弹琴’一说，爱写的人不要怕冷落，暂时没人欣赏，可能是还没有遇见知音。要坚信自己一定会成熟、提高的，是宝石就会被识货人收藏？还记得'和氏璧’的典故吗，无论爱上...

12种“热”藏于体内，反应的舌象、症状各不相同，自查便知

口干、咽干、咳嗽、痰粘稠、喉燥咽痛、胃胀、腰膝酸软，2、痰热郁肺，咳嗽，胸闷，豁痰止咳，手脚心热，眼干，口苦，口干：尿频，大便黏腻，6、肝胃郁热，舌边胖，胃灼热，腰酸，7、胃热：舌象——舌质红，泄泻，...

胃疼、小腹疼、肚脐周围疼、小肚子两侧疼，不同位置的疼痛，病因也各不相同！

胸骨剑突以下的这个大腹部的疼痛----多见是胃肠疾病所导致的。2、小腹疼：这个主要指的就是肚脐以下这个位置出现的疼痛，通常我们要找找肾和膀胱的问题，肾炎、膀胱炎、肾结石、输尿管结石、膀胱结石等等，都会...

苏轼临死前顿悟，留给儿子一首诗，首尾两句相同，却成了千古名作

没有谁能比苏轼还说得清。无可救药的乐天派、文豪、大书法家、画家、造酒试验家、工程师、皇帝的秘书、酒仙、专唱反调的人、诗人，而最难得的是他总能在人生不同境遇中。创作了很多带有深刻哲理的禅意诗。而这首《庐...

鳄鱼是怎么死的，人是怎么失败的，有一个相同的原因可能你想不到

孩子在看《动物世界》的时候突然问我“鳄鱼会死吗？其长寿程度竟然比乌龟还长？鳄鱼据说是世界上唯一一种不会得癌症的动物。既然鳄鱼不会得癌症，那就等于它们都会活到自然垂老吗，他发现一条鳄鱼竟然被一棵树的树藤...

VBA遍历所有文件夹的两种方法（filesearch和FileSystemObject）

另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。

Excel VBA解读（53）：高级筛选——AdvancedFilter方法

我们先使用Excel的录制宏工具录制一段进行高级筛选操作的代码，先在单元格G1中输入标题，选择单元格区域A1”则可以选择整个数据区域“就用不着每次都要选择不同的列表区域了”表明将数据复制到由参数Cop...

VB中一个服务器和多个客户端的程序

什么是VB-MAPP,为什么说能力训练用它最先进

很多家长们对很多主流机构采用的VB-MAPP教学理论体系很感兴趣，VB-MAPP体系脱胎于著名心理学家斯金纳(B.F.Skinner）对人类行为和语言的开拓性分析。30-48个月）全面评估孩子各项能力...

神奇的VBA系列-003：报表插入空白行

下面介绍的是一个职场中经常使用的功能，代码示例在标准模块中加入如下代码即可实现上面的演示功能。OnErrorResumeNext;Forn=Range("B65536").End(3).RowTo2S...

集装箱箱主代码一览

公司代码 19 CHC 中国扬子江轮船股份有限公司43 COL 德国哥伦布航运44 CON 中远(内贸)49 CPS 加拿大太平洋航运59 CSA 南美航运62 CSN 中国海运内贸线63 ...

某酒店川味红烧肉批量操作技术配方

白扣5克，干辣椒20克，白糖100克，味精鸡精各30克。老抽150克。1.将五花肉改成20厘米左右的方块放铁锅里面烧毛，2.将烧好毛的五花肉泡水后用钢丝球打磨干净。放姜葱料酒加上水小火煮至段生，捞起晾...

单元格遍历Rng代码'

上一篇
通天穴—鼻塞等症状

下一篇
一只仓鼠的死亡，却道出家庭教育的盲区

有话要说...

最新文章

取消
扫码支持 支付码