今天讲的实例,是昨天《Excel VBA 复杂的行列转换》的逆过程
问题如下:
解决的思路如下:
代码运行的结果如下:
代码如下:
代码解析
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行 设置三个字典为空。