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,程式碼如圖。
而最終填充的區域範圍,為本活動單元格的區域範圍,我給的例子格式不正確,大家試試找出正確的公式和標題欄。我們建立一個巨集按鈕,來看一下正確執行的結果。
注意事項
謝謝你的投票。本經驗講解的是每行程式碼的作用,大家可以舉一反三讓這個過程產生實際的效果。
專門為網路而服務,請聯絡我。謝謝你們。