利用VBA代碼實(shí)現(xiàn)工作表數(shù)據(jù)的遍歷

林麗華

同事前來求助，某個(gè)工作簿其中有多個(gè)公司的信息，現(xiàn)在她希望將每個(gè)工作表的名稱快速匯總到“匯總”工作表的F列，同時(shí)還希望將各個(gè)工作表內(nèi)統(tǒng)一單元格的數(shù)值和文字匯總到“匯總”工作表的G、H列，該如何操作呢？

對(duì)于上述要求，單純利用公式顯然難度較大，畢竟這涉及到工作表的遍歷，我們可以借助下面的VBA代碼實(shí)現(xiàn)：按下“Alt+F11”組合鍵，打開Microsoft Visual Basic for Applications編輯器窗口，依次選擇“插入→模塊”，在右側(cè)窗格插入一個(gè)空白模塊，手工輸入或粘貼如下代碼（相關(guān)代碼可關(guān)注電腦迷微信回復(fù)“201507vba1”獲得，如圖1）。

上述代碼中的“If sh.Name <> "匯總" Then”表示將各個(gè)工作表的名稱添加到“匯總”工作表，“c2”和“f2”表示各個(gè)工作表的數(shù)據(jù)，代碼檢查無誤之后，依次選擇“文件→關(guān)閉并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”組合鍵，打開“宏”對(duì)話框，很快就可以將各個(gè)工作表的數(shù)據(jù)匯總起來（如圖2）。