VBA：如何檢查各行資料數量是否一致(非連續資料)

例子長這樣：

 

編寫一個vba如下：

 Private Sub CommandButton1_Click()

Set my_range = ActiveSheet.Range("a1:C1")

For Each a In my_range 

IF A.VALUE<>"" THEN   

    temp1 = Split(a.Address, "$")   

    s1 = Application.CountA(ActiveSheet.Range(temp1(1) & ":" & temp1(1)))    

    MsgBox temp1(1) & "行" & s1 - 1 & "筆" & "資料"

END IF 

Next

End Sub

運作：

VBA：如何檢查各行資料數量是否一致(連續資料)

一個例子，有a、b、c三行，如圖，透過vba方式知道各行有多少資料。

編寫一個vba如下：

 Private Sub CommandButton1_Click()

Set my_range = ActiveSheet.Range("a1,b1,c1")

For Each a In my_range    

    temp1 = Split(a.Address, "$")   

    s1 = Application.CountA(ActiveSheet.Range(temp1(1) & ":" & temp1(1)))    

    MsgBox temp1(1) & "行" & s1 - 1 & "筆" & "資料"

Next

End Sub

運作：

應用：

例如也可以用來檢查各行資料是否數量一致拉、或是檢查各行資料差異性。