Xác định cell cuối trong 1 khối cell bị "lũng"

[AnhThu-1976]

Em nhờ anh chị sửa code trong trường hợp sau
Trong cột B thì hiện nay cell cuối là B19
Bây giờ em muốn trong cột B xác định cell cuối là tính từ cell B3 đi xuống nếu gặp cell nào trống đầu tiên ở cột B thì xác định đó là cell cuối
Hiện nay nó là cell B8
Code của em hiện nay

Sub Nhay_1()
    Dim LastRow_Down
    With Sheets("DS")
        LastRow_Down = .Cells(65000, 2).End(xlUp).Row
        MsgBox LastRow_Down
    End With
End Sub

Em xin cảm ơn

 

[ptm0412]

Biến LastRowDown (muốn down) thì phải End(xlDown) chứ

 

[AnhThu-1976]

Biến LastRowDown (muốn down) thì phải End(xlDown) chứ

Lúc đầu em cũng sửa End(xlUp) thành End(xlDown) nhưng quên sửa
.Cells(65000, 2) thành .Cells(3, 2) nên nó ra không đúng

 

[thuyyeu99]

Mỗi cái nó có chức năng riêng tùy vào cái database của bạn mà xử lý. Mà phải thêm bẩy lỗi nữa, nhiều khi bạn test trong dữ liệu hoàn hảo nên chưa thấy đấy

 

[ptm0412]

Lúc đầu em cũng sửa End(xlUp) thành End(xlDown) nhưng quên sửa
.Cells(65000, 2) thành .Cells(3, 2) nên nó ra không đúng

Ừ thì muốn "xuống" thì phải đứng từ trên mới có chỗ mà xuống chứ

 

[batman1]

Em nhờ anh chị sửa code trong trường hợp sau
Trong cột B thì hiện nay cell cuối là B19
Bây giờ em muốn trong cột B xác định cell cuối là tính từ cell B3 đi xuống nếu gặp cell nào trống đầu tiên ở cột B thì xác định đó là cell cuối
Hiện nay nó là cell B8
Code của em hiện nay

Sub Nhay_1()
    Dim LastRow_Down
    With Sheets("DS")
        LastRow_Down = .Cells(65000, 2).End(xlUp).Row
        MsgBox LastRow_Down
    End With
End Sub

Em xin cảm ơn

Bạn xác định ô đầu tiên trống kiểu đó không được đâu. Dùng xlUp không được rồi. Dùng xlDown cũng có vấn đề.

Trong dữ liệu của bạn nếu xóa B4:B7 thì ô đầu tiên trống theo bạn là ô nào. Vì với xlDown code trả về 12. Trong khi đó B4:B11 trống.

Thực ra xlUp và xlDown không phải để trả về ô đầu tiên trống hay ô đầu tiên có dữ liệu. End + xlUp và End + xlDown có tác dụng như phím END + mũi tên lên và xuống.

Chỉ có điều thường thì Range("B" & Rows.Count).End(xlUp).Row hay Range("B65000").End(xlUp).Row hay trả về ô cuối cùng có dữ liệu trong cột B (hoặc B1 nếu cột B trống) nên người ta lợi dụng nó để xác định ô cuối cùng có dữ liệu. Còn nếu xuất phát từ 1 ô "ở đầu" thì kết quả có thể rất khác nhau. Vì xlUp, xlDown "theo định nghĩa", "bẩm sinh" không phải để dùng xác định ô cuối rỗng hay có dữ liệu.

 

[AnhThu-1976]

Cảm ơn các anh/chị
Hì do văn mô tả của em chưa tốt hoặc có nhiều tình huống em chưa tính đến

 

[ndu96081631]

cell bị lũng?