Function Tính dòng cuối cùng trong 1 vùng

[BinhCan997]

Mình cần viết 1 hàm tính dòng cuối cùng trong 1 cột. Nhưng phải đảm bảo khi Sheet đó ẩn đi thì vẫn tính đúng
Mình đã thử End(xlUp).Row nhưng khi cột đó ẩn đi thì không cho kết quả chính xác. Xin cảm ơn

 

[Hoàng Tuấn 868]

Mình cần viết 1 hàm tính dòng cuối cùng trong 1 cột. Nhưng phải đảm bảo khi Sheet đó ẩn đi thì vẫn tính đúng
Mình đã thử End(xlUp).Row nhưng khi cột đó ẩn đi thì không cho kết quả chính xác. Xin cảm ơn

View attachment 267549

Vậy cuối cùng là điều kiện cột ẩn hay sheet ẩn hả bạn.

 

[BinhCan997]

Vậy cuối cùng là điều kiện cột ẩn hay sheet ẩn hả bạn.

Phải đúng 2 trường hợp luôn bạn nhé.

 

[Hoàng Tuấn 868]

Phải đúng 2 trường hợp luôn bạn nhé.

Khi sheet đó ẩn đi, bạn làm thế nào để nhìn được đúng hay sai.

 

[Maika8008]

Phải đúng 2 trường hợp luôn bạn nhé.

Code:

Function LastRow(rng As Range)
Dim Lrw&, Lcl&
    Lrw = Sheets(rng.Parent.Name).Range(rng.Address).Rows.Count + Sheets(rng.Parent.Name).Range(rng.Address).Row - 1
    Lcl = rng.Column
    If Len(Sheets(rng.Parent.Name).Cells(Lrw, Lcl)) = 0 Then
        LastRow = Sheets(rng.Parent.Name).Cells(Lrw, Lcl).End(xlUp).Row
    Else
        LastRow = Lrw
    End If
End Function

 

[biboylenka1]

Code:

Function LastRow(rng As Range)
Dim Lrw&, Lcl&
    Lrw = Sheets(rng.Parent.Name).Range(rng.Address).Rows.Count + Sheets(rng.Parent.Name).Range(rng.Address).Row - 1
    Lcl = rng.Column
    If Len(Sheets(rng.Parent.Name).Cells(Lrw, Lcl)) = 0 Then
        LastRow = Sheets(rng.Parent.Name).Cells(Lrw, Lcl).End(xlUp).Row
    Else
        LastRow = Lrw
    End If
End Function

Anh có thể phát triển thêm trong trường hợp dòng bị ẩn không ạ? Ví dụ dòng bị ẩn do autofilter.

 

[Maika8008]

Anh có thể phát triển thêm trong trường hợp dòng bị ẩn không ạ? Ví dụ dòng bị ẩn do autofilter.

Bị ẩn phải dùng cách đếm từng ô

Function LastRow(rng As Range)
Dim Lrw&, Lcl&, arr, i&, k&, C&
    Lrw = Sheets(rng.Parent.Name).Range(rng.Address).Rows.Count + Sheets(rng.Parent.Name).Range(rng.Address).Row - 1
    Lcl = rng.Column
    arr = Sheets(rng.Parent.Name).Range(Sheets(rng.Parent.Name).Cells(1, rng.Column), Sheets(rng.Parent.Name).Cells(Lrw, rng.Column)).Value
    C = WorksheetFunction.CountA(Sheets(rng.Parent.Name).Range(Sheets(rng.Parent.Name).Cells(1, rng.Column), Sheets(rng.Parent.Name).Cells(Lrw, rng.Column)))
    For i = 1 To UBound(arr)
        If Len(arr(i, 1)) > 0 Then k = k + 1
        If k = C Then Exit For
    Next
    'LastRow2 = i
LastRow = i
End Function

 

[biboylenka1]

LastRow2 = i

Đoạn này chắc anh viết nhanh nên nhầm. Em đã thử 3 trường hợp và đều ra kết quả. Em cảm ơn anh.

 

[Maika8008]

Đoạn này chắc anh viết nhanh nên nhầm. Em đã thử 3 trường hợp và đều ra kết quả. Em cảm ơn anh.

À, quên. Trong máy tôi thêm số 2 để cho khác với hàm ở bài #5 nhưng chép lên đây bỏ được số 2 ở trên nhưng quên ở dưới