善用VBA 提高工作效率

大江東去

在開(kāi)始介紹本期的VBA相關(guān)技巧之前，我們先來(lái)復(fù)習(xí)一下VBA的操作方法：按下“Alt+F11”組合鍵，打開(kāi)Microsoft Visual Basic for Applications編輯器窗口，依次選擇“插入/模塊”，在右側(cè)窗格插入一個(gè)空白模塊，手工輸入或粘貼代碼。代碼檢查無(wú)誤之后，選擇“文件/關(guān)閉并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”組合鍵，打開(kāi)“宏”對(duì)話框，選擇并運(yùn)行宏即可實(shí)現(xiàn)相應(yīng)操作。

利用VBA代碼快速查找數(shù)據(jù)

并提取內(nèi)容

在工作中遇到一個(gè)問(wèn)題，要求從Sheet2工作表查找出相關(guān)會(huì)員的分?jǐn)?shù)和總排名（如圖1），并將其顯示在Sheet3，由于原始表格的數(shù)據(jù)太大，使用公式的話耗費(fèi)的時(shí)間相對(duì)比較多，領(lǐng)導(dǎo)并不滿意，因此考慮使用VBA代碼實(shí)現(xiàn)上述任務(wù)。

按下“Alt+F11”組合鍵，打開(kāi)Microsoft Visual Basic for Applications編輯器窗口，依次選擇“插入/模塊”，在右側(cè)窗格插入一個(gè)空白模塊（如圖2），在這里手工輸入或粘貼如下代碼（相關(guān)代碼可關(guān)注電腦迷微信回復(fù)“201506vba1”獲取下載鏈接）。

上述代碼檢查無(wú)誤之后，依次選擇“文件/關(guān)閉并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”組合鍵，打開(kāi)“宏”對(duì)話框，選擇并運(yùn)行宏，很快就可以完成數(shù)據(jù)查找和復(fù)制的任務(wù)。

利用VBA代碼批量刪除特定行

最近從金蝶財(cái)務(wù)軟件中導(dǎo)出相關(guān)的明細(xì)帳（如圖3），需要?jiǎng)h除其中包含“期初余額”、“本日合計(jì)”、“本月合計(jì)”、“本年累計(jì)”、“結(jié)轉(zhuǎn)下年”單元格所在的行，由于數(shù)據(jù)量接近數(shù)十萬(wàn)條，手工刪除顯然相當(dāng)麻煩。我們可以使用VBA代碼解決這一問(wèn)題。

按下“Alt+F11”組合鍵，打開(kāi)Microsoft Visual Basic for Applications編輯器窗口，依次選擇“插入/模塊”，在右側(cè)窗格插入一個(gè)空白模塊。經(jīng)過(guò)分析，包含相關(guān)單元格內(nèi)容的行，在B列均為空白，因此我們可以在模塊窗格手工輸入或粘貼如下代碼（相關(guān)代碼可關(guān)注電腦迷微信回復(fù)“201506vba2”獲取下載鏈接）（如圖4）。

該代碼換了一種思路，主要是刪除B列非空白的數(shù)據(jù)，檢查無(wú)誤之后，依次選擇“文件/關(guān)閉并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”組合鍵，打開(kāi)“宏”對(duì)話框，選擇并運(yùn)行宏，很快就可以完成批量刪除的任務(wù)（如圖5）。

利用VBA代碼拼音

提取注音文本

手頭有一篇拼音標(biāo)注的佛經(jīng)注音校對(duì)文檔，其中的拼音是使用域代碼實(shí)現(xiàn)的，切換域代碼之后（如圖6），可以發(fā)現(xiàn)大量類(lèi)似于“（chénɡ），乘）”的文字，現(xiàn)在希望借助某種手段，將其中的注音文本提取出來(lái)復(fù)制到文檔的末尾，除了手工操作之外，有沒(méi)有簡(jiǎn)單一些的方法呢？

利用VBA代碼可以解決這一問(wèn)題，按下“Alt+F11”組合鍵，打開(kāi)Microsoft Visual Basic for Applications編輯器窗口，依次選擇“插入/模塊”，在右側(cè)窗格插入一個(gè)空白模塊，手工粘貼或輸入代碼（相關(guān)代碼可關(guān)注電腦迷微信回復(fù)“201506vba3”獲取下載鏈接）。

代碼檢查無(wú)誤之后，依次選擇“文件/關(guān)閉并返回到Microsoft Word”命令，返回Word主界面，按下“Alt+F8”組合鍵，打開(kāi)“宏”對(duì)話框，選擇并運(yùn)行宏，很快就可以得到結(jié)果（如圖7）。

利用VBA代碼實(shí)現(xiàn)復(fù)雜查重任務(wù)

最近在工作中遇到一個(gè)比較復(fù)雜的要求，需要對(duì)“數(shù)據(jù)表”工作表中B列（戶口編號(hào)）、D列（戶主姓名）進(jìn)行查重操作，希望在查詢到重復(fù)的戶主信息之后，將相關(guān)信息在“校驗(yàn)信息”工作表A列的空白單元格顯示。我們可以通過(guò)VBA代碼實(shí)現(xiàn)上述要求：

按下“Alt+F11”組合鍵，打開(kāi)Microsoft Visual Basic for Applications編輯器窗口，依次選擇“插入/模塊”，在右側(cè)窗格插入一個(gè)空白模塊（如圖8），手工輸入或粘貼如下代碼（相關(guān)代碼可關(guān)注電腦迷微信回復(fù)“201506vba4”獲取下載鏈接）。

代碼中的“[A2：A10000]”表示放置查重信息的區(qū)域，“[A2]”表示起始單元格，也可以根據(jù)實(shí)際情況重新調(diào)整。檢查無(wú)誤之后，選擇“文件/關(guān)閉并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”組合鍵，打開(kāi)“宏”對(duì)話框，選擇并運(yùn)行宏，即得（如圖9）。