- Sub Macro1()
- Dim arr, brr, i&, j%
- arr = Sheet1.Range("a4").CurrentRegion
- ReDim brr(1 To UBound(arr), 1 To 12)
- For i = 3 To UBound(arr)
- If arr(i, 1) = "" Then
- For j = 1 To 7
- arr(i, j) = arr(i - 1, j)
- Next
- End If
- If arr(i, 9) <> "小计" Then
- s = s + 1
- For j = 1 To 3
- brr(s, j) = arr(i, j)
- Next
- brr(i - 2, 4) = arr(i, 7)
- For j = 9 To 16
- brr(s, j - 4) = arr(i, j)
- Next
- End If
- Next
- ActiveSheet.UsedRange.Clear
- Range("a1").Resize(s, 12) = brr
- End Sub
复制代码 |