VBA中如何获取合并单元格的值

思路：
1、在需要读数的区域内循环
2、在循环体内首先判断该单元格是否为合并单元格，
是，读取合并区域的第一个单元格的值,即合并单元格的值，并作处理或保存在某单元格，跳出循环;
否，直接读取单元格的值，并作处理或保存在某单元格;

下面是VBA语句，定义 r,c 是增强程序的通用性，请视具体情况修改：
Sub a()
    Dim r As Integer '行号
    Dim c As Integer '列号
    r = 2
    c = 1
    If Cells(r, c).MergeCells Then '是否是合并单元格
        Debug.Print Cells(r, c).MergeArea.Cells(1, 1)
        '是，打印合并区域的第一个单元格的值,即合并单元格的值
    Else
        Debug.Print Cells(r, c) 
        '否，打印单元格的值
    End If
    '可把if语句块放在循环中
End Sub
━━━━━━━━━━━━━━━━━━━━━━━━━