【EXCEL】VBA - 特定欄位中有多少筆資料

EXCEL VBA 取得某欄共有幾筆資料?方法如下

我們可以使用Excel VBA中的WorksheetFunction.CountA函數,來取得一列、一行或是一個區域中有多少個非「空單元」。

以下為程式碼範列,用於從工作表「Sheet1」中,取得「欄A」中共有多少非空單元格,也就是有幾筆資料

 Dim count As Long
 count = WorksheetFunction.CountA(Worksheets("Sheet1").Range("A:A"))

 

若需要計算某一個區域中有多少個非空單元格,可以將Range函數的參數修改為您需要的區域即可。如果我們需要計算A1:A20區域中有多少個非空單元格,可以使用以下程式碼:

 Dim count As Long
 count = WorksheetFunction.CountA(Worksheets("Sheet1").Range("A1:A20"))

若需要計算數字類型的資料時, 則請使用WorksheetFunction.Count函數

 Dim count As Long
 count = WorksheetFunction.Count(Worksheets("Sheet1").Range("A:A"))

 

需要計算符合某個條件的資料的筆數,請使用WorksheetFunction.CountIf

 Dim count As Long
 count = WorksheetFunction.CountIf(Worksheets("Sheet1").Range("A:A"))

 

或WorksheetFunction.CountIfs函數

 Dim count As Long
 count = WorksheetFunction.CountIfs(Worksheets("Sheet1").Range("A:A"))

 

 

 


arrow
arrow
    全站熱搜

    News123 發表在 痞客邦 留言(0) 人氣()