本帖最后由 一把小刀闯天下 于 2019-2-17 11:45 编辑
Option Explicit
Sub test()
Dim arr, i, j, m, sum, n
arr = Sheets("数据").[a1].CurrentRegion.Offset(2)
ReDim brr(1 To UBound(arr, 1), UBound(arr, 2))
For i = 1 To UBound(arr, 1) - 2
sum = sum + arr(i, 2)
If i Mod 7 = 0 Or i = UBound(arr, 1) - 2 Then
m = m + 1: n = n + 1: brr(m, 0) = Format(n, "第0周")
For j = 1 To UBound(arr, 2): brr(m, j) = arr(i, j): Next
brr(m, 2) = sum: sum = 0
End If
Next
With Sheets("结果").[a3]
.Resize(Rows.Count - 2, UBound(brr, 2) + 1).ClearContents
.Resize(m, UBound(brr, 2) + 1) = brr
End With
End Sub
|