几万行的数据，现在的公式很慢，不得不求助老师

gaveout

Chip_Kenny 发表于 2018-8-23 11:48

感谢老师的帮助，谢谢您！祝您与家人工作顺利，天天开心。

iwangyi

数据量大建议用数据库

gaveout

莫名v微笑 发表于 2018-8-23 11:53

感谢老师的帮助，谢谢您！祝您与家人工作顺利，天天开心。

gaveout

hefuqing 发表于 2018-8-23 11:56

感谢老师的帮助，谢谢您！祝您与家人工作顺利，天天开心。

hefuqing

gaveout 发表于 2018-8-23 12:24
感谢老师的帮助，谢谢您！祝您与家人工作顺利，天天开心。

我的代码量最少 我需要小花哦

wdx223

PQ解法

1. let
   
2.     Source = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     #"Changed Type" = Table.TransformColumnTypes(Source,{{"上升编号", type text}, {"日期", Int64.Type}, {"大中小", type text}, {"数量", Int64.Type}}),
   
4.     #"Pivoted Column" = Table.Pivot(Table.TransformColumnTypes(#"Changed Type", {{"日期", type text}}, "zh-CN"), List.Distinct(Table.TransformColumnTypes(#"Changed Type", {{"日期", type text}}, "zh-CN")[日期]), "日期", "数量", List.Sum),
   
5.     Custom1 = Table.AddColumn(#"Pivoted Column","n",each Table.FromRows({Record.FieldValues(_)},List.ReplaceValue(Table.ColumnNames(#"Pivoted Column"),"大中小",[大中小],Replacer.ReplaceValue))),
   
6.     Custom2 = Table.Combine(Custom1[n]),
   
7.     Custom3 = Table.SelectColumns(Custom2,{"上升编号","大","中","小"}&List.Skip(Table.ColumnNames(#"Pivoted Column"),2))
   
8. in
   
9.     Custom3

复制代码

ggmmlol

1. Sub ggmmlol()
   
2. ar = Sheet1.Range("A1").CurrentRegion.Offset(1)
   
3. r = UBound(ar) - 1
   
4. ReDim br(1 To r, -3 To 31)
   
5. Set d = CreateObject("scripting.dictionary")
   
6. For i = 1 To r
   
7.     s = ar(i, 1) & ar(i, 3)
   
8.     If d.exists(s) Then
   
9.         p = d(s)
   
10.     Else
    
11.         n = n + 1: d(s) = n: p = n
    
12.         br(n, -3) = ar(i, 1)
    
13.         br(n, -3 + InStr("大中小", ar(i, 3))) = ar(i, 3)
    
14.     End If
    
15.     br(p, ar(i, 2)) = br(p, ar(i, 2)) + ar(i, 4)
    
16. Next
    
17. Sheet2.Range("D3:AL" & Rows.Count).ClearContents
    
18. With Sheet2.Range("D3").Resize(n, 35)
    
19.     .Value = br
    
20.     .Sort .Cells(1, 4), 2, .Cells(1, 3), , 2, .Cells(1, 2), 2, xlNo
    
21.     .Sort .Cells(1, 1), 1, Header:=xlNo
    
22. End With
    
23. End Sub

复制代码

ggmmlol

我的代码目前是最精简，但我给你送花花~~

ggmmlol

hefuqing 发表于 2018-8-23 12:40
我的代码量最少 我需要小花哦

我的代码目前是最精简，但我给你送花花~~

hefuqing

ggmmlol 发表于 2018-8-23 12:55
我的代码目前是最精简，但我给你送花花~~

你这是啥 我都看不懂啊 大仙下凡啊 佩服啊