Question

excel宏，如何将有公式的单元格向下自动填充到最后一行，就像双击公式格右下角的黑十字填充柄效果相同？

如下图如何把C2的公式（公式内容为“=A2*B2”向下填充到C20，因为是在宏中填充所以不能用双击C2右下角黑十字填充柄的方法，必须用命令语句来完成。

Answer 1

Sub 复制公式()
    Range("C2").Select 
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
    Selection.AutoFill Destination:=Range("C2:C" & [a65536].End(3).Row)
End Sub

追问

顺利完成了，但能解释一下三句命令的意思吗？想学习一下，以后用在其它单元格（比如H列和K列也要填充公式应该怎么写呢？

追答

"=RC[-2]*RC[-1]"的意思是，以选定的单元格C2为标准，用前2列的同一行单元格（即A2）乘前1列的同一行单元格（即B2）。

Answer 2

Sub abc()
Range("C2").Formula = "=A2*B2"
Range("C2").AutoFill Destination:=Range("C2:C" & Range("B65536").End(xlUp).Row)
End Sub

Answer 3

range("C2:C20").filldown

Answer 4

双击填充柄。

追问

您没有看清楚问题吧，因为是在宏中填充所以不能用双击C2右下角黑十字填充柄的方法，必须用命令语句来完成。

追答

不好意思，没看清问题。
for i=2 to 20
range("C" & i)=range("A" & i) * range("B" & i)
next