时间戳

首页 > 解决方案 > 定义范围与最后一行 & 相交活动单元格和范围

excel - 定义范围与最后一行 & 相交活动单元格和范围

问题描述

我是 VBA 新手，目前正在尝试在数据表中定义从 h11 列到 h 列中最后一个数据行的范围，以便运行宏，如果活动单元格在该范围内。

VB 在定义 rng1（也可能是 rng2）时告诉我“对象变量或未设置块变量”。

我想要关于两件事的反馈：我该怎么做才能解决这个错误？当我修复第一个错误时，如何继续使用 intersect 函数？

我真的很感激所有的帮助。我已经做了很长一段时间了，似乎被卡住了。我试过了rng1 = range(range("H11") ,range("H" & Lastrow))。如果有什么我可以做的更快或更好的学习，请告诉我 - 非常感谢 youtube 视频或类似内容。

Dim rng1 As Range
Dim rng2 As Range
Dim lastrow As Long

lastrow = Range("H" & Rows.Count).End(xlUp).Row

rng1 = Range("H11:H" & lastrow)
rng2 = Range("I11:I" & lastrow)

'Sort on Product
    If Intersect(activecell, rng1) = True Then```

标签： excelvbaintersect

解决方案

这两行应该是：

set rng1 = Range("H11:H" & lastrow)
set rng2 = Range("I11:I" & lastrow)

有了这个，相交函数应该是：

if not Intersect(activecell, rng1) is nothing then

推荐阅读