Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

Como adicionar / inserir certos caracteres a cada x caracteres nas células?

Suponha que eu tenha uma lista de strings de texto que desejo inserir traços ou quaisquer outros separadores após cada quatro caracteres nas células para obter o seguinte resultado da captura de tela. São necessárias muitas células para inserir um determinado caractere. Existe alguma maneira rápida de inserir travessões a cada quatro caracteres no Excel?

Insira certos caracteres a cada x caracteres na célula com código VBA

Insira determinados caracteres a cada x caracteres na célula com o Kutools para Excel

doc insira cada x caractere 1


Insira certos caracteres a cada x caracteres na célula com código VBA

Você pode aplicar o seguinte código VBA para inserir um caractere específico após cada quatro caracteres nas células, faça o seguinte:

1. Segure o ALT + F11 chaves no Excel, e abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: insira determinados caracteres a cada x caracteres na célula

Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
    xValue = Rng.Value
    outValue = ""
    For index = 1 To VBA.Len(xValue)
        If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
            outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
        Else
            outValue = outValue + VBA.Mid(xValue, index, 1)
        End If
    Next
    OutRng.Cells(xNum, 1).Value = outValue
    xNum = xNum + 1
Next
End Sub

3. Então aperte F5 para executar este código, e uma caixa de prompt aparecerá para lembrá-lo de selecionar o intervalo de dados no qual deseja inserir determinado caractere nas strings de texto, consulte a captura de tela:

doc insira cada x caractere 2

4. E clique em OK, na seguinte caixa de prompt, digite o número que deseja inserir determinado caractere a cada vez, consulte a captura de tela:

doc insira cada x caractere 3

5. Continue clicando OK, e na caixa de prompt a seguir, digite o caractere que deseja adicionar ao texto, veja a captura de tela:

doc insira cada x caractere 4

6. Clique OK botão e escolha uma célula onde deseja produzir o resultado na caixa de prompt, consulte a captura de tela:

doc insira cada x caractere 5

7. Finalmente, clique em OK, o determinado caractere foi inserido em cada string de texto a cada quatro caracteres, consulte a captura de tela:

doc insira cada x caractere 6


Insira determinados caracteres a cada x caracteres na célula com o Kutools para Excel

O código acima pode ser um pouco difícil para a maioria dos iniciantes em Excel; aqui, posso apresentar uma ferramenta útil - Kutools for Excel, Com o seu Adicionar texto recurso, você pode adicionar rapidamente um texto ou caractere específico antes, depois ou em certas posições do valor da célula.

Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. 

Se você instalou Kutools for Excel, faça o seguinte:

1. Selecione o intervalo de dados em que deseja inserir um caractere específico.

2. Então clique Kutools > Texto > Adicionar texto, veja a captura de tela:

3. No Adicionar texto caixa de diálogo, especifique um caractere que deseja inserir no Texto caixa e, em seguida, escolha Especifique a partir da posição seção, na caixa de texto, digite as posições que você deseja inserir o caractere, depois, ao mesmo tempo, você pode visualizar o resultado no painel direito, veja a imagem:

doc insira cada x caractere 8

Tips: Aqui, digito 4,8,12 na caixa de texto de Especificar que indicam a inserção do texto específico após o 4º, 8º e 12º caracteres da string de texto.

4. Então clique Ok or Inscrever-se botão, o caractere especificado foi inserido nos valores da célula em posições específicas.

doc insira cada x caractere 9 2 doc insira cada x caractere 10

Clique para saber mais detalhes sobre este utilitário Adicionar Texto.

Baixe e teste grátis Kutools para Excel agora!


Demonstração: Insira um determinado caractere a cada x caracteres na célula com o Kutools para Excel

Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

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 ...
  • Super Formula Bar (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-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. 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!
officetab bottom
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    anaid83 · 2 months ago
    Creo que en vez de macros, es más fácil (aunque más largo):
    1. Separar en columnas la columna A (Pestaña Datos - botón texto en columnas) y separar por Ancho fijo. Así podrás poner un separador cada 4 caracteres.
    2. Elige destino desde B2 (si lo dejas predeterminado, pisará la columna A y no podrás ver el texto original).
    3. Ahora viene lo bueno, ya que son 4 series de 4caracteres cada uno, en la columna G o H (considerando que los valores de 4 caracteres estén desde las columnas B a la F), colocarás la siguiente fórmula: =CONCATENAR(B2;"-";C2;"-";D2;"-";E2;"-";F2). Ahora copia esa celda al resto de valores por insertar el símbolo -.
    4. Finalmente, copia toda la columna de resultados y pégala en una columna vacía pero como valor de texto (Inicio-Pegar-Valores... o con las teclas ALT+O+V+V) y listo, ya tienes tus seriales listos para pegar donde quieras sin necesidad de macros.
  • To post as a guest, your comment is unpublished.
    Wuilf · 1 years ago
    Muy buena esta macro, una pregunta curiosa al momento de ejecutarla los caracteres los aplica de izquierda a derecha, puede cambiarse ese orden que de derecha a izquierda? En caso de ser posible como es el proceso? Gracias.
  • To post as a guest, your comment is unpublished.
    John · 2 years ago
    buenas noches
    necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios