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

Question

如题所述

Answer 1

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



请点击输入图片描述

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



请点击输入图片描述

点击合并转换



请点击输入图片描述

点击合并相同单元格



请点击输入图片描述

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

请点击输入图片描述

END

2、数据透视表法

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



请点击输入图片描述

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



请点击输入图片描述

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



请点击输入图片描述

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



请点击输入图片描述

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



请点击输入图片描述

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



请点击输入图片描述

Answer 2

在制作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
结果展示：本回答被网友采纳