Function sapxep(ByVal mang As Range, ByVal tangdan As Boolean, ByVal vt As Long) As String
Dim arr As Variant, brr As Variant, i As Long, t, cnt As Long
Dim kttt As String, keytem As String
arr = mang.Value
arr = WorksheetFunction.Transpose(arr)
ReDim brr(LBound(arr) To UBound(arr))
cnt = 0
For i = LBound(arr) To UBound(arr) Step 1
keytem = CStr(arr(i)) & "_tuhocvba.net_"
If InStr(1, kttt, keytem) = 0 Then
cnt = cnt + 1
kttt = kttt & keytem & ";"
brr(cnt) = arr(i)
End If
Next i
If vt <= 0 Or vt > cnt Then
sapxep = "Not Found"
Exit Function
End If
If cnt > 1 Then
Call sapxepmang(brr, tangdan, cnt)
End If
sapxep = CStr(brr(vt))
End Function
Sub sapxepmang(ByRef brr As Variant, ByVal tangdan As Boolean, ByVal cnt)
Dim i As Long
Dim j As Long
Dim temp
If tangdan = True Then
For i = LBound(brr) To cnt - 1 Step 1
For j = i + 1 To cnt Step 1
If Val(CStr(brr(i))) > Val(CStr(brr(j))) Then
temp = brr(i)
brr(i) = brr(j)
brr(j) = temp
End If
Next j
Next i
Else
For i = LBound(brr) To UBound(brr) - 1 Step 1
For j = i + 1 To UBound(brr) Step 1
If Val(CStr(brr(i))) < Val(CStr(brr(j))) Then
temp = brr(i)
brr(i) = brr(j)
brr(j) = temp
End If
Next j
Next i
End If
End Sub