合并单元格，一个在工作中很常见的，但是是令写（工作表）公式和VBA代码的人都很不喜欢的东东，今天来讲讲与它相关的操作语法。
1、Range("A1:B2").Merge；合并A1到B2单元格，共4个单元格。也可写成： Range("A1").resize(2,2).Merge，这种写法只需知道起始单元格地址。注意：合并时如果除A1之外的单元格有数据的话，会弹出提示（会造成代码中断），只保留下A1单元格的数据。
2、Range("A1").MergeCells；MergeCells属性 是判断此单元格是否是合并单元格，是则返回True值，否返回False。只返回逻辑值。
3、Range("A2").MergeArea.Address(0,0) ；返回被合并的单元格的地址区域，地址是个范围。接前面的语句，此处返回的值为”A1：B2”，Address不带参数（0,0）返回的地址带$符号。
4、Range("a1").MergeArea.Count；合并单元格中 单元格的数量。接上面示例，返回值为4。Range("A1").MergeArea.Rows.Count；合并单元格涵盖的行数。接上面示例，返回值为2。Range("A1").MergeArea.Columns.Count；合并单元格涵盖的列数。接上面示例，返回值为2。
5、range("A1:B2").UnMerge ；拆分合并的单元格，不弹出提示，将原数据留置在A1单元格（即原合并区域最左上方的单元格中）。
示例一、将选中区域中的单元格，数据相同的给予合并，代码如下：
Application.DisplayAlerts = False
rw = Selection.Rows.Count ’得到选择区域包含的行数
cl = Selection.Columns.Count ’得到选择区域包含的列数
If rw <= 1 Or cl > 1 Then Exit Sub ’只有一行，或是多列就退出，此程序不处理多列的情况。
n = Selection.Column ’得到选择区域的列序数
If Cells(rw, n) = "" Then ’如果点选了一整列，数据之下都是”空”格子，循环浪费时间。
rw = Cells(rw, n).End(xlUp).Row
End If
For i = rw To 2 Step -1 ’倒序循环
Set Rng = Cells(i, n)
If Rng = Rng.Offset(-1) Then ’当前单元格与其上单元格相同就合并
Rng.Offset(-1).Resize(2).Merge
End If
Next i
Application.DisplayAlerts = True示例二、将选择区域中的单元格，有数据单元格向下合并“空”的单元格，代码如下：
起 = 1: 止 = 1
With Selection ‘选择区域只适合单列，且是有界的区域
For rw = 1 To .Rows.Count
If .Cells(rw, 1) = "" Then ’判断下一个单元格是否是“空”的
止 = rw
Else
.Cells(起, 1).Resize(止 - 起 + 1, 1).Merge ’不是“空”，就把之前的进行合并
起 = rw: 止 = rw
End If
If rw = .Rows.Count Then
.Cells(起, 1).Resize(止 - 起 + 1, 1).Merge
End If ‘这个IF语句只是处理最后一个数据的合并
Next rw
End With示例三、自定义函数 合并求和
Function ssum(单元格 As Range, Optional P As Integer = 0)
If P = 0 Then
rw = Application.ThisCell.MergeArea.Rows.Count
ssum = WorksheetFunction.Sum(单元格.Resize(rw))
ElseIf P = 1 Then
cl = Application.ThisCell.MergeArea.Columns.Count
ssum = WorksheetFunction.Sum(单元格.Resize(1, cl))
End If
End Function此函数作用：合并的单元格对应数据求和。函数的写法与Sub 一样的，都是在模块中写入，只是将Sub换成了Function。写完后，就可以在工作表中使用了。如图：
ssum有两个参数，括号内的（单元格 As Range, Optional P As Integer = 0），第1个参数是单元格，第2个参数是数字0或1，默认是0；数字1是用于行方向的合并单元格的求和。
