在范围语句中使用variables

我的代码旨在find列a中的第一个空单元格，为其设置一个variables，然后使用该variables在同一行中查找单元格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) 

对象variables或块variables没有设置在最后的声明是我所得到的。 我在做什么错了那条线。 我试图做的是重新使用variablesrngSelect …作为学习练习。 谢谢

Answer 1

缺lessSet 。 另外你在rngSelect已经有一个Range对象，所以你不需要像这样使用Address和Range 。

 Set rngFstAcCell = rngSelect.Offset(0, 3)