Personalizar dimensões de formatação de uma caixa no Excel

Question

Atualmente, estou criando uma planilha no Excel e definindo um padrão para tudo o que estou copiando. Parte do texto que estou inserindo é diferente do formato desejado.

O formato que quero é, por exemplo: 233 X 223 X 34 Os dados que chegam geralmente são: 233x233x34

Existe alguma maneira de converter o texto para o formato que eu quero?

    

Answer 1

Inclua a seguinte macro de evento na área de código da planilha:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Application.EnableEvents = False
    For Each r In Target
        v = r.Value
        If InStr(1, v, "X") > 0 Then
            r.Replace "X", " X "
            r.Replace "  X  ", " X "
        End If
    Next r
Application.EnableEvents = True
End Sub