多次构建包含单元格的“范围”

Question

我可以轻松构建一个范围，其中同一单元格出现两次（在本例中为单元格 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

如何构造同一个单元格出现两次以上的范围？

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

多次构建包含单元格的“范围”

Constructing a `Range` containing a cell multiple times

excel

vba