拖拽公式到LastRow VBA

檢查我的代碼如下：我想拖一個公式到LastRow，我不能，它給我在我的範圍的錯誤。任何想法爲什麼？我究竟做錯了什麼？拖拽公式到LastRow VBA

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！

來源

2016-11-10 Leandro Moreira

你有3行'Range'。你在「我的範圍」這個短語中指的是哪一個？另外，如果你有錯誤信息，代碼是什麼，它說什麼？ –

最後一行和錯誤是：運行時錯誤'1004'：「範圍類的自動填充方法失敗」。 –

documentations表示（關於參數Destination）「要填充的單元格，目標必須包含源範圍。」您的目的地不包含來源範圍。我認爲你想要：

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

來源

2016-11-10 00:45:46

謝謝John！這工作！ =） –

拖拽公式到LastRow VBA

回答

相關問題