시트 상의 data 카운트 방법

' Do-until 이용

Sub find_end_of_data()

    Dim s As Worksheet
    Dim r As Long
    Dim cnt As Long
   
    Set s = Sheet1
   
    r = 1
   
    Do Until s.Cells(r, 1) = ""
        If s.Cells(r, 1) <> "" Then
            cnt = cnt + 1
        End If
       
        r = r + 1
    Loop
    Debug.Print " 데이터의 갯수는:", cnt
End Sub

' Range 이용

Sub find_end_of_data2()

    Dim s As Worksheet
    Dim rngData As Range
    Dim cnt As Long
   
    Set s = Sheet1
    Set rngData = s.Range(s.Range("B1"), s.Range("B1").End(xlDown))
   
    cnt = rngData.Rows.count
   
    Debug.Print "데이터의 갯수는 :", cnt
     
End Sub

출처 : quant cafe