若干个表格里的数据分类汇总

高原HL006

新手小白请教各位大神：若干个表格里的数据如何分类汇总？

cnmlgb9998

PQ解决！！！！！！！！！！！！！！！

hcm19522

F2 下拉=E3*LOOKUP(1,0/ISERR(-F$2:F2),F$1:F1)
F2 複製到各處 下拉

高原HL006

cnmlgb9998 发表于 2024-3-26 11:52
PQ解决！！！！！！！！！！！！！！！

好的，谢谢大神帮忙指点，我看看这个PQ咋用！

高原HL006

hcm19522 发表于 2024-3-26 12:09
F2 下拉=E3*LOOKUP(1,0/ISERR(-F$2:F2),F$1:F1)
F2 複製到各處 下拉

好的，我试试，多谢大神指点

沈默00

分类统计汇总是没问题，我之前也曾经做过和你一样的工作，建议你的基础表做规范些，毕竟后续还有很多数据需要处理，参考下都做在一张表里，

高原HL006

cnmlgb9998 发表于 2024-3-26 11:52
PQ解决！！！！！！！！！！！！！！！

麻烦大神帮忙看看，我的PQ打开怎么没有输入公式的那一行

高原HL006

沈默00 发表于 2024-3-26 13:22
分类统计汇总是没问题，我之前也曾经做过和你一样的工作，建议你的基础表做规范些，毕竟后续还有很多数据需 ...

是的，这样也是个不错的方法，谢谢！

3190496160

Sub 汇总()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long, r As Long, rs As Long
Dim br()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("sheet1")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:f" & r)
End With
ReDim br(1 To UBound(ar), 1 To 5)
For i = 3 To UBound(ar) Step 14
    For s = i To i + 9
        If ar(s, 1) <> "" Then
            n = n + 1
            br(n, 1) = n
            For j = 2 To 4
                br(n, j) = ar(s, j)
            Next j
            br(n, 5) = ar(s, j)
        End If
    Next s
Next i
With Sheets("汇总")
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(n, UBound(br, 2)) = br
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

test.rar (23.12 KB, 下载次数: 4)

2024-3-26 14:38 上传

点击文件名下载附件