本文轉載自公眾號：SCM供應鏈管理,，作者：PISTACHIO,。本文著作權歸原創(chuàng)作者所有，本人收藏此文僅作為學習之用,，不作其他目的,，如有侵權，請聯(lián)系我刪除,。

昨天有人提出,，發(fā)布的EXCEL VBA相關知識讓大家覺得沒有主題大綱，可能是因為不知道學習了EXCEL VBA有何用處,，能不能介紹一下EXCEL VBA使用實例,，今日將簡答介紹一下使用實例。

例1：我們從系統(tǒng)下載的數(shù)據(jù)如下,，有很多多余的行與列,，且有很多空格，如果資料就一筆,，當然很好刪除，但是當資料有幾百筆甚至幾千筆,，就需要用EXCEL篩選功能一層一層的篩出,、刪除，效率比較低,，通過EXCEL VBA執(zhí)行,，則速度會很快。

代碼解釋說明：

Sub ZM131()

Range('B:B,E:E,H:H,L:L,M:M,P:P').Delete '刪除多余的列
Rows('1:2').Delete ’第一行到第二行刪除
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete '第一列.空格單元格.整行刪除

Dim x As Long ’定義x是整數(shù)
For x = 2 To Range('A65536').End(xlUp).Row '定義x從2到第一列最后一個有值的單元格.行數(shù)范圍內取值

If Cells(x, 1).Value = 'PROGRAM :' Then Cells(x, 1).EntireRow.Delete '如果單元格(x,1)的值等于“PROGRM:”,，則整行刪除
Next x ’執(zhí)行下一個x
End Sub

執(zhí)行效果：

例2：拿到一份報表,，可能不是我們喜歡的格式，我們要變更字型、字體小,、填充顏色,、加框線等，而這些均可以通過EXCEL VBA實現(xiàn),，這樣每次打開報表時只要點擊一下巨集按鈕即可完成,。

例3：我們會經(jīng)常多個檔案一起分析數(shù)據(jù)，并要分別存儲等,，這些都可以通過EXCEL VBA來實現(xiàn),，比較、告知比較結果,、分別存儲到某個指定的路徑等等,。