Excel VBA 字段提取到新表并转置

今天要讲的例子，字段提取到新表并转置。

问题如下：

解决的思路如下：

代码运行的结果如下：

代码如下:

代码解析

1：2~3行 DIM定义变量；

2：4、5、31、32行 关闭打开程序警告及屏幕刷新；

3：6~7行 后期绑定字典；

4：8行 把值赋值给数组arr；

5：8行 获取该单元格区域内的，最后一个非空单元格；

6：9行 把获得的区域，赋值给数组arr；

7：9~16行 遍历数组；

8：11~12行 把表中文名称作为dic的key，把对应的区域作为dic的item，把表中文名称作为dic1的key，把对应的表英文名称作为dic1的tiem；

9：13行 dic如果已经存在就连接之前的区域；

10：18~29行 遍历字典；

11：19行 再所有工作表的后面，新建工作表

12：21行 新工作表的名称等于字典的key值；

13：22~23行 新工作表的A1,A2单元格，分别赋值。

14：24行 复制dic对应key的item。

15：25~26行 选着A3单元格，并转置黏贴到该区域。