怎样使用VBA全选合并单元格？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 全选合并单元格()

    Dim arr(), rng As Range, i As Byte, indexx As String, n As String
    For Each rng In ActiveSheet.UsedRange
      If rng.MergeCells Then   '如果具有合并属性
      If Split(rng.MergeArea.Address, ":")(0) <> indexx Then
                          '如果地址为合并单元格中第一个单元格地址
      ReDim Preserve arr(i)    '重定义数组
      arr(i)=rng.Address     '对数组赋值
      i=i+1              '循环/重复
      indexx=rng.Address
    End If
End If
Next
n=Join(arr, ",")
Range(n).Select         '选择合并单元格
End Sub

5、利用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，可以看到所有具有合并属性的单元格已被选中