Takie coś będzie trochę szybsze:
Sub IleNiepustychK()
Dim intIleNiepustych As Integer
Dim rngKolumna As Range
Set rngKolumna = Arkusz1.Range("A:A")
intIleNiepustych = Application.WorksheetFunction.CountA(rngKolumna)
Set rngKolumna = Nothing
MsgBox intIleNiepustych
End Sub |