Giúp Tìm dòng cuối trong các trường hợp sau (1 người xem)

[AnhThu-1976]

Các anh chị giúp tìm dòng cuối iR trong các trường hợp sau (em đã mô tả trong file)
Ý em muốn có code sử dụng chung cho các trường hợp
Xin cảm ơn!

 

[leonguyenz]

Tìm LastRow tổng quát thì dùng Find, code từ bài viết của thầy Anh Tuấn (ndu),

Sub LastRow()
  Dim Rng As Range
  Set Rng = ActiveSheet.UsedRange
  MsgBox Cells.Find("*", Rng(1, 1), , , xlByRows, xlPrevious).Row
End Sub

 

[AnhThu-1976]

Tìm LastRow tổng quát thì dùng Find, code từ bài viết của thầy Anh Tuấn (ndu),

Sub LastRow()
  Dim Rng As Range
  Set Rng = ActiveSheet.UsedRange
  MsgBox Cells.Find("*", Rng(1, 1), , , xlByRows, xlPrevious).Row
End Sub

Cảm ơn bạn
Nhưng tôi chỉ muốn tìm dòng cuối trong các cột từ A đến E thôi thì fải làm sao?

 

[SA_DQ]

Nhưng tôi chỉ muốn tìm dòng cuối trong các cột từ A đến E thôi thì fải làm sao?

Thì là:

Columns("A:E").Find("*", Rng(1, 1), , , xlByRows, xlPrevious).Row

 

[AnhThu-1976]

Thì là:

Columns("A:E").Find("*", Rng(1, 1), , , xlByRows, xlPrevious).Row

Vì đưa vào file thực tế mà chưa biết chỉnh code làm sao?
Cụ thể đang đứng ở 1 sheet khác mà gọi code tìm dòng cuối ở Sheet Data thì fải làm sao ạ

 

[leonguyenz]

Vì đưa vào file thực tế mà chưa biết chỉnh code làm sao?
Cụ thể đang đứng ở 1 sheet khác mà gọi code tìm dòng cuối ở Sheet Data thì fải làm sao ạ

Sheets("Data").Columns("A:E"). ...
Bạn nên test trước khi hỏi.

 

[AnhThu-1976]

Em làm được rồi xin cảm ơn

 

[SA_DQ]

Em làm được rồi xin cảm ơn

Tuy nhiên vẫn nên cảnh báo với bạn rằng Code sẽ lỗi 1 khi các cột [A:E] này không có 1 tẹo dữ liệu nào.

 

[AnhThu-1976]

Dạ cảm ơn sự nhắc nhở