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

Question

在单元格AR8中，我正在寻找一个宏来插入这个等式＆＃34; = ROUND（IF（AP8>（AN8 * P8），AP8，AN8 * P8），2）＆＃34;然后自动将其填充到下一个800-1000行的列中。

Answer 1

这可以帮助您入门。
Range.Formula property on MSDN
Range.AutoFill method on MSDN

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