VBA Rows Count用法是很簡單的技巧，很多場合都會用到，它可以計算報表內容有多少項，本文詳細介紹3個計算Excel資料筆數的技巧，以及1個標記空白列的範例。
一、無資料空白列
系統產生的應付帳款明細報表裡有空白列，可能會對閱讀或分析上造成不便，需要加以處理。
二、UsedRange使用範圍
於Excel按下組合鍵「Alt + F11」進入VBA，輸入程式碼：
Sub A報表使用範圍()
資料筆數A = ActiveSheet.UsedRange.Rows.Count
MsgBox 資料筆數A
End Sub
第一步先利用VBA程式碼「UsedRange.Rows.Count」計算報表資料使用範圍，前面加上「ActiveSheet.」，表示要統計目前操作的工作表裡總共有多少列訊息，再由訊息視窗MsgBox提供資料筆數的數值。
注意到上述的程式碼係以工作表為對象，因此無法精準以某一特定欄作為條件。
三、計算報表列數
參考上個步驟截圖，VBA編輯器上方工具列的「執行」下拉，點選「執行Sub或UserForm F5」這個指令便可以執行程式（快速鍵F5），應該會立即看到Excel跳出顯示「16」的訊息視窗，表示此工作表共有16列數據。
除了在VBA編輯器執行程式，亦能於Excel工作表將此巨集設為按紐，如同截圖命名為「執行程式」，點選即能執行VBA程式碼，詳細步驟可參考先前文章「Excel將格式設定錄製巨集，快速鍵及命令按鈕執行」。
四、儲存格快速定位
也能利用儲存格快速定位，計算報表資料筆數，在Excel按下鍵盤快速鍵「Ctrl+方向鍵」，就可以依照方向直接前往最後一個有資料內容的儲存格。若以VBA程式自動化執行此功能，要輸入以下程式碼：
Sub B儲存格快速定位()
資料筆數A = Range(“A1”).End(xlDown).Row
MsgBox 資料筆數A
資料筆數B = Range(“G1048576”).End(xlUp).Row
MsgBox 資料筆數B
End Sub
「資料筆數A」的程式碼是從儲存格A1一直往下，也就是剛才用指令操作的Control加下，它會從A1開始到有資料的最後一列。「1048576」是Excel的最後一列資料，「資料筆數B」的程式碼指的是從儲存格G1048576往上到G欄的最後一筆資料。
和先前第二步驟兩相比較，很容易可以發現這裡的程式碼是以A欄或G欄作為判斷報表資料範圍的條件，因此較為靈活而且精準。
五、End(xlDown).Row
執行結果會跳出訊息視窗顯示從儲存格A1開始往下算，共有3筆資料。
六、End(xlUp).Row
在前述訊息視窗點選「確定」後，會再跳出顯示「16」的訊息欄位，也就是從G1048576往上到G欄最後一筆資料，所在位置即G16。
七、VBA IsEmpty函數
確認完資料筆數後，就可以設計迴圈流程。將Step等差設定為-1，從最後一筆資料遞減到2，由下往上執行迴圈。VBA的IsEmpty函數，可以判斷內容是否空值，若儲存格Range(“A” & i)為空值，就在儲存格第i列第H欄寫入1，以Cells(i, “H”)表達；在Excel裡，儲存格是最基本也最常使用的操作對象，因此這個使用的Range和Cells應該要很熟悉運用。
完整的VBA程式碼如下：
資料筆數 = Range(“G1048576”).End(xlUp).Row
For i = 資料筆數 To 2 Step -1
If IsEmpty(Range(“A” & i)) Then Cells(i, “H”) = 1
Next i
End Sub
八、標記報表空白列
結果如圖所示，儲存格A16到A2間若有空值，就會在該列的H欄填入「1」，等於是標記了空白列，後續以此為基礎便能再進一步整理資料。
善用VBA從Excel挖堀資料
現今的工作很仰賴資訊系統提供資料，但是產出的報表往往會有許多空白欄位，造成閱讀和作業的不便，人工刪除或加工不僅耗時也容易出錯，這時候就交由VBA自動化處理，把重複性的工作變成輕鬆省事，在大數據術語中，通常會這個流程稱之為資料清洗，在執行分析第一步最重點的便是去蕪存菁，才有可能從原始資料中挖出金礦。
本文章相關影片：
贊贊小屋VBA教學中心：
Excel巨集錄製教學、Excel巨集程式、VBA編輯器、VBA自學入門、VBA基礎語法、VBA基本應用、VBA UserForm、VBA VLOOKUP。
取得範例程式請前往VBA社團，訂閱請加入VBA Line社群。
VBA課程推薦：零基礎入門進階的20小時完整內容
