我在网上找到了这段代码，显然它对其他人有效，但对我无效？我不知道哪里错了。我做了一个简单的例子，并将我的 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
最佳答案
在我看来，您期望 Intersect 检查两个范围是否具有具有相同值的单元格？这就是 S15 和 T15 中都有值“a”的意义吗？
如果是这样，那么这就是您没有得到预期结果的原因。 Intersect 函数返回一个范围，该范围是两个范围的“重叠”，无论每个范围内的值如何。
由于这是我关于 SE 的第一篇文章，我希望这会有所帮助:)
关于vba - Excel VBA 相交，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/30383042/