合并单元格情况下怎么快速把相同的内容再次合并在一起？

Posted 2023-05-15

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了合并单元格情况下怎么快速把相同的内容再次合并在一起？相关的知识，希望对你有一定的参考价值。

如下图，是某单位员工信息表，现在老板要求将部门列相同部门单元格合并在一起。

请点击输入图片描述

点击如下图选项方方格子（这是一款Excel插件，具体的下载安装方法百度即可）

请点击输入图片描述

点击合并转换

请点击输入图片描述

点击合并相同单元格

请点击输入图片描述

在弹出对话框，区域选项中输入要合并单元格区域，然后点击确定即可

请点击输入图片描述

END

2、数据透视表法

此方法较为复杂，一定要有耐心哦！在表格最后插入一行辅助列，并辅助列内填充序号。并将表格按部门列升序排列。

请点击输入图片描述

单击表格任意单元格，然后点击插入，数据透视表，在弹出的创建数据透视表对话框中保持所有默认选项不变，单击确定。

请点击输入图片描述

依次将部门列和辅助列字段拖动到行区域

请点击输入图片描述

点击设计，点击分类汇总，选择它下面的不显示分类汇总，再单击总计下的对行和列禁用，再单击报表布局下的以表格形式显示。

请点击输入图片描述

点击数据透视表任意单元格，右击鼠标，选择数据透视表选项，点击布局和格式，勾选合并且居中排列带标签的单元格，点击确定。

请点击输入图片描述

选中合并单元格所在的单元格区域，单击格式刷，单击数据源表中的 A2 单元格

请点击输入图片描述

参考技术A 在制作Excel表格时，经常需要将相同内容的单元格进行合并，本篇文章分享3种快速批量合并相同内容单元格的方法。
下图为待处理的数据源
方法一：使用分类汇总
合并A列中相同内容的单元格
步骤1：选中A列数据区域，点击数据—分类汇总，单击确定。
得到结果如下：
步骤2：从A2单元格开始向下选中A列数据区域，按Ctrl+H键，调出定位对话框，在对话框中选择空值，选中空值单元格区域，点击开始—合并后居中，合并空值单元格。
合并结果如下：
步骤3：选中B列数据，点击数据—分类汇总，在“分类汇总”对话框中，点击“全部删除”。
删除结果如下：
步骤4：选中A列数据，使用格式刷将A列格式复制到B列，删除A列数据。
最终结果如下：
方法二：使用数据透视表
步骤1：选中数据区域，点击插入—数据透视表，调出“数据透视表”对话框，点击确定。
步骤2：将字段小组、姓名、工号、性别、业务能力分类依次添加到行标签，销量、销售额添加到值标签；右键点击任一数据透视表所在单元格，选择数据透视表选项，在打开的对话框的显示页面下，勾选经典布局；点击设计-分类汇总，取消分类汇总显示。
得到如下数据透视表：
步骤3：右键点击任一数据透视表所在单元格，选择数据透视表选项，打开“数据透视表选项”对话框，点击“布局和格式”，勾选“合并且居中排列带标签的单元格”。
得到下表：
步骤4：选中整个工作表将数据粘贴为值。
最终结果如下：
方法三：使用vba代码
步骤1：点击开发工具—插入—插入命令按钮控件，并将控件标题修改为“纵向合并”。
步骤2：右键点击命令按钮，选择查看代码，打开VBA编辑器，在代码窗口输入以下代码：
Private Sub CommandButton1_Click()
Dim a%, b%
Dim n As Long
n = Selection.Rows.Count '选中区域的行数
a = Selection.Row '选中区域的起始行
b = Selection.Column '选中区域的起始列
Application.DisplayAlerts = False '禁用警告提示
For i = a + n - 1 To a + 1 Step -1 '从选中区域的最后一个单元格向上循环
If Cells(i - 1, b) = Cells(i, b) Then '若当前单元格内容与上一个单元格内容相同，则
Range(Cells(i - 1, b), Cells(i, b)).Merge '合并当前单元格和上一个单元格
End If
Next
Application.DisplayAlerts = True '恢复警告提示
End Sub
结果展示：