Note: The other languages of the website are Google-translated. Back to English

 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?

doc adicione espaço após x caracteres 1

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


seta azul bolha direita 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:

doc adicione espaço após x caracteres 2

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:

doc adicione espaço após x caracteres 3 2 doc adicione espaço após x caracteres 4

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.


seta azul bolha direita 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:

doc adicione espaço após x caracteres 6

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 kte 201905

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!
parte inferior da aba do escritório
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL