Insert a module and paste the following code in the module: The usage of the function is =sztozm (cell address), for example: =sztozm(A 1).

Common function SZtoZM(target As String) As String

Aa = target

For i = 0 to 9

Bb = Instrument (1, "0 123456789", i)

cc = Mid("GYESIWLQBJ "，bb， 1)

Aa = substitution (aa, i, cc)

then

SZtoZM = aa

End function