Excel VBA学习笔记:合并单元格的相关操作

合并单元格，一个在工作中很常见的，但是是令写（工作表）公式和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是用于行方向的合并单元格的求和。