1
用
VBA
在
Excel
中分解合并单元格的代码范例：
Sub
分解合并单元格并填充
()
Set
已选择的区域
= Selection
首行
=
已选择的区域
.Row
行数
=
已选择的区域
.Rows.Count
If
首
行
+
行
数
-
1
=
65536
Then
行
数
=
ActiveSheet.UsedRange.Row
+
ActiveSheet.UsedRange.Rows.Count -
首行
+ 1
首列
=
已选择的区域
.Column
列数
=
已选择的区域
.Columns.Count
For
列
=
首列
To
首列
+
列数
- 1
Set
单元格
= Cells(
首行
,
列
)
行
=
首行
While
单元格
.Row <
首行
+
行数
If
单元格
.MergeCells Then
Set
合并区
=
单元格
.MergeArea
合并区
.UnMerge
If
合并区
.Rows.Count > 1 Then
合并区
.FillDown
行
=
行
+
合并区
.Rows.Count
Else
行
=
行
+ 1
End If
Set
单元格
= Cells(
行
,
列
)
Wend
Next
End Sub
Sub
合并相同的单元格
()
Dim Rng As Range, Dic As Object, Arr, N&
Set Dic = CreateObject("scripting.dictionary")
'
创建字典项目
For Each Rng In Range("b2:b" & Cells(Rows.Count, 2).End(3).Row)
'
循环
B
列要处理的数据区
If Rng <> "" Then
'
如果单元格不为空
,
则
If
Dic.exists(Rng.Value)
Then
'
如果已存在该单元格内容对应的字典项目
,
则将当前单元格与已存
在内容进行组合
Set Dic(Rng.Value) = Union(Dic(Rng.Value), Rng)
Else
'
否则进行添加
Set Dic(Rng.Value) = Rng
End If
End If
Next Rng
If Dic.Count > 0 Then
'
如果字典项目数大于
0,
则
Arr = Dic.keys
'
将字典的
key
赋值给数组
Application.DisplayAlerts
=
False
'
关闭警告信息
(
合并单元格时会弹出警告信息
,
通过此命令禁止弹出
该信息
)

快速合并大量单元格，而且每个需要合并区域的单元格数量不固定，难道要一个个手动操作吗？
我曾经写过用 VBA 实现的方法，只要点击一下按钮就能合并区域内的所有连续的相同单元格，详情可参见 Excel VBA(20) – 批量合并单元格。
如果不想用 VBA，那么用菜单操作也能快速达成目的。
下面来看下案例。
案例：
批量合并下图 1 中的“班级”，效果如下图 2 所示。
解决方案：
1. 选中需要合并的单元格区域 --> 按 F5 --> 在弹出的“定位”对话框中点击“定位条件”
2. 在弹出的对话框中选择“空值”--> 点击“确定”
3. 此时就已经选中了区域内的所有空单元格 --> 输入公式“=A2”--> 按 Ctrl+Enter 将公式应用到所有选中区域
现在表格样式如下，A 列中的所有空白单元格中都填充了班级名。
4. 选中数据表的任意区域 --> 选择菜单栏的“数据”-->“分类汇总”
5. 在弹出的“分类汇总”对话框中按以下方式进行设置 --> 点击“确定”
分类字段：选择“班级”
选定汇总项：勾选“班级”
其他所有复选框都不要选
结果如下，数据表左边多出来一列班级分类汇总列。
6. 选中 A 列中跟 B 列的班级名称相对应的区域 --> 按 F5 --> 在弹出的“定位”对话框中点击“定位条件”
7. 在弹出的“定位条件”对话框中选择“空值”--> 点击“确定”
8. 选择菜单栏的“开始”-->“合并后居中”
所有连续的空单元格就合并起来了。
9. 选中 A 列中跟 B 列的班级名称相对应的区域 --> 选择菜单栏的格式刷 --> 将格式复制到 B 列需要合并的区域
10. 选中数据表的任意区域 --> 选择菜单栏的“数据”-->“分类汇总”
11. 在弹出的对话框中点击“全部删除”按钮
分类汇总列的内容和格式就全都删除了，只留下一个空白列。
12. 将 A 列删除 --> 选中“班级”列的内容区域 --> 选择菜单栏的“开始”-->“所有框线”，就完成了最终设置。
很多同学会觉得 Excel 单个案例讲解有些碎片化，初学者未必能完全理解和掌握。不少同学都希望有一套完整的图文教学，从最基础的概念开始，一步步由简入繁、从入门到精通，系统化地讲解 Excel 的各个知识点。
现在终于有了，以下专栏，从最基础的操作和概念讲起，用生动、有趣的案例带大家逐一掌握 Excel 的操作技巧、快捷键大全、函数公式、数据透视表、图表、打印技巧等……学完全本，你也能成为 Excel 高手。

