构造一个包含单元格的`Range`多次

我可以很容易地构造一个范围，其中两个相同的单元出现（在这种情况下单元格B1）：

Sub IAmTheCount() Dim r1 As Range, r2 As Range, r3 As Range Set r1 = Range("A1:B1") Set r2 = Range("B1:B2") Set r3 = Union(r1, r2) MsgBox r3.Count End Sub 

我怎样才能构build一个范围内的同一细胞出现两次以上？

Answer 1

我不确定我是否在这个范围之内，但是这似乎包括三次B1单元格，并且作为一个明确的范围。

 Sub IAmTheCount() Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range Set r1 = Range("A1:B1") Set r2 = Range("B1:B5") Set r3 = Range("B1:C2") Set r4 = Union(r1, r2, r3) MsgBox r4.Count & " - " & r4.Address r4.Interior.ColorIndex = 4 End Sub