excel中使用vba自動填充公式的方法
工具/原料
excel2013
更多經驗請關注，如果幫到了你，請在上方給個投票謝謝支援。 好人一生平安。
先頂後看年薪百萬，如果幫到了你，幫忙給個好評，這對小編很重要，萬分感謝。
方法/步驟
首先我們開啟一個工作樣表作為例子。
開啟vba編輯視窗，建立一個新的模組，並輸入以下程式碼：
Sub 填充公式()
Dim i As Long, j As Long
With Range("A1").CurrentRegion
i = .Rows.Count - 1
j = .Columns.Count - 1
End With
Range("J3").AutoFill _
Destination:=Range(Cells(3, 10), Cells(i, 10))
Range("D16").AutoFill _
Destination:=Range(Cells(16, 4), Cells(16, j))
End Sub
這裡with是簡化程式碼的寫法，讀取了當前活動單元格的區域，並將行列分別賦值為I和J變數-1。
簡寫掉的程式碼完整版的是Range("A1").CurrentRegion.Rows.Count和Range("A1").CurrentRegion.Columns.Count。就是這麼簡單和任性。
接著我們使用autofill函式來填充給定的單元格區域。其中，自動填充的公式單元格豎列指定的是J3，橫行指定的是D13，程式碼如圖。
而最終填充的區域範圍，為本活動單元格的區域範圍，我給的例子格式不正確，大家試試找出正確的公式和標題欄。我們建立一個巨集按鈕，來看一下正確執行的結果。
注意事項
謝謝你的投票。本經驗講解的是每行程式碼的作用，大家可以舉一反三讓這個過程產生實際的效果。
專門為網路而服務，請聯絡我。謝謝你們。