aUDF này chạy tốt nè.kkk
Function TachDiem(Chuoi As Range, Mon As Range) As Double
Dim VtDiem(0 To 9), Arr(0 To 9)
Dim i, p As Integer
Diem = "[0-9.]"
VtMon = InStr(1, Chuoi, Mon)
If VtMon = 0 Then Exit Function
For i = 0 To 9
VtDiem(i) = InStr(VtMon, Chuoi, i)
If VtDiem(i) > VtMon Then
Arr(i) = VtDiem(i)
End If
Next
Vt = WorksheetFunction.Min(Arr())
For p = Vt To Len(Chuoi)
If Mid(Chuoi, p, 1) Like Diem Then
getStr = getStr & Mid(Chuoi, p, 1)
Else
Exit For
End If
Next
TachDiem = getStr
End Function