怎样使用VBA取得合并单元格的首个和末尾地址？

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调出运行宏窗口，然后单击“执行”按钮，程序将弹出提示框，显示合并单元格地址