- Sub test()
- Dim r%, i%
- Dim arr, brr
- With Worksheets("sheet1 (2)")
- r = .Cells(.Rows.Count, 1).End(xlUp).Row
- arr = .Range("a1:f" & r)
- ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
- For j = 1 To UBound(arr, 2)
- brr(1, j) = arr(1, j)
- Next
- m = 1
- ReDim drr(1 To UBound(arr, 2))
- drr(1) = "小计"
- For i = 2 To UBound(arr)
- If arr(i, 2) = "京CBK555" Then
- m = m + 1
- For j = 1 To UBound(arr, 2)
- brr(m, j) = arr(i, j)
- Next
- drr(2) = drr(2) + 1
- drr(5) = drr(5) + arr(i, 5)
- End If
- Next
- .Cells(r + 2, 1).Resize(m, UBound(brr, 2)) = brr
- r = .Cells(.Rows.Count, 1).End(xlUp).Row
- .Cells(r + 1, 1).Resize(1, UBound(drr)) = drr
- End With
- End Sub
复制代码 |