今天要講的例子，字段提取到新表並轉置。
問題如下：
解決的思路如下：
代碼運行的結果如下：
代碼如下:
代碼解析
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分享 的文章
