今天要讲的例子,产品数据汇总。
问题如下:
解决的思路如下:·
代码运行的结果如下:
代码如下:
代码解析
1:2~3行 DIM定义变量;
2:4、16行 关闭、打开屏幕刷新;
3:5~15行 遍历每个工作表;
4:6行 排除不需要汇总的工作表;
5:6~10行 遍历数组arr;
6:7~8行 m为计数器,k记录工作表的名称;
7:9行 判断工作表的内容是否为空;
8:10行 获取工作表的最后一个非空单元格;
9:11行 获取汇总工作表的最后一个非空单元格;
10:12行 复制工作表的数据,到汇总表的非空单元格下方。
私信 视频 可以获取54集VBA入门视频
私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件
閱讀更多 浮雲Excel分享 的文章