NO.1
Excel表格中添加数据的时候，有些数据高度重复，或者是相同公式内容。
这样就没有必要一一添加，不仅浪费时间，而且也是一种比较枯燥的重复性劳动。
假如数据量十分庞大，那么就是一件十分无聊的事情，并且出错率明显提高。
在此情况下，一种简单的操作就出现了。
Fill填充
NO.2
填充有四个方向性的走势，即从下向上、从上向下、从右向左、从左向右。
这样就有四种填充方法：FillUp、FillDown、FillLeft、FillRight
其具体方法介绍如下图
NO.3
我们以一个例子来介绍，这四种填充方法。
其功能十分简单，就是把某一个初始单元的内容填充到所定义的单元格集合里。
本例将分别将公式"=Row()-1"或"上填充"文字填充到A1:A20单元格和B1:B20单元格内。
左右填充同样以不同内容进行填充。
其整个步骤十分简单，只需要二行代码即可完成。
首页给基础单元格赋值，也就是说其它单元格要填充什么内容就是给这个基础单元格赋什么值。
本例将给A1单元格赋值，向下填充。
Range("A1").Formula="=Row()-1"
Range("A1:A20").FillDown
NO.4
其主要一个重点就是对基础单元格进行定位和赋值。
四个方向填充，基础单元格位置是不同的，向下填充就是最顶部单元格为基础，向上就是最底部单元格，向左为最右，向右为最左为基础单元格。
一定要分清楚方向，如果方向感十分模糊，那么填充就会出现不可预知的错误。
NO.5
示例代码
向下填充
Private Sub RangeFillDown()
With Range("A1")
.Formula = "=row()-1"
.Borders.LineStyle = 1
.Interior.Color = RGB(121, 251, 251)
.HorizontalAlignment = xlCenter
With .Font
.Size = 12
.Bold = True
.Background = xlBackgroundTransparent
.Color = RGB(221, 1, 1)
End With
End With
With Range("A1:A20")
.FillDown
End With
End Sub
向右填充
Private Sub RangeFillRight()
With Range("A2")
.Formula = "向右填充"
.Borders.LineStyle = 1
.Interior.Color = RGB(221, 111, 251)
.HorizontalAlignment = xlCenter
With .Font
.Size = 12
.Name = "微软雅黑"
.Background = xlBackgroundTransparent
.Color = RGB(21, 1, 1)
End With
End With
Range("A2:O2").FillRight
End Sub
其它向下、向左方法雷同，不一一写出代码来了。
如果对此有很好理解，在对相同数据进行处理的时候，就十分方便了。
欢迎关注、收藏
