---在Excel工作中，使用VBA（Visual Basic for Applications）自動填充公式可以極大地提高工作效率。今天，讓我們一起學(xué)習(xí)如何利用VBA來簡化這一過程。 打開工作樣表并

---

在Excel工作中，使用VBA（Visual Basic for Applications）自動填充公式可以極大地提高工作效率。今天，讓我們一起學(xué)習(xí)如何利用VBA來簡化這一過程。

打開工作樣表并創(chuàng)建新模塊

首先，打開一個Excel工作簿作為示例。接著，打開VBA編輯窗口，在其中創(chuàng)建一個新的模塊。然后，輸入以下代碼：

```vba

Sub 填充公式()

Dim i As Long, j As Long

With Range("A1").CurrentRegion

i - 1

j - 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

```

簡化代碼并使用Autofill函數(shù)

在上述代碼中，`With`語句簡化了代碼，讀取了當(dāng)前活動單元格的區(qū)域，并將行數(shù)和列數(shù)分別賦值給變量i和j。接著，使用`Autofill`函數(shù)填充指定的單元格區(qū)域。豎列的公式填充從J3開始，橫行的填充從D13開始。

創(chuàng)建宏按鈕查看運(yùn)行結(jié)果

最終填充的區(qū)域范圍取決于當(dāng)前活動單元格的區(qū)域范圍。請確保公式和標(biāo)題欄的格式正確無誤。為了方便操作，可以創(chuàng)建一個宏按鈕，以便快速查看代碼運(yùn)行結(jié)果。

結(jié)語

通過本文介紹的方法，希望您能夠更加高效地利用Excel中的VBA功能，提升工作效率。如果遇到任何問題或疑惑，請隨時聯(lián)系我們，我們將竭誠為您解答。祝大家工作生活愉快！