EXCEL VBA - 計算某行、列欄位共有幾筆資料？

如何利用EXCEL VBA來計算某一個行、列(欄位)共有幾筆資料？有時我們在寫巨集時，可能會想要取得某一列或某一行的資料筆數，然後再用此數值來做後續的使用。

方法有很多種，最近看到了新的方法，所以將其記錄如下。

 

情　　境

假如我們要得知下表中「口罩業者」中的資料作一些處理，當前事先就要得到「口罩業者」共有幾家？然後才有辦法用EXCEL VBA來作後續的自動化。所以用EXCEL VBA要如何知道共有幾筆資料？要如何做到？

 

undefined

 

範　　例

Sub 計算欄位資料筆數()

   Dim I As Integer
   
   I = ActiveSheet.Range("C1").End(xlDown).Row
    
End Sub

 

說明：

 I = ActiveSheet.Range("C1").End(XIDirection).Row

此時是回傳Row值到。當然應用上也可以Column來取代。

 

XIDirection：有四個方向可以選擇

  1. xlDown (向下)
  2. xlToleft(向左)
  3. xlToRight(向右)
  4. xlUp(向上)

這個方式是利用回傳「最後一個Row」的Row編號，利用此方法來計算共有幾個欄位有資料。

 

Sub 計算欄位資料筆數()

   Dim I As Integer
   
   I = ActiveSheet.Range("C1").End(xlDown).Row

   I = I - 1
   Range("F1").Value = I
      
    
End Sub

當然我們是要知道共有幾家口罩廠家，故要再扣掉「表單的表頭」，所以又加上藍色的程式碼。並讓其顯示「幾筆」資料在【F1】欄位。

undefined

這裡只是一個範例，應用上，大家還是可以隨機應變。


arrow
arrow
    全站熱搜
    創作者介紹
    創作者 News123 的頭像
    News123

    隨手記錄

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