nếu tìm dòng cuối cho cả sheet thi em đã làm được rồi. như do yêu cầu copy dữ liệu chi lấy trong vùng từ A2:O14 và không phải lúc nào cũng là 12 vòng (có thể ít hơn) vì thế em nghĩ ra là minh phải tìm dòng cuối trong khoản đó, nhưng không biết cách làm. Nếu biết mong anh chi cho.
Bạn có thể cho biết bạn tìm dòng cuối trong cả trang tính thì làm như thế nào không vậy, cho mình biết với?
Cảm ơn Anh rất nhiều
Function LRow(Sh As String, Optional Opt As Byte = 1) As Variant
Dim Rng As Range
Set Rng = Cells(Opt * 10, "B").CurrentRegion
With Sheets(Sh)
LRow = Rng.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
End With
MsgBox LRow
End FunctionAnh có thể hướng dẫn cách dùng không ạ, em thấy code nay hơi lạ (chưa biết dùng)
Vấn đề là bạn tạo ra 3 bảng dữ liệu, mổi bảng có 10.0 dòng dữ liệu & cách nhau giữa các vùng là 1 dòng
Ôi hay quá, em cam on Anh
Em có code tìm được ô cuối dòng cuối bảng tính nè, hoặc ô gần cuối cũng tìm được
Dò ngang dò dọc hết bảng tính xem có dữ liệu nào nằm ở cuối cùng hàng ngang và dọc, vd ô ZZ200000 là ô cuối thì nhập code: range("ZZ200000").select nha
Vậy bạn hỏi thật hay hỏi chơi để còn biết đường mà trả lời
Ô cuối dòng cuối cần gì đến Code để tìm kia chứ?
Thì ý em là code tìm ô có dữ liệu cuối hoặc gần cuối cho ngang và dọc mà
em mất 25s để select được ô này
có code khác chỉ mất 1s để select được rồi bác
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
