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

1、   打开一个Excel的文件，在表格中输入简单的表格，比如学生成绩表格。

2、  接着，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并选择按钮控件。

3、   然后，在表格中绘制出按钮控件，并修改控件名称。

4、 接着，鼠标左键单击【查看代码】按钮。

5、  然后，在代码窗口中输入VBA语句，比如输入定义变量语句，并选择字符串类型。

6、   接着，在代码窗口中输入读取单元格的VBA语句。

7、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序读取数据，并输出到右边的单元格中，显示出数据了，通过这样的操作，就可以用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

合并后的单元格的值实际仍只存储在第一个子单元格中（即左上角的那个单元格），例如：A1:C3,这九个单元格合并后，合并后的值，仍只存在于A1中。所以获取Range("A1")单元格的值即可

合并后就是A1了，A2应该没数据了