با سلام
از این دستور استفاده کنید
Dim myRange As Range
Dim NumRows As Integer
(Set myRange = Range("A:A"
(NumRows = Application.WorksheetFunction.CountA(myRange
MsgBox NumRows
با جستجو در اینترنت این گونه موارد بسهولت در دسترس می باشد. به هر حال خوشحالیم کمک کنیم
99.10.1 حسینی
کامنت