单元格是Excel中最小的一个单位，几个概念的范围大小依次是：工作簿＞工作表＞行/列＞单元格，单元格是我们操作得最多的一类对象。

Excel 2016版里，每个工作簿的单元格行数：104 8576，列数：1 6384，单元格个数：104 8576 × 1 6384 = 171 7986 9181

一个单元格内字符容量是32767个字符，实际上，我们根本用不到这么大的容量。

VBA中单元格学习的重要性：

（1）大部分的批量操作，都是在操作单元格；

（2）单元格的表示方法与操作、信息获取方式，是使用VBA编程的基础。

单元格操作实例之多表内容合并：

原材料：3张单表+1张汇总表

                    

目标效果：



代码实现：

Sub 多表合并()

Dim i%, rs%, rss%, st As Worksheet, zdw As Worksheet

Set zdw= Sheets("整单位")                                '将汇总工作表"整单位"定义为变量zst

For i = 1 To 3

       Set st = Sheets(i & "部门")                          '将1-3每部门的工作表定义为变量st

       rs = st.UsedRange.Rows.Count                  '计算1-3部门每个表的最后一行

       rss = zdw.UsedRange.Rows.Count + 1         '计算“整单位的最后一行的下一行”

       st.Range("a2:b" & rs).Copy Cells(rss, 1)      '复制每个1-3表的数据到总表中

       Cells(rss, 3).Resize(rs - 1) = i & "部门"         '将1-3表的工作表名写入到总表对应的记录行末尾

Next

End Sub

 

 

虽然我一直不建议合并单元格，但如果老板一定要求合并也没办法。如何批量合并单元格？之前我曾经教过 VBA 和分类汇总的方法，详情请参阅
Excel VBA(20) – 批量合并单元格
Excel 批量合并单元格，量大且需要合并的行数都不一样
今天要教大家另外一种方法，就是我们平时常用的数据透视表。万万没想到，数据透视表还能这么玩。
案例：
将下图 1 中的相同班级合并单元格，效果如下图 2 所示。
解决方案：
先在空单元格中填入相应的班级名。
1. 选中 A2:A10 区域 --> 按 F5 --> 在弹出的对话框中点击“定位条件”
2. 在弹出的对话框中选择“空值”--> 点击“确定”
3. 输入“=A2”--> 按 Ctrl+Enter 回车
4. 选中数据表的任意单元格 --> 选择菜单栏的“插入”-->“数据透视表”
5. 本例为了教学方便，我将数据透视表放置在现有工作表中 --> 点击“确定”
6. 在右侧的“数据透视表字段”区域，将所有字段顺序拖入“行”区域
7. 选中数据透视表的任意区域 --> 选择菜单栏的“设计”-->“总计”-->“对行和列禁用”
8. 选择“设计”-->“报表布局”-->“以表格形式显示”
此时班级的排序是默认按拼音字母顺序排的，我们需要调整为按班级顺序排列。
9. 选中 E2 单元格 --> 输入“一班”--> 回车
10. 选中数据透视表的任意区域 --> 右键单击 --> 在弹出的菜单中选择“数据透视表选项”
11. 在弹出的对话框中选择“布局和格式”选项卡 --> 勾选“合并且居中排列带标签的单元格”
12. 选择“显示”选项卡 --> 取消勾选“显示展开/折叠按钮”--> 点击“确定”
13. 选中整个数据透视表区域 --> 选择菜单栏的“所有框线”--> 调整字体和表格列宽
单元格就全部合并好了。
很多同学会觉得 Excel 单个案例讲解有些碎片化，初学者未必能完全理解和掌握。不少同学都希望有一套完整的图文教学，从最基础的概念开始，一步步由简入繁、从入门到精通，系统化地讲解 Excel 的各个知识点。
现在终于有了，以下专栏，从最基础的操作和概念讲起，用生动、有趣的案例带大家逐一掌握 Excel 的操作技巧、快捷键大全、函数公式、数据透视表、图表、打印技巧等……学完全本，你也能成为 Excel 高手。