第47讲-合并单元格数据汇总-答案、出货表练习讲解

Sub test()
Dim i As Long, sum As Long, j As Long
j = 1
For i = 2 To 13
    If Range("a" & i) <> "" Then
        j = j + 1
        Range("e" & j) = Range("a" & i)
        Range("f" & j) = Range("c" & i)
        
    Else
        Range("f" & j) = Range("f" & j) + Range("c" & i)
    End If
    
Next
End Sub

Sub 出货表问题()
    Dim i As Long, 总金额 As Double, 总数量 As Long, 笔数 As Long
    Dim j As Long
    For j = 2 To 6
        总金额 = 0
        总数量 = 0
        笔数 = 0
        For i = 2 To 37
            If Cells(i, "a") = Cells(j, "j") Then
                总金额 = 总金额 + Cells(i, "e")
                总数量 = 总数量 + Cells(i, "c")
                笔数 = 笔数 + 1
            
            End If
        Next
        Cells(j, "k") = 总金额
        Cells(j, "l") = 总金额 / 笔数
        Cells(j, "m") = 总金额 / 总数量
   Next
End Sub