在范围语句中使用变量

Question

我的代码用于查找a列中的第一个空单元格，为其设置变量，然后使用该变量在同一行中查找单元格3列。

 'Find Last empty cell in first column
Dim rngSelect As Range
Dim rngFstAcCell As Range
Dim rngLstAcCell As Range

Set rngSelect = Cells(Rows.Count, "A").End(xlUp).Offset(1)
MsgBox rngSelect.Address    'just to check
rngFstAcCell = Range(rngSelect.Address).Offset(0, 3)

对象变量或在最后一个语句中未设置的块变量是我得到的。 我在这条线上做错了什么。 我想要做的是重复使用变量rngSelect ...作为学习练习。 感谢

Answer 1

缺少Set。此外，您已在rngSelect中拥有Range对象，因此您无需使用Address和Range。

Set rngFstAcCell = rngSelect.Offset(0, 3)