[已解决]用VBA循环下去.

爷们679

I列     先计算I4单元格加I5单元格加I6单元格加I7单元格加I8单元格,再除以数字5后计算结果填入K9单元格

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-8-25 14:31

1. Sub aaa()
   
2. Dim arr, brr, i&, n&
   
3. arr = Range("i4:i" & [i65536].End(3).Row)
   
4. ReDim brr(1 To UBound(arr) - 4, 1 To 1)
   
5. n = arr(1, 1) + arr(2, 1) + arr(3, 1) + arr(4, 1)
   
6. For i = 5 To UBound(arr)
   
7.   brr(i - 4, 1) = (n + arr(i, 1)) / 5
   
8.   n = n + arr(i, 1) - arr(i - 4, 1)
   
9. Next i
   
10. [l9].Resize(UBound(brr)) = brr
    
11. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr, brr, i&, n&
   
3. arr = Range("i4:i" & [i65536].End(3).Row)
   
4. ReDim brr(1 To UBound(arr) - 4, 1 To 1)
   
5. n = arr(1, 1) + arr(2, 1) + arr(3, 1) + arr(4, 1)
   
6. For i = 5 To UBound(arr)
   
7.   brr(i - 4, 1) = (n + arr(i, 1)) / 5
   
8.   n = n + arr(i, 1) - arr(i - 4, 1)
   
9. Next i
   
10. [l9].Resize(UBound(brr)) = brr
    
11. End Sub

复制代码

爷们679

大灰狼1976 发表于 2017-8-25 14:31

arr = Range("i4:i" & [i65536].End(3).Row)
这句代码能否解释一下

大灰狼1976

arr = Range("i4:i" & [i65536].End(3).Row)
其中[i65536].End(3).Row取得的是I列最后一个数据的行号，比如是100，那么就相当于
arr = Range("i4:i100")
这样能明白吗？

爷们679

大灰狼1976 发表于 2017-8-25 15:29
arr = Range("i4:i" & .End(3).Row)
其中.End(3).Row取得的是I列最后一个数据的行号，比如是100，那么就相 ...

好的，我明白了。