圆形单元格然后自动填充VBA

Question

在单元格 AR8 中，我正在寻找一个宏，它将插入此等式" =ROUND(IF(AP8>(AN8*P8(，AP8，AN8*P8(，2( "然后自动将其填充到下面的 800-1000 行列中。

Answer 1

这应该可以帮助您入门。
MSDN
上的 Range.Formula 属性MSDN 上的 Range.AutoFill 方法

With Activesheet.Range("AR8")
    .Formula = "=ROUND(IF(AP8>(AN8*P8),AP8,AN8*P8),2)"
    .AutoFill Destination:=.Resize(100), Type:=xlFillDefault
End With