私人？Sub？CommandButton1_Click()
下面三行沒有解釋的定義變量，對嗎？
暗淡？Fso，？Fld，？Fd，？f，？股骨長度
暗淡？啊？k%，？icl%
暗淡？Dic？作為？目標
初始化該對象，您需要查看Dictionary和FileSystemObject以獲得更詳細的解釋。
設置？Dic？=?Createobject("腳本。字典")'創建壹個字典。
設置？Fso？=?Createobject("腳本。文件系統對象”)'創建FSO。
設置？Fld？=?Fso.getfolder(ThisWorkbook。路徑？& amp？" \ ")'獲取當前文件夾對象
設置？Fd？=?Fld。“子文件夾”獲取當前文件夾下的所有子文件夾值。
為了什麽？每個？f？在？Fd？這是為了什麽？每個循環實現了遍歷工作表文件夾下所有子文件夾的功能。
為了什麽？每個？Fl？在？f .文件？所有子文件夾中的文件Fl
如果？儀器(佛羅裏達州姓名，？[B1])？如果文件名包含當前工作表B1的內容。
練習冊。開放？' Fl '打開文件
用什麽？“活動工作簿”活動工作簿是壹個新打開的文件。
Arr？=?。ActiveSheet。[A3:F5]'將新打開文件的默認工作表A3:F5保存到數組中。
。“關閉”關閉新打開的文件。
結束？隨著
為了什麽？k？=?1?去哪？UBound(Arr)雙環陣列
為了什麽？icl？=?1?去哪？5?壹步？2
Dic(Arr(k，icl))？=?Arr(k，？icl？+?1)'創建或修改字典項目。
然後
然後
Arr？=?範圍(" A2 "，[A65536]。End(3)(1，？2))'使用字典將當前工作表的A列翻譯成b列。
為了什麽？k？=?1?去哪？欠奉
Arr(k，？2)?=?Dic(Arr(k，1))
然後
[B2]。調整大小(k？-?1)?=?申請。索引(Arr，,?2)
退出？潛水艇
結束？如果
然後
然後
釋放那些對象變量。
設置？Fso？=?沒事:？Fld？=?沒事:？f？=?沒事:？Fl？=?沒有任何東西
結束？潛水艇