|
- Sub jb()
- 'On Error Resume Next
- Dim a%, b%, i%, j%
- a = Cells(Rows.Count, 1).End(xlUp).Row
- b = Cells(4, Columns.Count).End(xlToLeft).Column
- For i = 5 To a
- For j = 12 To b Step 4
- a1 = a1 + Cells(i, j)
- a2 = a2 + Cells(i, j + 1)
- a3 = a3 + Cells(i, j + 2)
- If a3 = 0 Then
- Cells(i, j + 3) = ""
- ElseIf (a1 + Range("d" & i)) Then
- Cells(i, j + 3) = Round((a2 + Range("e" & i)) * Cells(i, j + 2) / (a1 + Range("d" & i)), 2)
- End If
- a4 = a4 + Cells(i, j + 3)
- Range("f" & i) = a1
- Range("g" & i) = a2
- Range("h" & i) = a3
- Range("i" & i) = a4
- Range("j" & i) = Range("d" & i) + a1 - a3
- Range("k" & i) = Range("e" & i) + a2 - a4
- Next j
- a1 = 0: a2 = 0: a3 = 0: a4 = 0
- Next i
- Range("e3") = Application.Subtotal(109, Range(Cells(5, 5), Cells(a, 5)))
- Range("g3") = Application.Subtotal(109, Range(Cells(5, 7), Cells(a, 7)))
- Range("i3") = Application.Subtotal(109, Range(Cells(5, 9), Cells(a, 9)))
- Range("k3") = Application.Subtotal(109, Range(Cells(5, 11), Cells(a, 11)))
- End Sub
复制代码 |
|