Hỏi về xác định dòng cuối có dữ liệu trong sheet (1 người xem)

[khaothibaclieu]

Chào các anh, chị!
Tôi có tham khảo trên diễn đàn nhưng vẫn chưa hiểu lắm về xác định dòng cuối có dữ liệu trong sheet
Ví dụ tôi có đoạn code được ghi từ macro (có biên tập chút đỉnh) như thế này:

Range("U2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-15]&RC[-12]&RC[-1])"
Range("U2").Select
Selection.AutoFill Destination:=Range("U2:U500")
Range("U2:U500").Select
Selection.Copy
Range("U2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Đoạn code trên sẽ copy và dán từ U2 đến U500
Xin hỏi các anh chị thay vì phải xác định U500 thì làm thế nào để VBA tự động biết đến dòng cuối có dữ liệu thì không thực hiện thao tác dán nữa.
Xin cám ơn.

 

[SA_DQ]

Ở đây bạn cần fân biệt rõ 3 vấn đề sau:

1./ Ô cuối của 1 cột có chứa dữ liệu; Ví dụ Range("U65500").end(xlup) sẽ là ô cuối có dữ liệu của cột 'U'

2./ Nhưng nó có thể chưa hẵn là ô cuối của 1 vùng chứa dữ liệu

3./ Hơn nữa nó chưa fải ó ô cuối có dữ liệu của 1 trang tính

Ô cuối có dữ liệu của 1 trang tính thường cần xài fương thức FIND("*",. . . ,. . .)

 

[andredat]

Chào bạn,
Bạn thử thay code trên thành
Range("u2:u500").formula = "=IF(RC[-1]="""","""",RC[-15]&RC[-12]&RC[-1])"Range("u2:u500").Value = Range("u2:u500").Value
Vùng ở trên là vùng cố định (u2:u500) còn nếu bạn muốn vùng mình linh động thì bạn sử dụng Range("U65500").end(xlup). Nhưng trước tiên bạn phải xác định mốc (ở đây là cột U)....

 

[tamthat]

Tôi nghĩ nếu có file cụ thể thì mọi thứ dễ dàng hơn rất nhiều. Xác định dòng cuối còn có nhiều vấn đề, tôi lấy ví dụ như nếu dữ liệu đến dòng cuối là hết, nhưng bạn lại thêm dòng tổng cộng thì dòng cuối lại là dòng tổng cộng, hay tương tự như còn ký tá nữa....
Nói chung có file cụ thể thì sẽ biết bạn áp dụng ra sao!