Private Sub CommandButton1_Click()MsgBox Application.WorksheetFunction.CountA(Range("A:A")))End Sub
=COUNTA(A:A)
کامنت