之前講的實例，都是把數據放在字典的item裡面，今天要講的是把單元格區域，放在字典裡面。
問題如下：
解決的思路如下：
代碼運行的結果如下：
代碼如下:
代碼解析
1：2行 dim定義變量；
2：3、34行 關閉、打開屏幕刷新（提高VBA的運行速度）
3：4行 後期綁定字典；
4：5行 讀取sheet1的A1單元格的數據；
5：7~8行 讀取sheet2 的最後一列非空單元格及最後一行非空單元格；
6：9~20行 對sheet2區域進行循環，第一給if判斷是否為空，第二個if區域內的行數否等於sheet1的A1單元格數據。第三個if判斷是否為第一次出現，如果是第一次出現則把區域作為item放在字典裡面。否則就用union連接上一次與這一次的區域。
7：23~31行 首先裡面m的值，來判斷字典裡面是否有數據。if函數里面m為什麼沒有比較符號。其具體用法相見《Excel VBA If……Then的循環你真的明白了嘛？》。.cells如果括號裡面沒有數據，則表示工作表裡面所有單元格。
8：27行，為區域放在字典items裡面的讀取形式
35：用iff來判斷是否運行，反饋信息
私信 視頻 可以獲取54集VBA入門視頻
私信 VBA或 vba 可以獲取文章中含VBA代碼的Excle文件
分享到:
閱讀更多 浮雲Excel分享 的文章
