Excel VBA 复杂的行列转换2

今天讲的实例,是昨天《Excel VBA 复杂的行列转换》的逆过程

问题如下:

Excel VBA 复杂的行列转换2

解决的思路如下:

Excel VBA 复杂的行列转换2

代码运行的结果如下:

Excel VBA 复杂的行列转换2

代码如下:

Excel VBA 复杂的行列转换2

代码解析

1:2~3行 dim定义变量;

2:4~6行 后期绑定三个字典,作用见后面的注释;

4:8行 把数据表数据,放入数组arr;

4:9~14行 把数据分别写入字典,达到去重的目的;

5:15行 重新定义需求数据的数组大小

6:17~18行 写入第一行的标题栏;

7:20~22行 写入店号;

8:24~27行 写入商品及价格;

9:29-34行 写入要货量,此处采用了for循环的嵌套

10:36~41 用with语句,设置单元格的格式。注:此处的with语句,是在大的with语句下方。

11:42行 在目标区域,写入数组

12:44行 设置三个字典为空。

私信 视频 可以获取54集VBA入门视频

私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件


分享到:


相關文章: