快速合并单元格(1/2)

数据表如下图中A列至D列所示，需要将C列和D列的数据进行合并。每个编号组中，C列合并后，保留第一个单元格（户主姓名），结果如F列至I列所示。

示例代码如下。

Sub Demo1()lst = Cells(Activesheet.Rows.Count,1).End(xlDown).RowSet c = Cells(3, 2)Application.DisplayAlerts = FalseDo While c.Row < lstWith c.MergeArea.Offset(0, 1).Resize(.Count, 1).Merge.Offset(0, 2).Resize(.Count, 1).MergeEnd WithSet c = c.Offset(1, 0)Loopset c = Nothing
End Sub

【代码解析】
第2行代码获取A列最后数据行的行号。
第4行代码屏蔽合并单元格时的提示信息。
第5~11行代码循环处理数据行。
第6行代码中的MergeArea返回合并单元格的Range对象，例如[B2].MergeArea.Address结果为$B$2:$B$6。
第7~8行代码分别实现C列和D列的单元格合并。
第10行代码将下一个单元格赋值给变量c，注意[B2]的下一个单元格为[B7]，而不是[B3]。
第12行代码释放对象变量占用的系统资源。

快速合并单元格(1/2)相关推荐

快速合并单元格(2/2)
数据表如下图中A列至D列所示,需要将C列和D列的数据进行合并.每个编号组中,C列合并后,保留第一个单元格(户主姓名),结果如F列至I列所示. <快速合并单元格(1/2)>中讲解了利用Mer ...
WPS如何快速合并单元格并保存内容
如下图,是某公司各部门员工姓名表.现在想要将姓名列单元格快速合并并保留所有单元格内容. 选中A列合并单元格区域点击下图选项(Excel工具箱,百度它即可了解详细的下载安装方法,本文不作过多解说) 点 ...
excel之vba快速合并单元格
前言平时工作中经常会用到excel的功能, 难免有一些操作不能批量处理, 比如说某一列有100w的数据需要合并单元格, 手动去点的话, 费时费力, 又不能保证准确性. 此时一般有三种办法, 1.请出 ...
Excel中部门合并了单元格，销售额如何按部门快速合并单元格求和？
转载自品略图书馆 http://www.pinlue.com/article/2020/06/0120/3510667394452.html 在Excel中合并单元格可以说是一个又爱又恨的功能,合并了 ...
Excel——快速合并单元格
选中要合并内容的单元格,设置对其方式为[垂直居中],即选择上方菜单栏的[开始]--[垂直居中](在对齐方式选项中) 选择上方菜单栏的[开始]--[合并后居中](在对齐方式选项中),在弹出的提示框中单击 ...
计算机合并单元格怎么操作,如何在Excel中批量合并单元格（快速一步）
在制作Excel表格时,为了使您的报表更简洁和易于参考,通常是将相同的内容合并在一起,但是您需要合并许多相同的单元格. 发疯. 如何快速批量合并相同的单元格?方法 1首先打开需要合并单元格的excel ...
html表格里面怎么合并单元格的快捷键,合并单元格快捷键ctrl加什么？
01 先选择要合并的单元格,按CTRL+1键,再用"←"及"→"方向键移动到第二个选项卡,再按ALT+M键,再按确定,完成.Excel是Microsoft为使用 ...
如何加减单元格指定数字_不要再复制粘贴！高效合并单元格的方法，都在这里了！...
秋叶 Excel 数据处理学习班中,在前几节课我们就会跟学员传递: 标准基础表的每个字段,要做到最小单元化,在做数据分析的时候,比较方便统计. 但当把数据最小单元化的时候,又会出现一个问题: 「有些数 ...
excel中合并单元格快捷键
这里给大家介绍一下怎么利用合并单元格快捷键快速合并单元格. 工具/原料 excel 方法/步骤首先我们需要将"合并后居中"这一按钮添加到"快速访问工具栏" 点 ...

快速合并单元格(1/2)

快速合并单元格(1/2)相关推荐

最新文章

热门文章