求助如何统计数据

cidanji

smuuwl

月落天涯 发表于 2024-9-3 10:20
其实就是把M2单元格标注日期的数据从明细表复制到统计表里，然后计算出成率。成品分冻五花，鲜五花，冻肉 ...

按明细表里合并的数据，在统计里面合并，不然你这个分类不知道如何算

扇扇扇

Sub sss()

Dim arr, brr
Dim i%, j%, lr%

Application.ScreenUpdating = False: Application.DisplayAlerts = False
With Sheets("统计")
    .Activate
    .[a4:i1000].ClearContents: .[a4:i1000].Borders.LineStyle = xlNone
    .Cells.UnMerge: .[a1:i1].Merge
    .[b2] = .[m2]
End With
arr = Sheets("明细").UsedRange
ReDim brr(1 To UBound(arr), 1 To 9)
m = 0
For i = 2 To UBound(arr)
    If arr(i, 2) = [m2] Then
        m = m + 1
        brr(m, 1) = m
        For n = 2 To 5
        brr(m, n) = arr(i, n + 1)
        Next
        brr(m, 6) = arr(i, 8)
        brr(m, 9) = arr(i, 9)
    End If
Next
[a4].Resize(UBound(brr), UBound(brr, 2)) = brr

lr = Cells(Rows.Count, 1).End(3).Row

i = 4
    For j = i + 1 To lr
        If Range("c" & j) <> "" Then
            Range("b" & i & ":" & "b" & j - 1).Merge: Range("c" & i & ":" & "c" & j - 1).Merge
            Range("g" & i & ":" & "g" & j - 1).Merge: Range("g" & i) = WorksheetFunction.Sum(Range("f" & i & ":" & "f" & j - 1))
            Range("h" & i & ":" & "h" & j - 1).Merge: Range("h" & i) = Range("g" & i) / Range("c" & i)
            i = j
        End If
    Next

Cells(lr + 1, 1) = "合计："
arr = Array(3, 5, 6, 7)
For i = 0 To 3
Cells(lr + 1, arr(i)) = WorksheetFunction.Sum(Range(Cells(4, arr(i)), Cells(lr, arr(i))))
Next
Range("a3:i" & lr + 1).Borders.LineStyle = xlContinuous
Application.ScreenUpdating = True: Application.DisplayAlerts = True
MsgBox "完成"

End Sub

扇扇扇

练习一下

扇扇扇

扇扇扇 发表于 2024-9-3 13:09
练习一下

月落天涯

扇扇扇 发表于 2024-9-3 13:10

你好，梅花肉统计不到数据。

扇扇扇

月落天涯 发表于 2024-9-3 15:17
你好，梅花肉统计不到数据。

再试试