[已解决]如何在表中查找所有的合并单元格，找到后全选中呢？

蓝火雨

如何在表中查找所有的合并单元格，找到后全选中呢？

最佳答案

月排行榜 / 总排行榜

tgydslr

2014-1-23 08:24

跳转到最佳答案楼层

hwc2ycy

1.     Dim rg As Range
   
2.     Dim rg2 As Range
   
3.     For Each rg2 In ActiveSheet.UsedRange
   
4.         If rg2.MergeCells Then
   
5.             If rg Is Nothing Then
   
6.                 Set rg = rg2.MergeArea
   
7.             Else
   
8.                 Set rg = Union(rg, rg2.MergeArea)
   
9.             End If
   
10.         End If
    
11.     Next
    
12.     If rg Is Nothing Then Exit Sub
    
13.     rg.Select

复制代码

tgydslr

学习了

tgydslr