EXCEL LastIndexOf

Ilyen valamiért nincs, pedig néha hasznos lenne, így már van:

Function LastIndexOf(src As Range, char As String)
Dim value As String
Dim valueLen As Integer

value = src.Cells(1, 1).value
valueLen = Len(value)

For i = valueLen To 1 Step -1
If Mid(value, i - 1, 1) = Left(char, 1) Then
 LastIndexOf = i
 Exit Function
End If
Next i
End Function

Használni pedig így kell: =LastIndexOf(A1; “d”)