Tìm vị trí cuối cùng của một dữ liệu trong một cột.

Để tìm một vị trí cuối cùng của một cột nào đó trong một column của excel thì làm theo cách dưới đây:

Ví dụ tìm vị trí cuối cùng của giá trị nằm trong ô D3 trong cột A2:A15 Và xuất ra B2

Dùng formula:

=SUMPRODUCT(MAX(ROW($A$2:$A$15)*($D$3=$A$2:$A$15))

Dùng VBA:

Sub LastRowCondition()
Dim Darr(), i As Long
Darr = Range("A2:A15").Value
For i = UBound(Darr) To 1 Step -1
  If Darr(i, 1) = Range("D3").Value Then
    Range("B2") = i + 1 'ket qua tra ve
    Exit Sub
  End If
Next i
Range("B2") = 0 'ket qua tra ve
End Sub

Tạo Function tìm kiếm vị trí Đầu tiên.

Public Function LastRec(Myrng As Variant, MyText As string)
    Dim i As Long
    
    For i = LBound(Myrng, 1) To UBound(Myrng, 1)
        If Myrng(i, 1) = MyText Then
            LastRec = i
            Exit Function
        End If
    Next i
    
End Function

Tạo Function tìm kiếm vị trí cuối cùng.

Public Function LastRec(Myrng As Variant, MyText As string)
    Dim i As Long
    
    For i = UBound(Myrng, 1) To 1 Step -1
        If Myrng(i, 1) = MyText Then
            LastRec = i
            Exit Function
        End If
    Next i
    
End Function

Code gọi function:

ViTriCuoi = LastRec(Sheet2.Range("F:F").Value, "nguyenvana")