excel吧 关注：282,014贴子：1,557,359
- 8回复贴，共1页
不感兴趣
开通SVIP免广告
菠萝蜜 Option Explicit
Sub test()
Dim i, arr, brr, j
arr = Range(Cells(2, 3), Cells([b65536].End(xlUp).Row, _
[xfd1].End(xlToLeft).Column - 2))
ReDim brr(1 To UBound(arr, 2))
For i = 1 To UBound(arr, 2)
For j = 2 To UBound(arr, 1)
brr(i) = brr(i) + Val(arr(j, i))
Next j, i
For i = 1 To UBound(arr, 2)
Cells(3, 15 + i) = arr(1, i)
Next
[p4].Resize(1, UBound(brr)) = brr
End Sub
Sub test()
Dim i, arr, brr, j
arr = Range(Cells(2, 3), Cells([b65536].End(xlUp).Row, _
[xfd1].End(xlToLeft).Column - 2))
ReDim brr(1 To UBound(arr, 2))
For i = 1 To UBound(arr, 2)
For j = 2 To UBound(arr, 1)
brr(i) = brr(i) + Val(arr(j, i))
Next j, i
For i = 1 To UBound(arr, 2)
Cells(3, 15 + i) = arr(1, i)
Next
[p4].Resize(1, UBound(brr)) = brr
End Sub
