今天要讲的例子涉及到跨工作簿，统计数据。
问题如下：
解决的思路如下：
代码运行的结果如下：
代码如下:
代码解析
1：2~3行 分别关闭Excel的警告，及屏幕刷新；
2：4~5行 DIM定义变量；
3：6行 获得当前工作簿的路径；
4：7行 需要打开工作簿的名称；
5：8~11行 打开工作簿，并把第一个工作表的数据，放入数组，然后关闭。（若没有之前关闭Excel警告的代码，此处会弹出保存对话框。）
6：12~15行 由于需求的“原件品号”及“位置“在工作表中，列号可能并不是固定的。所以需要查找与之对应的列号；
7：16~25行 新建一个数组，用于放新的数据。遍历arr数组，判断是否为空，并把”位置“列所包含的数据，用”，“进行拆分。分别写入数组。
8：26~29行 清空目标区域的内容，并写入数组；
9：30~31行 打开Excel的警告，及屏幕刷新；
私信 视频 可以获取54集VBA入门视频
私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件
分享到:
閱讀更多 浮雲Excel分享 的文章
