Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como adicionar / inserir caracteres específicos de cada x caracteres nas células?

Supondo, eu tenho uma lista de strings de texto que eu quero inserir traços ou qualquer outro separador depois de cada quatro caracteres em células para obter o resultado de captura de tela a seguir. Existem muitas células necessárias para inserir o caracter certo, existem maneiras rápidas de inserir traços cada quatro caracteres no Excel?

Insira um caractere específico de cada caractere x na célula com o código VBA

Insira um caractere específico de cada personagem x na célula com o Kutools for Excel

doc inserir cada x personagem 1


Adicionar caractere específico antes / depois / certa posição da seqüência de texto:

Kutools for Excel'S Adicionar texto O utilitário pode ajudá-lo a adicionar caracteres específicos ou letras antes ou depois de todas as células, ao mesmo tempo em que também pode inserir o caractere entre a posição certa das cadeias de texto.

doc inserir cada x personagem 11

Kutools for Excel: com mais de 200 complementos úteis do Excel, grátis para tentar sem limitação nos dias 60. Baixe e teste grátis agora!


Insira um caractere específico de cada caractere x na célula com o código VBA


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

1. Mantenha pressionado o ALT + F11 chaves no Excel, e abre a 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 um caractere de cada caractere X na célula

Sub InsertCharacter()
'Updateby20150813
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 chave para executar este código, e uma caixa de prompt aparecerá para lembrá-lo de selecionar o intervalo de dados que deseja inserir determinado caractere nas cordas de texto, veja a captura de tela:

doc inserir cada x personagem 2

4. E clique em OK, na seguinte caixa de solicitação, insira o número que deseja inserir um determinado caracter, depois, veja a captura de tela:

doc inserir cada x personagem 3

5. Vá clicando em OK, e na caixa de prompt seguido, insira o caractere certo que deseja adicionar ao texto, veja a captura de tela:

doc inserir cada x personagem 4

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

doc inserir cada x personagem 5

7. Finalmente, clique em OK, o caracter certo foi inserido em cada string de texto a cada quatro caracteres, veja a captura de tela:

doc inserir cada x personagem 6


Insira um caractere específico de cada personagem x na célula com o Kutools for Excel

O código acima talvez seja um pouco difícil para a maioria dos iniciantes do Excel, aqui, eu 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, após ou as determinadas posições do valor da célula.

Kutools for Excel : com mais de 300 complementos Excel úteis, grátis para tentar sem limitação em dias 60.

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

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

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

doc inserir cada caractere x 7 7

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 na caixa de texto, insira as posições que você deseja inserir o personagem após, ao mesmo tempo, você pode visualizar o resultado no painel direito, veja a captura de tela:

doc inserir cada x personagem 8

dicas: Aqui eu escrevo 4,8,12 na caixa de texto de Especificar que indicam para inserir o texto específico após os caracteres 4th, 8th e 12th da seqüência de texto.

4. Então clique Ok or Candidatura , o caractere especificado foi inserido nos valores das células em posições específicas.

doc inserir cada x personagem 9  2 doc inserir cada x personagem 10

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

Faça o download e teste grátis Kutools for Excel Now!


Demo: Insira um caractere específico de cada x caracteres na célula com Kutools para Excel

Kutools for Excel: com mais de 200 complementos úteis do Excel, grátis para tentar sem limitação nos dias 60. Baixe e teste grátis agora!


Kutools for Excel - A Melhor Ferramenta de Produtividade no Escritório Aumenta Sua Produtividade em 80%

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente 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 (salve e aplique 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 ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 60.
kte tab 201905

A guia Office traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ativar edição e leitura com guias no 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!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    John · 1 months 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