今天要講的例子涉及到跨工作簿，統計數據。
問題如下：
解決的思路如下：
代碼運行的結果如下：
代碼如下:
代碼解析
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分享 的文章
