Sub 总金额()
Cells(46, 2) = 0
For i = 2 To 44
Cells(46, 2) = WorksheetFunction.Sum(Cells(46, 2), Cells(i, 2) * WorksheetFunction.CountA(Range(Cells(i, 3), Cells(i, 24))))
Next i
End Sub
Sub 总份数()
Cells(46, 1) = WorksheetFunction.CountA(Range("c2:z44"))
End Sub