با سلام خدمت دوستان
در مورد شناسایی آخرین ردیف در اکسل کد زیر هم مناسب هست
Sub FindLastCell()
Dim lRow As Long, lCol As Integer, mrow As Long, mCol As Integer, i As Integer
lCol = ActiveSheet.UsedRange.Columns.Count
mrow = 0
For i = 1 To lCol
lRow = Range(Cells(Rows.Count, i), Cells(Rows.Count, i)).End(xlUp).Row
If lRow > mrow Then
mrow = lRow
mCol = i
Else
End If
Next i
lastrow = mrow
End Sub
علاقه مندی ها (Bookmarks)