Về dòng cuối nhanh nhất !?

[dephamtg]

Chào các anh.

Em muốn tạo 1 nút lệnh để khi bấm 1 phát là bảng tính chuyển vế ngay dòng cuối.
Nhờ các anh tao 1 CODE giúp em với ạ. Em có gởi tệp đính kèm.
(Em sẽ chèn dòng vào thêm trong bảng tính này. nhưng sau đó nút vẫn có hiệu lực được không ạ).

Cám ơn các anh nhiều.

 

[Quang_Hải]

Chào các anh.

Em muốn tạo 1 nút lệnh để khi bấm 1 phát là bảng tính chuyển vế ngay dòng cuối.
Nhờ các anh tao 1 CODE giúp em với ạ. Em có gởi tệp đính kèm.
(Em sẽ chèn dòng vào thêm trong bảng tính này. nhưng sau đó nút vẫn có hiệu lực được không ạ).

Cám ơn các anh nhiều.

Sao phải dùng code chứ? Ấn giữ phím Ctrl và mũi tên xuống là được rồi

 

[Cá ngừ F1]

Chào các anh.

Em muốn tạo 1 nút lệnh để khi bấm 1 phát là bảng tính chuyển vế ngay dòng cuối.
Nhờ các anh tao 1 CODE giúp em với ạ. Em có gởi tệp đính kèm.
(Em sẽ chèn dòng vào thêm trong bảng tính này. nhưng sau đó nút vẫn có hiệu lực được không ạ).

Cám ơn các anh nhiều.

Như thao tác Ctrl + End, bạn record lại, sẽ có đoạn code bạn cần.

Sub VEDONGCUOI()
    With Sheet1
        .[A65000].End(xlUp).Select
    End With
End Sub

hoặc

Sub VEDONGCUOI1()
    With Sheet1
        .[A1].End(xlDown).Select
    End With
End Sub

Code đầu tổng quát hơn, code 2 mà có dòng trống là phá sản.

 

[Quang_Hải]

Như thao tác Ctrl + End, bạn record lại, sẽ có đoạn code bạn cần.

Sub VEDONGCUOI()
    With Sheet1
        .[A65000].End(xlUp).Select
    End With
End Sub

hoặc

Sub VEDONGCUOI1()
    With Sheet1
        .[A1].End(xlDown).Select
    End With
End Sub

Code đầu tổng quát hơn, code 2 mà có dòng trống là phá sản.

Có 1 dòng mà cũng With nữa hả? Xài sang quá.

Sub abc()
Cells(65536, ActiveCell.Column).End(3).Activate
End Sub

 

[Cá ngừ F1]

Có 1 dòng mà cũng With nữa hả? Xài sang quá.

Sub abc()
Cells(65536, ActiveCell.Column).End(3).Activate
End Sub

Nhà có điều kiện mà anh.

 

[hung2412]

Có 1 dòng mà cũng With nữa hả? Xài sang quá.

Sub abc()
Cells(65536, ActiveCell.Column).End(3).Activate
End Sub

Cột A chắc chỉ là ví dụ có dữ liệu thôi, còn các cột khác nữa. Hình như chủ Topic muốn con chuột chỉ ngay vào ô ở dòng cuối cùng (Không còn bất kỳ dữ liệu nào ở các dòng dưới nữa).

 

[dephamtg]

Cám ơn tất cả các ý kiến của các anh.
Tự em không biết ctrl+end về được dòng cuối.
Em RECORD 1 lệnh "ctrl + end" là OK rồi. Đúng là quá đơn giản.