Question

EXCEL添加了一个宏还请各位高手请帮我翻译一下EXCEL中的这段宏吧，拜托！

Range("k5:k10").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "1"
Range("k5").Select
Range("k5").Select
ActiveCell.FormulaR1C1 = "=IF(R1C4=1,MIN(RC[-3]:RC[-2]),0)"
Range("k5").Select
Selection.AutoFill Destination:=Range("k5:k10"), Type:=xlFillDefault
Range("k5:k10").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "1"
Range("k5").Select
End Sub

Answer 1

Range("k5").Select '选择K5单元格
ActiveCell.FormulaR1C1 = "=IF(R1C4=1,MIN(RC[-3]:RC[-2]),0)" '将公式“=IF($D$1=1,MIN(H5:I5),0)”输入单元格
Range("k5").Select '选择K5单元格
Selection.AutoFill Destination:=Range("k5:k10"), Type:=xlFillDefault '自动填充公式从K5到K10
Range("k5:k10").Select '选择K5:K10单元格区域
Range("D1").Select '选择D1单元格
ActiveCell.FormulaR1C1 = "1" '活动单元格D1输入1
Range("k5").Select '选择K5单元格

Answer 2

Range("k5:k10").Select     '选中K5:K10
Range("D1").Select     '选中D1。故上句无用
ActiveCell.FormulaR1C1 = "1"       '在当前单元格填入1
'上面三行可写成一句：[d1]=1
Range("k5").Select
Range("k5").Select    '选中K5，上行冗余
ActiveCell.FormulaR1C1 = "=IF(R1C4=1,MIN(RC[-3]:RC[-2]),0)"    '在K5中填写公式。公式内容相当于if(n6=1,min(h5:i5),0)
上面三行可写成：[k5]="=if(n6=1,min(h5:i5),0) "
Range("k5").Select  '选中K5
Selection.AutoFill Destination:=Range("k5:k10"), Type:=xlFillDefault  '将K5公式填充至k5:k10区域
Range("k5:k10").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "1"
Range("k5").Select
End Sub
评论：上面各行代码冗余语句过多，效率不高。仅需下面3句即可完成所有功能
[d1]=1
[k5]="=if(n6=1,min(h5:i5),0) "
[k5:k10].filldown