在工作表中填充公式的步驟是先創(chuàng)建公式，然后用鼠標(biāo)拖動(dòng)以填充。如何使用VBA代碼在單元格中填充公式？

Range。AutoFill會(huì)自動(dòng)填充方法。語法：Range。自動(dòng)填充區(qū)域，類型

參數(shù)1:填滿區(qū)域，填滿區(qū)域包含來源區(qū)域。源區(qū)域是什么？要在工作表中填充公式，必須先在一個(gè)單元格中創(chuàng)建公式，然后拖動(dòng)或雙擊以填充。這個(gè)公式是源區(qū)域。

參數(shù)2:類型類型：一些常用值：xlFillDefault數(shù)字縮寫0、xlFillCopy數(shù)字縮寫1、xlFillSeries數(shù)字縮寫2、xlFillformats數(shù)字縮寫3、xlFillvalues數(shù)字縮寫4。

首先，將公式“range(' E2 ')='=countif($ a $ 2: $ a $ 19，D2)”寫入一個(gè)單元格。作為代碼，如果要在單元格中寫入公式雙引號(hào)，則必須輸入等號(hào)。前面的單元格不能縮寫為[E2]。在公式中鎖定單元格相當(dāng)于在工作表中寫入公式。

第二個(gè)語句range ('E2 ')。autofillrange ('e2:e9 ')、xlfilldefault自動(dòng)填充完成。

但是，上面的語句填充在行下。要向右填充列方向，該怎么寫？

列向右填充。必須先填充行方向，然后再填充列方向。range(' e 23360 e 9 ')。請(qǐng)寫auto fill range ('e2:f9 ')，xlfillvalues，第三個(gè)語句。這將向右側(cè)填充列方向。Range('E23360e9 ')此區(qū)域不能寫為Range('E2 ')。

下面介紹了xlFillCopy的Type參數(shù)，該參數(shù)將源區(qū)域值和格式復(fù)制到大象區(qū)域。

XlFillDefault填充大象區(qū)域中的值和格式，就像填充公式一樣。下圖：

XlFillSeries效果，填充序列。此參數(shù)對(duì)填充公式無效。下圖反映了與xlFillCopy的差異。

XlFillformats僅將源區(qū)域的格式復(fù)制到大象區(qū)域，如下圖所示。

XlFillvalues僅將源區(qū)域中的值復(fù)制到大象區(qū)域，如下圖所示。

通常，xlFillvalues參數(shù)使用得稍微多一些。