|
本帖最后由 1032446692 于 2013-8-31 10:59 编辑
- Sub test()
- Dim rng As Range, a, i, j, arr, arrb
- a = Cells(Rows.Count, 3).End(xlUp).Row - 1
- ReDim arrb(1 To a, 1 To 1)
- Set rng = Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
- arr = Cells(2, 4).Resize(a, rng.Column - 4)
- For i = 1 To a
- For j = 1 To rng.Column - 4
- arrb(i, 1) = arrb(i, 1) + arr(i, j)
- Next j
- Next i
- Cells(2, rng.Column).Resize(a) = arrb
- End Sub
复制代码 |
|