substitui o primeiro dígito por uma letra quando o primeiro dígito também está no resto da célula no excel

Question

Desejo substituir o primeiro dígito (9109) pela letra "i" na coluna da planilha do excel A1 . Cada célula tem um número de projeto diferente, mas todo projeto começa com "9", então eu desejo substituir o "9" pela letra "i".

Muito importante: lembre-se de que alguns dos números do meu projeto parecem 9109, 9269. Por isso, preciso substituir apenas o primeiro "9". Alguém pode me ajudar?

    

Answer 1

VBA:

Sub test()
Dim original As String
Dim replacement As String

    For Each c In Range("A:A")

        If Left(c, 1) = 9 Then

        original = c.Value
        replacement = replace(original, "9", "i", 1, 1)
        c.Value = replacement

        End If

    Next

End Sub