1、 打开一个Excel的文件，在表格中输入简单的表格，比如学生成绩表格。
2、 接着，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并选择按钮控件。
3、 然后，在表格中绘制出按钮控件，并修改控件名称。
4、 接着，鼠标左键单击【查看代码】按钮。
5、 然后，在代码窗口中输入VBA语句，比如输入定义变量语句，并选择字符串类型。
6、 接着，在代码窗口中输入读取单元格的VBA语句。
7、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序读取数据，并输出到右边的单元格中，显示出数据了，通过这样的操作，就可以用VBA读取合并单元格数据了。
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2017-08-19
思路：
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本回答被网友采纳
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本回答被网友采纳
第2个回答 2017-07-14
合并后的单元格的值实际仍只存储在第一个子单元格中（即左上角的那个单元格），例如：A1:C3,这九个单元格合并后，合并后的值，仍只存在于A1中。所以获取Range("A1")单元格的值即可
第3个回答 2017-08-19
合并后就是A1了，A2应该没数据了
相似回答