|
以下是那段循环的代码:
Range("F2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-2]-SUMIF(C[-4],RC[-4],C)<1,0,IF(RC[-2]-SUMIF(C[-4],RC[-4],C)<RC[-1],RC[-2]-SUMIF(C[-4],RC[-4],C),RC[-1]))"
Range("F2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
本人是VBA小白,不会用循环,求大神帮忙,万分感谢~~~~~
Range("F2:F" & [a65536].End(3).Row).FormulaR1C1 = _
"=IF(RC[-2]-SUMIF(C[-4],RC[-4],C)<1,0,IF(RC[-2]-SUMIF(C[-4],RC[-4],C)<RC[-1],RC[-2]-SUMIF(C[-4],RC[-4],C),RC[-1]))"
Range("F2:F" & [a65536].End(3).Row) = Range("F2:F" & [a65536].End(3).Row).Value
End Sub
|
|