Excel VBA：填充——FillDown方法

我们还是以录制宏的方式开始了解Range对象的FillDown方法。
如下图所示的操作：

Sub Macro1()ActiveCell.FormulaR1C1 = "1"Range("A1:A5").SelectSelection.FillDownEnd Sub

从代码中可以看出，VBA使用了FillDown方法对所选单元格区域进行向下填充。
熟悉VBA的朋友可以将上述代码简化如下，达到同样的效果。

Sub testFillDown1()Range("A1").Value = 1Range("A1:A5").FillDownEnd Sub

再看一个示例。如下图左侧所示的工作表，要求填充单元格区域E1:F5。

代码如下

Sub testFillDown2()Range("E1:F5").FillDownEnd Sub

FillDown方法的官方说明

从指定单元格区域内的顶部单元格或单元格区域填充到单元格区域底部。单元格区域顶行中的单元格或单元格区域的内容和格式将复制到该区域内的其余行中。

FillDown方法的语法
Range对象.FillDown

说明：
FillDown方法不仅向下填充内容，而且还复制格式。
要想不带格式填充，可以使用AutoFill方法。

示例1：自动填充公式
如下图所示的工作表，要求计算合价，即列C与列D的乘积值。

代码如下

Sub testFillDown3()'在E2中输入公式Range("E2").Formula ="=C2*D2"'从E2起向下填充公式至E7Range("E2:E7").FillDownEnd Sub

示例2：用空单元格上方的单元格数据填充单元格区域中的空单元格
需要填充工作表中的空单元格，使用空单元格上一行的非空单元格内容填充。

sub test()Dim rngBlank As Range, rngArea As Range'填充空白单元格Set rngBlank = Range("a:b").SpecialCells(xlCellTypeBlanks)For Each rngArea In rngBlank.Areas'用空白单元格上方数据填充rngArea.Cells(1, 1).Offset(-1, 0). _Resize(rngArea.Rows.Count + 1, rngArea.Columns.Count).FillDownNext rngArea
End sub

rngArea.Cells(1, 1).Offset(-1, 0)表示从区域的第一个单元格向上偏移1行的单元格。

Resize(rngArea.Rows.Count 1, rngArea.Columns.Count)表示扩展单元格，其行数为区域的行数加1，即要包含区域之上的单元格，列数为区域的列数。

与FillDown方法类似的方法

除向下填充的FillDown方法外，还有向上填充、向左填充、向右填充，分别对应着FillUp方法、FillLeft方法、FillRight方法。

FillUP方法从指定单元格区域的底部单元格或单元格区域填充到单元格区域的顶部。区域底行中的单元格或单元格区域的内容和格式被复制到该区域内的其余行。

FillLeft方法从指定单元格区域的最右侧的单元格或单元格区域向左填充。区域的最右列中的单元格或单元格区域的内容和格式被复制到该区域的其余列中。

FillRight方法从指定单元格区域内的最左侧的单元格或单元格区域向右填充。区域的最左列中的单元格或单元格区域的内容和格式被复制到该区域的其余列中。

Excel VBA：填充——FillDown方法相关推荐

Excel VBA属性、方法、事件大全——Part7（Complete List of Excel VBA attribute/method and event）
对象/属性/方法/事件 (Object/Attribute/ Method/Event) 描述 (Description) ID 返回或设置当以网页保存页面时指定单元格的识别标志本示例将活动工作表上 ...
Excel VBA属性、方法、事件大全——Part1（Complete List of Excel VBA attribute/method and event）
为了提取这个列表,也算是费了九牛二虎之力了. VBA调试了不下十遍,但是,能得到这么完整的列表,绝对是值得的.不学好VBA,都有点对不起这么好的资料了,哈哈. Attribute/Method/Eve ...
Excel VBA属性、方法、事件大全——Part12（Complete List of Excel VBA attribute/method and event）
对象/属性/方法/事件 (Object/Attribute/ Method/Event) 描述 (Description) QBColor 返回一个 Long,用来表示所对应颜色值的 RGB 颜色码. ...
Excel VBA属性、方法、事件大全——Part9（Complete List of Excel VBA attribute/method and event）
对象/属性/方法/事件 (Object/Attribute/ Method/Event) 描述 (Description) MacID 此函数用在 Macintosh 上,将长为4个字符的常量转换成 ...
Excel VBA属性、方法、事件大全——Part6（Complete List of Excel VBA attribute/method and event）
对象/属性/方法/事件 (Object/Attribute/ Method/Event) 描述 (Description) GammaDist 返回 γ 分布函数值.可以使用此函数来研究具有偏态分布的 ...
Excel VBA属性、方法、事件大全——Part11（Complete List of Excel VBA attribute/method and event）
对象/属性/方法/事件 (Object/Attribute/ Method/Event) 描述 (Description) PageBreak 返回或设置分页符的位置本示例在 Sheet1 的第 2 ...
Excel VBA属性、方法、事件大全——Part13（Complete List of Excel VBA attribute/method and event）
对象/属性/方法/事件(Object/Attribute/ Method/Event) 描述(Description) Save 保存指定工作簿所做的更改本示例保存当前活动工作簿.ActiveWork ...
Excel VBA 用字典方法做先进先出法
多年前,一家外包公司帮我司一物业公司做仓库收发存管理软件,我方要求先进先出法,该外包公司称那需要加入批次管理,每次出库选择好批次才能实现先进先出.我以为,这完全是谬论,既然是先进先出,那就已经设定好了 ...
excel隔行填充颜色的三种方法
当excel教程工作薄数据量很多时,我们使用excel隔行填充颜色,可以增强数据的阅读性.对Excel感兴趣的朋友可加Excel学习交流群:284029260 excel隔行填充颜色的方法也很多,本文 ...

Excel VBA：填充——FillDown方法

Excel VBA：填充——FillDown方法相关推荐

最新文章

热门文章