Como inserir / adicionar espaço após cada x caracteres nas células?
Se você tiver várias sequências de texto em uma lista de planilha, agora, você deseja inserir um espaço após cada 3 ou x caracteres nas células, como mostrado a seguir. Como você poderia resolver esse problema no Excel de forma rápida e fácil?
|
Inserir / adicionar espaço após cada x caracteres em células com código VBA Inserir / adicionar espaço após cada x caracteres nas células com o Kutools para Excel |
Inserir / adicionar espaço após cada x caracteres em células com código VBA
Aplicando o seguinte código VBA, você pode inserir rapidamente o espaço após cada n caracteres para várias células de uma vez, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Então clique inserção > Móduloe cole o seguinte código no Módulo janela.
Código VBA: insira um espaço após cada x caracteres:
Sub addspace()
'updateby Extendoffice
Dim i As Long
Dim xCell As Range
Dim xRg As Range
Dim xTxt As String
Dim xStr As String
Dim xUpdate As Boolean
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
xStr = xCell.Text
xTxt = ""
For i = 1 To Len(xStr) Step 4
If xTxt = "" Then
xTxt = Mid(xStr, i, 4)
Else
xTxt = Trim(xTxt) & " " & Mid(xStr, i, 4)
End If
Next
xCell = xTxt
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Então aperte F5 para executar este código e, na caixa de prompt, selecione as células nas quais deseja inserir espaço, veja a captura de tela:
4. E, em seguida, clique em OK botão, e os espaços foram inseridos no conteúdo da célula a cada quatro caracteres, consulte as capturas de tela:
![]() |
![]() |
![]() |
Nota: No código acima, você pode alterar o número 4 para outro número para inserir espaço depois. E também você pode alterar o espaço delimitador para outros delimitadores nesta regra xTxt = Trim (xTxt) & "" & Mid (xStr, i, 4) do código acima.
Inserir / adicionar espaço após cada x caracteres nas células com o Kutools para Excel
Kutools for Excel'S Adicionar texto recurso também pode ajudá-lo a resolver esse problema de forma rápida e fácil.
Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, faça o seguinte :( Baixe grátis o Kutools para Excel agora! )
1. Selecione as sequências de texto nas quais deseja inserir espaço.
2. Então clique Kutools > Texto > Adicionar texto, veja a captura de tela:
3. No Adicionar texto caixa de diálogo, pressione a barra de espaço uma vez no Texto caixa e selecione a Especificar opção sob o Posiçãoe digite as posições em que deseja inserir o espaço, consulte a captura de tela:
4. E, em seguida, clique em Ok or Aplicar botão, você obterá o resultado de que os espaços foram inseridos após cada quatro caracteres conforme necessário.
Tips: O número de posições na caixa de texto Especificar deve ser separado por vírgulas.
Baixe grátis o Kutools para Excel agora!
Artigo relacionado:
Como adicionar / inserir certos caracteres a cada x caracteres nas células?
As melhores ferramentas de produtividade para escritório
O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
- Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
- Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
- Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
- Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
- Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
- Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
- Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
- Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
