Como adicionar espaço entre caracteres ou cada dígito no Excel?

Suponha que você tenha uma lista de strings de texto ou números e deseja adicionar espaço entre os caracteres ou cada dígito, o que você pode fazer? Os seguintes métodos podem ajudá-lo a resolver esse problema.

Adicionar espaço entre caracteres ou cada dígito com função definida pelo usuário
Adicionar espaço entre caracteres ou cada dígito com Kutools para Excel

Adicionar espaço entre caracteres ou cada dígito com função definida pelo usuário

Você pode usar a seguinte função definida pelo usuário para adicionar espaço entre caracteres ou cada dígito no Excel.

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o seguinte código na janela do Módulo.

Código VBA: Adicionar espaço entre caracteres ou cada dígito

Function AddSpace(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddSpace = AddSpace & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

3. Pressione as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications e retornar à janela do Excel.

4. Selecione uma célula em branco, insira a fórmula =AddSpace(B2) na Barra de Fórmulas e pressione a tecla Enter.

Neste caso, você verá que espaços foram adicionados entre os caracteres da célula B2.

Observação: Para adicionar espaço entre cada dígito, altere a referência da célula na fórmula para aquela com os números conforme necessário.

Adicionar espaço entre caracteres ou cada dígito com Kutools para Excel

Se o código VBA for complicado para você, você pode experimentar o utilitário Adicionar Texto do Kutools para Excel. Por favor, faça o seguinte.

1. Selecione as células onde você precisa adicionar espaço entre os caracteres ou cada dígito, depois clique em Kutools > Texto > Adicionar Texto. Veja a captura de tela:

2. Na caixa de diálogo Adicionar Texto, clique na caixa de Texto e pressione a tecla Espaço uma vez para inserir um espaço na caixa de texto, depois selecione a opção Adicionar à.

Para adicionar espaço entre caracteres:

Escolha a opção 1ª letra é maiúscula/minúscula na lista suspensa e, finalmente, clique no botão OK.

Para adicionar espaço entre cada dígito:

Escolha a opção 1º caractere é número na lista suspensa e, finalmente, clique no botão OK.

Em seguida, os espaços são adicionados entre os caracteres ou cada dígito das células especificadas.

Adicionar espaço entre caracteres ou cada dígito com Kutools para Excel

Artigos relacionados:

• Como remover texto antes ou depois de um caractere específico no Excel?
• Como contar ocorrências de um caractere específico em uma célula no Excel?