Ilyen függvény nincs, de itt egy makró, ami az A1 cellába írt adatot letapogatja:
Sub szamolo()
Nev = Cells(1, 1): sz = 1
For k = 1 To Len(Nev)
If Mid(Nev, k, 1) = Mid(Nev, k + 1, 1) Then
sz = sz + 1
Else
szam = sz
sz = 1
Cells(1, 2) = Cells(1, 2) & szam & ","
End If
Next
Nev = Cells(1, 2)
Cells(1, 2) = Left(Nev, Len(Nev) - 1)
End Sub