Range的Areas的用法

ningyong58

Areas集合
在多个非连续的单元格区域中使用Columns属性和Rows属性时，只是返回第一个区域的行或列，如：
Range(“A1:B5,C6:D10,E11:F15”).Rows.Count
将返回5。
此时应使用Areas集合来返回区域中每个块的地址，如：
Sub lls()
Dim Rng As Range
For Each Rng In Range("A1:B5,C6:D10,E11:F15").Areas
  With Rng
    .Select
    .Interior.ColorIndex = 34 'Rnd(55)
    .Value = .Address
  End With
  
  
Next Rng

End Sub

ningyong58

For Each Rng In Range("A1:B5,C6:D10,E11:F15").Areas
Range("$A$1:$B$5")结果为
$A$1:$B$5        $A$1:$B$5
$A$1:$B$5        $A$1:$B$5
$A$1:$B$5        $A$1:$B$5
$A$1:$B$5        $A$1:$B$5
$A$1:$B$5        $A$1:$B$5

For Each Rng In Range("A1:B5,C6:D10,E11:F15")
没有Areas时
Range("$A$1:$B$5")结果为
$A$1        $B$1
$A$2        $B$2
$A$3        $B$3
$A$4        $B$4
$A$5        $B$5

wangfengcpa

如此好文，居然给我做了沙发。Areas介绍的太少了。

fsydw

.Areas！又学一招！！谢谢大师！！！

汪淑萍

ningyong58 发表于 2009-11-4 19:29
For Each Rng In Range("A1:B5,C6:D10,E11:F15").Areas
Range("$A$1:$B$5")结果为
$A$1:$B$5        $A$1:$B$5

太好了谢谢你学了一招

chaozhiye

不错  学习了