1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行
Sub 取得合并单元格的首个和末尾地址()
MsgBox "单元格A1所在合并区域中" & Chr(10) & _
"第一个单元格为：" & Split(Range("a1").MergeArea.Address, ":")(0) & Chr(10) _
& "最末端单元格为：" & Split(Range("a1").MergeArea.Address, ":")(1), 64, "提示"
End Sub
5、选中A1，利用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序将弹出提示框，显示合并单元格地址
