【烟花原创】VBA零基础之第137篇 字典（十四）

hwc2ycy

四、实战

5．格式转换（类似于数透功能）

数据源（部分截图）：

转换后的表格效果图：

思路：

根据标题行的字段顺序依据产品型与发货人，统计汇总对应的数据。

代码中定义三个字典对象变量：

Dcp存放产品型号，用来生成第一列的产品列表（去重复）

Dch存储出货人，用来生成第一行的列标题字段。当用动态数组时会用到这个出货人数量。

D存储某个产品经由某个出货人出货的数量汇总。

代码：

思考：

如果出货人字段要按源数据中出货人出现的先后顺序来排列，代码要如何修改？

zjdh

建议部分代码修改：
原
For Each RAN In Range("h1:m1")
        Dch.Add RAN, ""
Next
改为
For Each RAN In Range("B2", Range("B65536").End(3))
       Dch(RAN.Value) = ""
Next
理由：
1. 截图中出货人在B列。
2. 接下来需要的是具体的出货人，而不是单元格的全部属性。

yewei113

支持

Ex_EP

zjdh 发表于 2014-3-28 09:08
建议部分代码修改：
原
For Each RAN In Range("h1:m1")

是的

yewei113

支持{:35:}

tingfeng461002

含月化烛

{:35:}