今天要讲的例子，是一个复杂的条件转置问题，没有办法通过Excel自带的复制，转置来完成。
问题如下：
解决的思路如下：
代码运行的结果如下：
代码如下:
代码解析
1：2~3行 DIM定义变量；
2：4、22行 关闭、打开屏幕刷新；
3：5行 并原始数据，放入arr数组；
4：6行 后期绑定字典；
5：7~13行 遍历arr数据，把不重复的值，作为字典的key；把B列的数据作为item；
6：11行 当字典重复的时候，用“|”连接所有B列的值；
7：14行 清空单元格的内容；
8：15行 字典常规用法，输出字典的key
9：16~19行 输出字典的item
10：17行 用split函数，拆分字典的item，并输出itme拆分之后的内容
11：35~40行 查询字典，遍历arr数组。没有查到的赋值为空，查到的就返回字典的item值
《Excel VBA 数组公式Split 和Join》
《字典入门key和item》
私信 视频 可以获取54集VBA入门视频
私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件
分享到:
閱讀更多 浮雲Excel分享 的文章
