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

2024-11-10 19:57:31
推荐回答(4个)
回答1:

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

回答2:

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

回答3:

range("C2:C20").filldown

回答4:

双击填充柄。