Excel Vba 如何返回选定的非连续单元格区域的地址

ghjregister

初学者第一次发帖，希望大家多多指导。
我想检测一张工作表里面是否有合并单元格，并用Msgbox 直接把结果标识出来，如果有的话就把合并的单元格地址也显示出来。 请问如何实现这个功能？
我自己做了一点工作，把合并的单元格找出来了， 但不知道怎样才能返回这些单元格的地址。

hehex

以下代码会将你当前工作表的所有合并单元格地址显示出来

1. Sub DisplayMergeAddress()
   
2.   Dim rng As Range, d As Object, key
   
3.   
   
4.   Set d = CreateObject("scripting.dictionary")
   
5.   For Each rng In ActiveSheet.UsedRange
   
6.     If rng.MergeCells Then
   
7.         d(rng.MergeArea.Address(0, 0)) = ""
   
8.     End If
   
9.   Next
   
10.   
    
11.   For Each key In d
    
12.     MsgBox key
    
13.   
    
14.   Next
    
15.   
    
16.   Set d = Nothing
    
17.   Set rng = Nothing
    
18. End Sub
    

复制代码

ghjregister

hehex 发表于 2015-1-5 16:27
以下代码会将你当前工作表的所有合并单元格地址显示出来

太好了，可以用 谢谢了 能不能只用一个Msgbox显示所有的内容？

hehex

ghjregister 发表于 2015-1-5 18:15
太好了，可以用 谢谢了 能不能只用一个Msgbox显示所有的内容？

1. Sub DisplayMergeAddress()
   
2.   Dim rng As Range, d As Object, key, strAddress As String
   
3.   
   
4.   Set d = CreateObject("scripting.dictionary")
   
5.   For Each rng In ActiveSheet.UsedRange
   
6.     If rng.MergeCells Then
   
7.         d(rng.MergeArea.Address(0, 0)) = ""
   
8.     End If
   
9.   Next
   
10.   
    
11.   For Each key In d
    
12.     If Len(strAddress) = 0 Then
    
13.         strAddress = key
    
14.     Else
    
15.         strAddress = strAddress & "  " & key
    
16.     End If
    
17.   Next
    
18.   MsgBox strAddress
    
19.   Set d = Nothing
    
20.   Set rng = Nothing
    
21. End Sub
    

复制代码