怎样使用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调出运行宏窗口，然后单击“执行”按钮，可以看到所有具有合并属性的单元格已被选中