序号自动填充的两种技巧 excel序号自动填充公式 _序号

工作表中填充公式步骤是先写好一个公式，然后用鼠标拖动进行填充。那如何用 VBA 代码给单元格填充上公式？
Range.AutoFill 自动填充 “方法” 。语法：Range.AutoFill 填充区域，Type

文章插图
【序号自动填充的两种技巧 excel序号自动填充公式】参数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 将源区域值与格式复制到目标区域，效果：