各位老师们帮帮忙，多种条件汇总数据

冰叶雕翎 · 发表于 2024-11-26 11:49

ykcbf1100 发表于 2024-11-26 10:45
月份数据导入

老师好，刚看了代码是可以满足需求的，刚刚又得了新的数据模板跟前面的模板相差很大，修改了几次代码都没有成功，还要在麻烦老师帮忙修改一下，谢谢

ykcbf1100 · 发表于 2024-11-26 12:35

冰叶雕翎发表于 2024-11-26 11:49
老师好，刚看了代码是可以满足需求的，刚刚又得了新的数据模板跟前面的模板相差很大，修改了几次代码都没 ...

源数据变化很大啊。

ykcbf1100 · 发表于 2024-11-26 12:36

源数据变化大，代码改一下吧。

Sub ykcbf() '//2024.11.26 月份数据导入
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = CreateObject("Scripting.Dictionary")
Set ws = ThisWorkbook
p = ThisWorkbook.Path & ""
bt = [{"制卡成功","已采集未提交制卡","卡商开户中","卡商开户失败","卡商制卡中"}]
Dim tm: tm = Timer
For Each f In fso.GetFolder(p).Files
If Val(f.Name) Then
d.RemoveAll
fn = Val(Mid(fso.GetBaseName(f), 5, 2)) & "月"
ReDim brr(1 To 10000, 1 To 100)
m = 0
Set wb = Workbooks.Open(f, 0)
arr = wb.Sheets(1).UsedRange
wb.Close 0
For i = 2 To UBound(arr)
If arr(i, 10) <> Empty Then
s = arr(i, 10)
p1 = IIf(arr(i, 17) = "3.0", 1, 0)
p2 = IIf(arr(i, 17) = "2.0", 1, 0)
p3 = IIf(arr(i, 18) = "已签发", 1, 0)
Select Case Trim(arr(i, 14))
Case Is = bt(1)
c = 3
Case Is = bt(2)
c = 4
Case Is = bt(3)
c = 5
Case Is = bt(4)
c = 6
Case Is = bt(5)
c = 7
End Select
If Not d.exists(s) Then
m = m + 1
d(s) = m
brr(m, 1) = s
brr(m, c) = p1
brr(m, 8) = p2
brr(m, 9) = p3
Else
r = d(s)
brr(r, c) = brr(r, c) + p1
brr(r, 8) = brr(r, 8) + p2
brr(r, 9) = brr(r, 9) + p3
End If
End If
Next
With ws.Sheets(fn)
.UsedRange.Offset(3).ClearContents
.[a4].Resize(m, 9) = brr
.[a4].Resize(m, 9).Borders.LineStyle = 1
For i = 4 To m + 3
.Cells(i, 2) = Application.Sum(.Cells(i, 3).Resize(, 6))
Next
.Cells(m + 4, 1) = "合计"
For j = 2 To 9
.Cells(m + 4, j) = Application.Sum(.Cells(4, j).Resize(m))
Next
End With
End If
Next f
Set d = Nothing
Set d1 = Nothing
Application.ScreenUpdating = True
MsgBox "共用时：" & Format(Timer - tm) & "秒！"
End Sub

复制代码

excel玉米 · 发表于 2024-11-26 14:51

我也来湊下热闹。。。
区域汇总表中有三个按钮，第一个按钮生成各个月份的汇总表（一个月一个sheet），第二个按钮按区域汇总，汇总到区域汇总表中。第三个按钮按月份汇总，汇总到月份汇总表中。请查看附件。

deadzlq · 发表于 2024-11-26 16:46

PQ+PivotTable参考

z865593849 · 发表于 2024-11-26 17:25

本帖最后由 z865593849 于 2024-11-26 17:34 编辑

冰叶雕翎发表于 2024-11-26 10:31
老师好，脚本在运行的时候有报错，错误项为【conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ...

你没装accessdatabaseengine，用OFFICE

冰叶雕翎 · 发表于 2024-11-27 08:24

本帖最后由冰叶雕翎于 2024-11-27 08:46 编辑

deadzlq 发表于 2024-11-26 16:46
PQ+PivotTable参考

老师好，你给我方法是可以，但是每个月的数据很多，少的有70-80万条，到了10月后有时是一个月会出现两个数据表，这样单个表无法承载数据的，另外但个月的数据量大时会出现两个表（例如：工作簿名称20241103_1，20241103_2里面的子表20241103），还能修改吗

冰叶雕翎 · 发表于 2024-11-27 08:24

z865593849 发表于 2024-11-26 17:25
你没装accessdatabaseengine，用OFFICE

好的，谢谢老师

冰叶雕翎 · 发表于 2024-11-27 08:40

ykcbf1100 发表于 2024-11-26 12:36
源数据变化大，代码改一下吧。

老师好，运行代码是有报错，还有刚同事说从这个月开始的数据量增大导出时会变成两个表（例如：工作簿名称20241103_1，20241103_2里面的子表20241103）这样代码需要修改吗

ykcbf1100 · 发表于 2024-11-27 09:35

冰叶雕翎发表于 2024-11-27 08:40
老师好，运行代码是有报错，还有刚同事说从这个月开始的数据量增大导出时会变成两个表（例如：工作簿名称 ...

应该需要修改吧，你源文件名都变了。

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

[求助] 各位老师们帮帮忙，多种条件汇总数据