Sub 复制公式()
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Selection.AutoFill Destination:=Range("C2:C" & [a65536].End(3).Row)
End Sub
Sub abc()
Range("C2").Formula = "=A2*B2"
Range("C2").AutoFill Destination:=Range("C2:C" & Range("B65536").End(xlUp).Row)
End Sub
range("C2:C20").filldown
双击填充柄。