今天要讲的例子,字段提取到新表并转置。
问题如下:
解决的思路如下:
代码运行的结果如下:
代码如下:
代码解析
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单元格,并转置黏贴到该区域。
私信 视频 可以获取54集VBA入门视频
私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件
閱讀更多 浮雲Excel分享 的文章