Tắt thông báo Security Warning Automatic update .... và di chuyển đến ô chứa dữ liệu cuối cùng của bảng

[chothadiem]

Tôi không biết chọn Cell cuối với mục đích để làm gì? Nên chỉ đưa ra cái chung thôi.
1/ Chọn Cell có chứa dữ liệu cuối cùng cột A:

Sub ChonCellCuoi_CoDuLieu()
    ActiveSheet.Cells(10000, 1).End(xlUp).Select
End Sub

2/ Chọn Cell trống cuối cùng có chứa dữ liệu cột A:

Sub ChonCellTrong_CuoiCung()
    ActiveSheet.Cells(65536, 1).End(xlUp).Offset(1, 0).Select
End Sub

Dạ! em cảm ơn thầy!
Vậy để chọn ô giao nhau giữa cột chứa dữ liệu đầu tiên (tính từ trái sang ) và dòng cuối cùng chứa dữ liệu (chứa dữ liệu trong ô bất kỳ)

Tôi không biết chọn Cell cuối với mục đích để làm gì? Nên chỉ đưa ra cái chung thôi.
1/ Chọn Cell có chứa dữ liệu cuối cùng cột A:

Sub ChonCellCuoi_CoDuLieu()
    ActiveSheet.Cells(10000, 1).End(xlUp).Select
End Sub

2/ Chọn Cell trống cuối cùng có chứa dữ liệu cột A:

Sub ChonCellTrong_CuoiCung()
    ActiveSheet.Cells(65536, 1).End(xlUp).Offset(1, 0).Select
End Sub

Dạ! Nếu chọn ô cuối cùng trong cột chứa dữ liệu đầu tiên tính từ trái sang (Có thể là cột B hay C hoặc cột bất kỳ nào đó chứa dữ liệu) thì phải sửa đoạn code như thế nào vậy ạ?
Em cảm ơn thầy!

 

[chothadiem]

Dạ! em cảm ơn thầy!
Vậy để chọn ô giao nhau giữa cột chứa dữ liệu đầu tiên (tính từ trái sang ) và dòng cuối cùng chứa dữ liệu (chứa dữ liệu trong ô bất kỳ)

Dạ! Nếu chọn ô cuối cùng trong cột chứa dữ liệu đầu tiên tính từ trái sang (Có thể là cột B hay C hoặc cột bất kỳ nào đó chứa dữ liệu) thì phải sửa đoạn code như thế nào vậy ạ?
Em cảm ơn thầy!

Anh HieuCD giúp em với ạ!

 

[be_09]

Dạ! em cảm ơn thầy!
Vậy để chọn ô giao nhau giữa cột chứa dữ liệu đầu tiên (tính từ trái sang ) và dòng cuối cùng chứa dữ liệu (chứa dữ liệu trong ô bất kỳ)

Dạ! Nếu chọn ô cuối cùng trong cột chứa dữ liệu đầu tiên tính từ trái sang (Có thể là cột B hay C hoặc cột bất kỳ nào đó chứa dữ liệu) thì phải sửa đoạn code như thế nào vậy ạ?
Em cảm ơn thầy!

Bạn diễn giải khó hiểu quá, vậy thử code sau nó sẽ chọn dữ liệu của Sheet1 từ tiêu đề A5 đến dòng cuối có chứa dữ liệu của cột F:

Sub ChonDataCotA_DenF()
Dim ws As Worksheet, DongCuoi As Long

Set ws = Worksheets("Sheet1")
DongCuoi = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    ws.Range("A5:F" & DongCuoi).Select
End Sub

Lưu ý:
- Muốn chọn dữ liệu bắt đầu là cột B5 thì thay A5 thành B5.
- Muốn chọn dữ liệu bắt đầu là cột B đến dòng cuối có chứa dữ liệu của cột K thì thay "A5:F" & DongCuoi thành "B5:K" & DongCuoi

 

[ptm0412]

Bạn diễn giải khó hiểu quá, vậy thử code sau nó sẽ chọn dữ liệu của Sheet1 từ tiêu đề A5 đến dòng cuối có chứa dữ liệu của cột F:

Diễn giải thế này:
cột đầu tiên có dữ liệu là cột B
Dòng cuối chứa dữ liệu là dòng 200, nằm ở cột D (hoặc cột bất kỳ)
Giao của cột B và dòng 200 là B200, dù cho B200 không có dữ liệu. Chắc không cần nhắc GIAO là gì.

 

[chothadiem]

Bạn diễn giải khó hiểu quá, vậy thử code sau nó sẽ chọn dữ liệu của Sheet1 từ tiêu đề A5 đến dòng cuối có chứa dữ liệu của cột F:

Sub ChonDataCotA_DenF()
Dim ws As Worksheet, DongCuoi As Long

Set ws = Worksheets("Sheet1")
DongCuoi = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    ws.Range("A5:F" & DongCuoi).Select
End Sub

Lưu ý:
- Muốn chọn dữ liệu bắt đầu là cột B5 thì thay A5 thành B5.
- Muốn chọn dữ liệu bắt đầu là cột B đến dòng cuối có chứa dữ liệu của cột K thì thay "A5:F" & DongCuoi thành "B5:K" & DongCuoi

Ở trên em diễn giải không rõ nghĩa:
Ở bài #23 em lại dùng từ chọn.
Em xin diễn giải lại:
Bảng tính của em gồm nhiều cột và hàng, nhiều dữ liệu. Em muốn code di chuyển nhanh con trỏ chuột đến ô giao nhau của cột đầu tiên chứa dữ liệu và dòng cuối cùng chứa dữ liệu (dữ liệu ở dòng này có thể nằm ở cột bất kỳ nào mà thỏa mãn là dòng cuối cùng).
Khi chạy code có tác dụng trên sheet hiện hành mà không phải thay đổi tên sheet mỗi lần chạy.
Thầy giúp em thêm một chút nữa nhé!
Em cảm ơn thầy!

 

[HieuCD]

Anh HieuCD giúp em với ạ!

Sub ChonDongCuoi_CotDau()
  With ActiveSheet
    .Cells(.UsedRange.Row + .UsedRange.Rows.Count - 1, .UsedRange.Column).Select
  End With
End Sub

 

[chothadiem]

Sub ChonDongCuoi_CotDau()
  With ActiveSheet
    .Cells(.UsedRange.Row + .UsedRange.Rows.Count - 1, .UsedRange.Column).Select
  End With
End Sub

Dạ! em cảm ơn anh!