发生运行时错误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