工作表中填充公式步驟是先寫好一個公式，然後用鼠標拖動進行填充。那如何用 VBA 代碼給單元格填充上公式？
Range.AutoFill 自動填充 “方法”。語法：Range.AutoFill 填充區域，Type
參數1：填充區域，填充區域要包括源區域。源區域是什麼？在工作表中填充公式，首先要在一個單元格中寫好公式，然後拖動（或雙擊）進行填充，這個寫了公式的單元格就是源區域。
參數2：Type 類型：常用的幾項值：xlFillDefault 數字簡寫 0， xlFillCopy 數字簡寫 1， xlFillSeries數字簡寫 2，xlFillformats 數字簡寫 3，xlFillvalues 數字簡寫 4 。
首先要給1個單元格寫入公式 Range(“E2”) = “=COUNTIF($A$2:$A$19,D2)” ；用代碼給單元格寫入公式雙引號裡面要加等號，前面的單元格不能簡寫為[E2]。公式中對單元格的鎖定與在工作表中寫公式一樣。
第2條語句 Range(“E2”).AutoFill Range(“E2:E9”), xlFillDefault； 自動填充完成。
但上述語句是按行 向下填充，如果要列方向 向右填充如何寫呢？
列向右填充，首先要把行方向填充完成後，然後再向列方向填充。寫上第 3 條語句：Range(“E2:E9”).AutoFill Range(“E2:F9”), xlFillValues ；這樣就會向右填充列方向。Range(“E2:E9”) 這個區域不能寫成Range(“E2”)。
下面 講解一下Type 參數，xlFillCopy 將源區域值與格式複製到目標區域， 效果：
xlFillDefault 填充目標區域的值和格式，在填充公式時與xlFillCopy效果一樣。如下圖：
xlFillSeries 效果，填充序列。對填充公式來說，此參數無效。下圖反映與xlFillCopy的區別：
xlFillformats 只有將源區域的格式複製到目標區域，效果見下圖：
xlFillvalues 只有將源區域的值複製到目標區域，效果見下圖：
通常情況 xlFillvalues 參數用得稍多。
原創文章，作者：投稿專員，如若轉載，請註明出處：https://www.506064.com/zh-hant/n/234785.html
微信掃一掃 
支付寶掃一掃 