vba - Excel VBA 相交

Question

我在网上找到了这段代码，显然它对其他人有效，但对我无效？我不知道哪里错了。我做了一个简单的例子，并将我的 Range1 和 Range 2 设为 excel 中的某些单元格，

另外，我想知道是否有办法返回交叉点(如果可以的话)。提前致谢!

Function InRange(Range1 As Range, Range2 As Range) As Boolean
    Set intersectRange = Application.Intersect(Range1, Range2)
    If intersectRange Is Nothing Then
        InRange = False
    Else
        InRange = True
    End If
End Function

Answer 1

在我看来，您期望 Intersect 检查两个范围是否具有具有相同值的单元格？这就是 S15 和 T15 中都有值“a”的意义吗？

如果是这样，那么这就是您没有得到预期结果的原因。 Intersect 函数返回一个范围，该范围是两个范围的“重叠”，无论每个范围内的值如何。

由于这是我关于 SE 的第一篇文章，我希望这会有所帮助:)