使用VBA给单元编写公式

PrivateSubCommandButton1_Click()Range("b14")="平均分"Range("c14")="=average(c5:c13)"Range("d5")="=if(c5>=90,""优秀"",""一般"")"Range("D5").AutoFillDestination:=Range("D5:D13"),Type:=xlFillValuesEndSub填充之后效果如下:代码解释如下:Range("d5")="=if...