MergeArea.Address 怎么算?

bluexuemei

1. Function MergeCell(rng As Range) '声明Function过程
   
2. '为避免用户选择的区域过大，例如多列或者整全工作表，限制区域是Rng与已用区域的交集
   
3. With Application.Intersect(ActiveSheet.UsedRange, rng)
   
4. Dim i As Long '声明变量
   
5. For i = 1 To .Count '遍历所有单元格
   
6. '如果某单元格的合并区域地址与它本身地址不本同
   
7. If .Cells(i).MergeArea.Address <> .Cells(i).Address Then
   
8. Exit For '退出循环
   
9. End If
   
10. Next i '检查下一个
    
11. '函数结果由计数器i与交集区域中单元格个数的比较结果来决定。其理论来源是：如果有合并元格，
    
12. '那么循环体执行次数一定少于单元格个数，在执行中途已经中断
    
13. MergeCell = i < .Count
    
14. End With
    
15. End Function

复制代码

请问Cells(i).MergeArea.Address 是怎么算的?


该贴已经同步到 bluexuemei的微博

bluexuemei

搞定,呵呵,
几个VBA中与合并单元格相关的内容。

　　1、判断单元格是否包含在合并单元格中。MergeCells属性可以用来判断单元格是否包含在合并单元格中，如A1：B2合并为一个合并单元格，那么：Range("A1").MergeCells就会返回True!

　　2、获得包含指定单元格的合并区域。MergeArea属性可以获得包含指定单元格的合并区域，如：A1：B2合并为一个合并单元格，那么：Range("A1").MergeArea.Address就会返回$A$1:$B$2。

bluexuemei

Range("a:a").MergeCells这样使用为什么不对?

doitbest

可以啊
如果a列整列都合并 则[a:a].mergecells 结果是true
如果a列整列不包含合并单元格 则[a:a].mergecells 结果是false
如果a列合并单元格和未合并单元格均有 则[a:a].mergecells 结果是null

bluexuemei

doitbest 发表于 2011-10-12 09:59
可以啊
如果a列整列都合并 则[a:a].mergecells 结果是true
如果a列整列不包含合并单元格 则[a:a].mergece ...

谢谢回复，学习了，原来如果a列合并单元格和未合并单元格均有 则[a:a].mergecells 结果是null

icerain2526

太感谢了~~正好解决了我的一个问题，感谢~~

yiye6900345

谢谢受教了！！！！！！

绿荫天堂

学习当中，解决了当前的一个难点，感谢

hhwtt

牛，又学习了一招

ning84

用Col+Xx找单元格，死活搞不定。MergeAreas简单多了。

1. Set oRng = RowRng(ii, 1).Resize(, RowRng.Columns.Count)
   
2.               TabArr = TabDataArr(oRng, AreasRng, Arr1, Arr2)
   
3. 
   
4. Function TabDataArr(Rng As Range, AreasRng As Range, RowArr, ColArr)
   
5.    ''
   
6.    Dim Rr, Cc
   
7.    Dim Arr, Str, oDate As Date
   
8.    Dim oRng As Range
   
9.    Dim Sht As Worksheet
   
10.        Set Sht = Rng.Parent
    
11.        With AreasRng
    
12.             ''
    
13.             ''Debug.Print .Areas.Count = UBound(RowArr) + 1
    
14.             ''Debug.Print .Areas(1).MergeArea.Columns.Count = UBound(ColArr) + 1
    
15.             Rr = UBound(RowArr) + 1
    
16.             Cc = UBound(ColArr) + 1
    
17.             
    
18.             ReDim Arr(Rr, Cc)
    
19.             ''
    
20.             For jj = 1 To Cc
    
21.                   Arr(0, jj) = ColArr(jj - 1)
    
22.             Next jj
    
23.             ''
    
24.             For ii = 1 To Rr
    
25.                  Set oRng = .Areas(ii)
    
26.                  ''
    
27.                  Arr(ii, 0) = RowArr(ii - 1)
    
28.                  ''
    
29.                  For jj = 1 To Cc
    
30.                       Str = Sht.Cells(Rng.Row, oRng(, jj).Column)
    
31.                      
    
32.                       If IsDate(Arr(ii, jj)) Then
    
33.                            Arr(ii, jj) = Format(Str, "h:m:ss")
    
34.                            oDate = Arr(ii, jj)
    
35.                       Else
    
36.                            Arr(ii, jj) = Str
    
37.                       End If
    
38.                  Next jj
    
39.             Next ii
    
40.        End With
    
41.        TabDataArr = Arr
    
42. End Function

复制代码