Code chọn ô cuối cùng trên 1 cột

[XuanLan2008]

Chào các bạn,

Mình có 1 range từ A1 đến Z1, trong range đó bao gồm những cell đã nhập liệu, những cell trống và còn có cả merged cells.

Các bạn cho mình xin đoạn code để khi nhấn vào button 1, vùng select(ô chọn) sẽ di chuyển đến ô cuối cùng có nhập liệu trong range từ A1 đến Z1 đó. Cám ơn nhiều.

 

[QDuc]

Bạn gán macro dưới đây vô nút lệnh;

Sub CuoiDong()
Selection.Offset(, 255 - Selection.Column).End(xlToLeft).Select
End Sub

Trước khi bấm nút hãy chọn ô bất kỳ trong dòng mà bạn muốn đến ô cuối của nó chứa dữ liệu

 

[ChinhMuongLa]

Chào các bạn,

Mình có 1 range từ A1 đến Z1, trong range đó bao gồm những cell đã nhập liệu, những cell trống và còn có cả merged cells.

Các bạn cho mình xin đoạn code để khi nhấn vào button 1, vùng select(ô chọn) sẽ di chuyển đến ô cuối cùng có nhập liệu trong range từ A1 đến Z1 đó. Cám ơn nhiều.

Bạn thử code này xem có đúng ý bạn không ?

Sub Cell_Cuoi()
Cells.Find("*", SearchDirection:=xlPrevious).Select
End Sub