文章插圖
工作表中填充公式步驟是先寫好一個公式，然后用鼠標拖動進行填充 。那如何用 VBA 代碼給單元格填充上公式？
Range.AutoFill 自動填充 “方法” 。語法：Range.AutoFill 填充區(qū)域，Type
參數(shù)1：填充區(qū)域，填充區(qū)域要包括源區(qū)域 。源區(qū)域是什么？在工作表中填充公式，首先要在一個單元格中寫好公式，然后拖動（或雙擊）進行填充，這個寫了公式的單元格就是源區(qū)域 。
參數(shù)2：Type 類型：常用的幾項值：xlFillDefault 數(shù)字簡寫 0， xlFillCopy 數(shù)字簡寫 1， xlFillSeries數(shù)字簡寫 2，xlFillformats 數(shù)字簡寫 3，xlFillvalues 數(shù)字簡寫 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”) 這個區(qū)域不能寫成Range(“E2”) 。
下面 講解一下Type 參數(shù)，xlFillCopy 將源區(qū)域值與格式復(fù)制到目標區(qū)域， 效果：
xlFillDefault 填充目標區(qū)域的值和格式，在填充公式時與xlFillCopy效果一樣 。如下圖：
xlFillSeries 效果，填充序列 。對填充公式來說，此參數(shù)無效 。下圖反映與xlFillCopy的區(qū)別：
xlFillformats 只有將源區(qū)域的格式復(fù)制到目標區(qū)域，效果見下圖：
xlFillvalues 只有將源區(qū)域的值復(fù)制到目標區(qū)域，效果見下圖：
通常情況 xlFillvalues 參數(shù)用得稍多 。

以上關(guān)于本文的內(nèi)容，僅作參考！溫馨提示：如遇健康、疾病相關(guān)的問題，請您及時就醫(yī)或請專業(yè)人士給予相關(guān)指導(dǎo)!

「愛刨根生活網(wǎng)」www.malaban59.cn小編還為您精選了以下內(nèi)容，希望對您有所幫助：

• 蘋果自動播放動態(tài)壁紙 蘋果動態(tài)壁紙怎么設(shè)置
• 順豐自動化物流設(shè)備 順豐為什么那么快
• 免費愛奇藝會員領(lǐng)取30天技巧 蘋果手機怎么取消愛奇藝會員自動續(xù)費
• 微信投票刷票軟件app推薦 自動刷票軟件如何制作
• 自動搶貨秒殺下單軟件推薦 360搶貨神器有用嗎
• 教你關(guān)閉wps自動更新應(yīng)用功能 如何關(guān)閉wps自動更新提示
• cmd命令鼠標自動點擊 自動鼠標點擊軟件
• 每天走路自動計步器 計步寶走路賺錢是真的嗎
• 小型米粉機多少錢一臺 「小型全自動米粉機怎么樣」
• 小型全自動壓面條機 – 小型全自動出面機