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

高原HL006 · 发表于 2024-3-26 11:41

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

cnmlgb9998 · 发表于 2024-3-26 11:52

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

hcm19522 · 发表于 2024-3-26 12:09

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

高原HL006 · 发表于 2024-3-26 12:52

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

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

高原HL006 · 发表于 2024-3-26 12:54

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

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

沈默00 · 发表于 2024-3-26 13:22

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

高原HL006 · 发表于 2024-3-26 13:35

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

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

高原HL006 · 发表于 2024-3-26 13:53

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

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

3190496160 · 发表于 2024-3-26 14:38

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 · 发表于 2024-3-26 14:38

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

		自动登录	找回密码
密码			免费注册

[求助] 若干个表格里的数据分类汇总

评分

评分

评分

最新热点 /1