Question

检查下面的代码：我正在尝试将公式拖到LastRow而我不能，它在我的范围内给出了一个错误。有什么想法吗？我做错了什么？

Sub Mix()
'
' Mix Macro
'
    Dim Lastrow As Long
    Range("Q35").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-13],RC[-12])"
    Lastrow = Worksheets("NewForecast").Range("E" & Rows.Count).End(xlUp).Offset(1).Row
    Selection.AutoFill Destination:=Range("Q" & Lastrow), Type:=xlFillDefault

知道发生了什么事吗？ TKS！

Answer 1

documentations说（关于参数Destination）＆＃34;要填充的单元格。目的地必须包括源范围。＆＃34;您的目的地不包含来源范围。我想你想要：

Selection.AutoFill Destination:=Range("Q35:Q" & Lastrow), Type:=xlFillDefault

将公式拖到LastRow VBA

1 个答案: