大江東去

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

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

并提取內(nèi)容

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

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

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

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

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

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

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

利用VBA代碼拼音

提取注音文本

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

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

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

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

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

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

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