在範圍語句中使用變量

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。你也有一個Range對象rngSelect，所以你不需要使用Address和Range那樣的。

Set rngFstAcCell = rngSelect.Offset(0, 3)