Kubi

¦^´_ 1# clio
½Ð°Ñ¦Ò

1. Sub SearchMerge()
   
2.     Dim cell As Range
   
3.     Dim arr()
   
4.     For Each cell In ActiveSheet.UsedRange
   
5.         If cell.MergeCells = True Then
   
6.             n = n + 1
   
7.             ReDim Preserve arr(1 To n)
   
8.             arr(n) = Replace(cell.Address, "$", "")
   
9.         End If
   
10.     Next cell
    
11.     If n <> "" Then MsgBox "¦@¦³¤U¦C " & n & " ­Ó¦X¨ÖÀx¦s®æ¡G" & vbCr & Join(arr, vbTab)
    
12. End Sub

½Æ»s¥N½X