范围类的Excel vba 1004方法失败:自动填充到可变长度列

Question

试图通过引用此处的其他线程将其拼凑在一起。我觉得我模仿得很好，但我不能让它发挥作用。问题突然出现在我的自动填充中。

如有任何见解，我们将不胜感激！

Dim lastRow As Long
lastRow = Range("AN" & Rows.Count).End(xlUp).Row
Range("AO2").Select
ActiveCell.FormulaR1C1 = "=DATEVALUE(RC[-29])"
Range("AO2").AutoFill Destination:=("AO2:AO" & lastRow)
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "m/d/yy;@"

Answer 1

不需要AutoFill。将公式写入一行中的整个范围：

Range("AO2:AO" & lastRow).FormulaR1C1 = "=DATEVALUE(RC[-29])"

AutoFill尝试的问题是Destination参数应该是Range，而不是String:Destination:=Range("AO2:AO" & lastRow)