相关疑难解决方法(0)

在下面的代码中rngIntersect.Address返回A10.有没有办法在哪里可以得到除交叉点之外的所有范围而没有循环？

谢谢

Sub NotIntersect()

    Dim rng As Range, rngVal As Range, rngIntersect As Range
    Set rng = Range("A1:A10")
    Set rngVal = Range("A10")

    Set rngIntersect = Intersect(rng, rngVal)
    MsgBox rngIntersect.Address

End Sub