[已解决]帮忙解释一下一小段代码的意思

nanohappy

Sub Macro()
    Dim rng As Range, rngA As Range, i As Byte
    For Each rng In ActiveSheet.UsedRange
        If rng.MergeCells Then
            If rng.Address = Split(rng.MergeArea.Address, ":")(0) Then   '1 获取单元格地址，但这个 :  与 (0) 的作用是什么呢？
               If rngA Is Nothing Then     '2 为什么平判断 rngA是否为空？它只声明为Range，但没有使用过。
                    Set rngA = rng          '3 赋值是为了什么？赋值后的作用是？
                Else
                    Set rngA = Application.Union(rngA, rng)  'Union目前返回两个合并区域，这里的rngA代码列吗？
                End If
             i = i + 1
            End If
         End If
    Next
    MsgBox i & Chr(13) & rngA.Address
End Sub

望解答，谢谢各位。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-31 12:13

1.是通过把字符串分割成数组（用:做分割符），然后提取第1个地址，当然，你要是用mid来定位提取也可以实现，不过这没这个函数方便。
2.先判断是否为空，如果为空，就直接引定某个单元格地址，否则就要用UNION来合并了。
3.rga之前得到的rng嘛。

跳转到最佳答案楼层

hwc2ycy

1.是通过把字符串分割成数组（用:做分割符），然后提取第1个地址，当然，你要是用mid来定位提取也可以实现，不过这没这个函数方便。
2.先判断是否为空，如果为空，就直接引定某个单元格地址，否则就要用UNION来合并了。
3.rga之前得到的rng嘛。

hwc2ycy

你最好单步观察下。

hwc2ycy

1. Sub Macro()
   
2.     Dim rng As Range, rngA As Range, i As Byte
   
3.     For Each rng In ActiveSheet.UsedRange
   
4.         '判断指定区域是否有合并单元格
   
5.         If rng.MergeCells Then
   
6.             Debug.Print "合并单元格的地址：" & rng.MergeArea.Address
   
7.             If rng.Address = Split(rng.MergeArea.Address, ":")(0) Then
   
8.                 If rngA Is Nothing Then
   
9.                     Set rngA = rng
   
10.                     Debug.Print "rng为空时：" & rngA.Address
    
11.                 Else
    
12.                     Set rngA = Application.Union(rngA, rng)
    
13.                     Debug.Print "合并后的rngA:" & rngA.Address
    
14.                 End If
    
15.                 i = i + 1
    
16.             End If
    
17.         End If
    
18.     Next
    
19.     '改一下，加个判断，避免出错的情况
    
20.     If Not rngA Is Nothing Then MsgBox i & Chr(13) & rngA.Address
    
21. End Sub

复制代码

加点DEBUG.PRINT，你可以看下立即窗口的输出。

tianyanxing

学习学习

nanohappy

hwc2ycy 发表于 2013-7-31 12:19
加点DEBUG.PRINT，你可以看下立即窗口的输出。

非常感谢！{:11:}