Rowcount overflow in vba

Question

I am using below code and this is getting overflow ,

     Dim RowCount As Integer
     RowCount = 1
     For Each rw In sh.Rows
     If sh.Cells(rw.Row, 1).Value = "Engg" Then
      r = RowCount
      addition (r) 'function
      End If
      RowCount = RowCount + 1 ' here rowcount is getting overflow.

How can I take Each loop with only avialable rows in sheet

Answer 1

如果您想知道特定列的确切行数，请使用DataRowCount = wsSheet.Cells(Rows.Count, nBasedColumn).End(xlUp).Row LastDataRow = wsSheet.Cells.Find(What:="*", SearchOrder:=xlByRows, searchdirection:=xlPrevious, MatchCase:=False).Row为您提供最后填充的行，与哪一列无关