發生運行時錯誤424 @設置語句

Question

我似乎無法克服此障礙。多次更正後錯誤仍然存​​在。

Set XlSheet = ActiveWorkbook.ActiveSheet 
XlSheet.Cells(1, 15) = "Date" 

lRow = XlSheet.Cells(XlSheet.Rows.Count, 1).End(xlUp).Row 

Set rng = XlSheet.Range(XlSheet.Cells(2, 15), XlSheet.Cells(lRow, 5)).Select 

感謝

Answer 1

大約爲每個循環

ActiveWorkbook.ActiveSheet是因爲它沒有用，需要的OP最後的評論後編輯的的默認片

所以你可以只代碼

Cells(1, 15) = "Date" 
lRow = Cells(Rows.count, 1).End(xlUp).row 

Set rng = Range(Cells(2, 15), Cells(lRow, 5)) 

For Each cell In rng 
    cell.Value = Date 
Next cell 

但整個迴路可以崩潰到：

rng.Value = Date 

---

而如果你打算切換不同的工作表，那麼你可以代碼：

Set XlSheet = ActiveSheet 
With XlSheet 
    .Cells(1, 15) = "Date" 
    lRow = .Cells(.Rows.count, 1).End(xlUp).row 
    Set rng = .Range(.Cells(2, 15), .Cells(lRow, 5)) 
End With 

rng.Value = Date