
文章插圖
工作表中填充公式步驟是先寫好一個公式 , 然后用鼠標(biāo)拖動進(jìn)行填充 。那如何用 VBA 代碼給單元格填充上公式?
Range.AutoFill 自動填充 “方法” 。語法:Range.AutoFill 填充區(qū)域 , Type
參數(shù)1:填充區(qū)域 , 填充區(qū)域要包括源區(qū)域 。源區(qū)域是什么?在工作表中填充公式 , 首先要在一個單元格中寫好公式 , 然后拖動(或雙擊)進(jìn)行填充 , 這個寫了公式的單元格就是源區(qū)域 。
參數(shù)2:Type 類型:常用的幾項(xiàng)值: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ù)制到目標(biāo)區(qū)域 , 效果:
xlFillDefault 填充目標(biāo)區(qū)域的值和格式 , 在填充公式時(shí)與xlFillCopy效果一樣 。如下圖:
xlFillSeries 效果 , 填充序列 。對填充公式來說 , 此參數(shù)無效 。下圖反映與xlFillCopy的區(qū)別:
xlFillformats 只有將源區(qū)域的格式復(fù)制到目標(biāo)區(qū)域 , 效果見下圖:
xlFillvalues 只有將源區(qū)域的值復(fù)制到目標(biāo)區(qū)域 , 效果見下圖:
通常情況 xlFillvalues 參數(shù)用得稍多 。
以上關(guān)于本文的內(nèi)容,僅作參考!溫馨提示:如遇健康、疾病相關(guān)的問題,請您及時(shí)就醫(yī)或請專業(yè)人士給予相關(guān)指導(dǎo)!
「愛刨根生活網(wǎng)」www.malaban59.cn小編還為您精選了以下內(nèi)容,希望對您有所幫助:- word設(shè)置自動連續(xù)頁的方法 word如何刪除某一頁的頁碼
- 閑魚一直拖著不確認(rèn)收貨 閑魚多久自動確認(rèn)收貨
- 停機(jī)保號一直保下去嗎 停機(jī)保號多久自動注銷
- 抖音細(xì)分領(lǐng)域自動化項(xiàng)目
- 專科自動化考研學(xué)校排名
- 考研報(bào)名序號怎么查詢
- 新婚夫妻分居多久算自動離婚 新婚夫妻異地怎么維持感情
- 閑魚買家延長30天收貨 閑魚幾天自動確認(rèn)收貨
- 厲致誠95式自動步槍什么意思
- 網(wǎng)易云取消自動續(xù)費(fèi)操作方法 網(wǎng)易云音樂取消自動續(xù)費(fèi)怎么取消
