Code select ra ô E6 bạn, lấy điểm giao giữa cột và dòng làm điểm cuối
Trong VBA range có cái thuộc tính gọi là: CurrentRegion
Option Explicit
Sub test()
Dim rng As Range
Set rng = Range("A2").CurrentRegion
Debug.Print rng.Rows.Count
Debug.Print rng.Address
Debug.Print rng.Cells(rng.Rows.Count, rng.Columns.Count).Address
End SubNếu là ô có dữ liệu cuối thì phải nói rõ là ô cuối theo cột hay theo hàng, còn nói chung chung vậy là vô nghiệm. Nhưng như bảng của thớt gửi thì ô dữ liệu cuối 99% là theo hàng.
| TT | Mã | Ho & Ten | Ngày Sinh | Địa chỉ | |||||||||
1 | DFD00 | Dương Đức Dũng | 4/6/1961 | 128/21 Lê Lai | |||||||||
2 | FFD00 | Đỗ Đức Dung | 2/24/1959 | 12/21 Lê Lợi | |||||||||
3 | FJD00 | Đặng Dung | 1/13/1957 | 128/21 Lê Thái Tông | |||||||||
4 | LMD00 | Lại Thị Mỹ Dung | 5/18/1963 | 128/1A Lê Dục Tông | |||||||||
5 | LMD01 | Lê Mai Dung | 6/28/1965 |
Sub TimDongDuLieuCuoi()
Dim Rng As Range, sRng As Range
Set Rng = Sheets("CSDL").UsedRange
MsgBox Rng.Address, , "Msgbox 1"
Set sRng = Rng.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows)
If Not sRng Is Nothing Then
MsgBox sRng.Address, , "MsgBox 2"
End If
Set sRng = Rng.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns)
If Not sRng Is Nothing Then
MsgBox sRng.Address, , "MsgBox 3"
End If
End Sub
