[已解决]VBA如何对偶数行求和

laoau138

VBA如何对偶数行求和

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-15 13:55

1. Sub aaa()
   
2. Dim arr, brr, i&, j&
   
3. arr = [a1].CurrentRegion
   
4. ReDim brr(1 To UBound(arr, 2))
   
5. For i = 2 To UBound(arr) Step 2
   
6.   For j = 1 To UBound(arr, 2)
   
7.     brr(j) = brr(j) + arr(i, j)
   
8.   Next j
   
9. Next i
   
10. [l2].Resize(, UBound(brr)) = brr
    
11. End Sub

复制代码

跳转到最佳答案楼层

yanhj

Private Sub CommandButton1_Click()
    For x = 1 To 10
      Cells(2, 11 + x) = Cells(2, x) + Cells(4, x) + Cells(6, x)
    Next
End Sub

laoau138

yanhj 发表于 2017-4-7 15:57
Private Sub CommandButton1_Click()
    For x = 1 To 10
      Cells(2, 11 + x) = Cells(2, x) + Cell ...

请用数组来写

大灰狼1976

1. Sub aaa()
   
2. Dim arr, brr, i&, j&
   
3. arr = [a1].CurrentRegion
   
4. ReDim brr(1 To UBound(arr, 2))
   
5. For i = 2 To UBound(arr) Step 2
   
6.   For j = 1 To UBound(arr, 2)
   
7.     brr(j) = brr(j) + arr(i, j)
   
8.   Next j
   
9. Next i
   
10. [l2].Resize(, UBound(brr)) = brr
    
11. End Sub

复制代码