关于VBA数组结合字典一维转二维的疑问

阿煮

一维转二维。我用了3个字典。字典1的关键词是No，字典2的关键词是Fruit。字典3的关键词是No|Fruit，字段的值就是该No|Fruit有几条。 然后创建一个二维数组aRes，行数=字典1有几条键值；列数=字典2有几条键值。 纵向外循环遍历字典1所有键值。横向内循环遍历字典2所有键值,No|Fruit就是一个key,d3(No|Fruit)就是对应的值，即No|Fruit的数据有几条,放在aRes。 但是数量少还好。多了 比如20万行就很卡了。请问有快点的其他的思路吗。谢谢。

ykcbf1100

附件供参考，全表自动生成，一个字典。

ykcbf1100

参与一下。。。

taller

使用PQ，无需VBA代码

1. let
   
2.     Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
   
3.     #"Changed Type" = Table.TransformColumnTypes(Source,{{"No", Int64.Type}, {"Fruit", type text}}),
   
4.     #"Grouped Rows" = Table.Group(#"Changed Type", {"No", "Fruit"}, {{"CountQty", each Table.RowCount(_), Int64.Type}}),
   
5.     #"Pivoted Column" = Table.Pivot(#"Grouped Rows", List.Distinct(#"Grouped Rows"[Fruit]), "Fruit", "CountQty", List.Sum)
   
6. in
   
7.     #"Pivoted Column"

复制代码

taller

一维转二维的疑问.7z (159.31 KB, 下载次数: 13)

2024-9-22 23:09 上传

点击文件名下载附件

PQ转换数据，数据源更新后，刷新即可

zhangcheng6688

ykcbf1100 发表于 2024-9-22 21:34
参与一下。。。

留底学习，

阿煮

taller 发表于 2024-9-22 23:09
PQ转换数据，数据源更新后，刷新即可

PQ主要考虑列多 比如几千列还是会很卡顿 有时候用着就后面列不显示了

阿煮

ykcbf1100 发表于 2024-9-22 21:34
参与一下。。。

就是这个意思，写出我想要的那个效果，测试了下30万行数据 一分钟内也能完成。新机器就更快了。完美

saghj

这种一维转二维用字典嵌套会不会更方便一点

阿煮

saghj 发表于 2024-9-24 15:27
这种一维转二维用字典嵌套会不会更方便一点

是的  用字典来的