excel宏编写求助

来源：百度知道 编辑：UC知道 时间：2024/06/05 14:34:07
Range("B1").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-1]:R[119]C[-1])"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-1]:R[119]C[-1])"
Range("B3").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-1]:R[119]C[-1])"
Range("B4").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-1]:R[119]C[-1])"
Range("B5").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-1]:R[119]C[-1])"
Range("B6").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-1]:R[119]C[-1])"
Range("B7").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-1]:R[119]C[-1])"
Range("B8").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-1]:R[119]C[-1])"
Range("B9").Select
能帮我继续编写生成能够填写到B7744行的自动生成语句吗~！！！！谢谢高手们
就是A列很多数 我要在B列中做 A1到A120比较最大 填到B1 A2-A121 最大到B2以此类推

看起来像是循环语句,干吗不用For语句?

请把你想实现的效果,举个简单的例子说一下,或许可以用更好的思路去解决,单看你的代码,不仅难理解,而且头痛.

For i = 1 to 7744
cells(i,2)=Application.WorksheetFunction.Max(range(cells(i,1),cells(i+119,1)))
next i

for i=2 to 7744
Cells(i, 2).Formula = "=MAX(RC[-1]:R[119]C[-1])"
next i