Hsieh

¦^´_ 1# tw123456789

1. Sub nn()
   
2. Dim a As Range, rng As Range
   
3. For Each a In ActiveSheet.UsedRange
   
4.   If a.MergeCells Then
   
5.      If rng Is Nothing Then
   
6.         Set rng = a.MergeArea
   
7.         Else
   
8.         If Intersect(a, rng) Is Nothing Then Set rng = Union(rng, a.MergeArea)
   
9.      End If
   
10.    End If
    
11. Next
    
12. If Not rng Is Nothing Then MsgBox rng.Areas.Count
    
13. End Sub

½Æ»s¥N½X