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

原创于 2021-01-31 14:33:32 发布 · 259 阅读

0 ·

CC 4.0 BY-SA版权

vba 专栏收录该内容

18 篇文章

订阅专栏

这篇博客展示了两个VBA宏的实现，分别用于数据整理和出货表的统计分析。第一个宏`Subtest()`从A列中筛选不为空的值，并将它们分别填入E和F列。第二个宏`出货表问题()`计算了J列对应项的总金额、平均值和单价，涉及对A、C和E列的数据进行迭代和计算。这两个宏在Excel数据处理中具有实用价值。

在这里插入图片描述

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