2017-10-09 102 views
1

我的代码旨在查找列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 ...作为学习练习。 谢谢

回答

2

失踪Set。你也有一个Range对象rngSelect,所以你不需要使用AddressRange那样的。

Set rngFstAcCell = rngSelect.Offset(0, 3) 
+0

完美地工作 - 为什么我没有想到这一点。谢谢 – GavinX

+0

@GavinX请花一分钟接受答案,将您的问题标记为已解决。 – sktneer