vba - 范围内不相交的地址

Question

我有两个范围 A2:E2 和 B1:B5。现在，如果我执行相交操作，它将返回 B2。我希望通过某种方式将我的输出作为 B2 考虑在 A2:E2 和 B1:B5 的任何范围内。即，如果存在重复的单元格，则应避免使用。

预期输出:

A2，C2:E2，B1:B5

或者

A2:E2,B1,B3:B5

谁能帮帮我。

Answer 1

像这样吗？

Sub Sample()
    Dim Rng1 As Range, Rng2 As Range
    Dim aCell As Range, FinalRange As Range

    Set Rng1 = Range("A2:E2")
    Set Rng2 = Range("B1:B5")

    Set FinalRange = Rng1

    For Each aCell In Rng2
        If Intersect(aCell, Rng1) Is Nothing Then
            Set FinalRange = Union(FinalRange, aCell)
        End If
    Next

    If Not FinalRange Is Nothing Then Debug.Print FinalRange.Address
End Sub

输出:

$A$2:$E$2,$B$1,$B$3:$B$5

说明:我在这里所做的是将温度范围声明为 FinalRange 并将其设置为 Range 1。之后，我检查 Range 2 中的每个单元格是否存在于 Range 1 中。如果是，那么我将忽略它，否则使用 Union 将其添加到 Range 1

编辑问题也被交叉发布here