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 determinado caractere a cada x caracteres na célula com o Kutools para Excel
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:
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:
5. Continue clicando OK, e na caixa de prompt a seguir, digite o caractere que deseja adicionar ao texto, veja a captura de tela:
6. Clique OK botão e escolha uma célula onde deseja produzir o resultado na caixa de prompt, consulte a captura de tela:
7. Finalmente, clique em OK, o determinado caractere foi inserido em cada string de texto a cada quatro caracteres, consulte a captura de tela:
Insira determinado caractere 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:
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 Inscreva-se botão, o caractere especificado foi inserido nos valores da célula em posições específicas.
 |
 |
 |
Clique para saber mais detalhes sobre este utilitário Adicionar Texto.
Baixe e teste grátis Kutools para Excel agora!
Demonstração: insira determinado caractere a cada x caracteres na célula com o Kutools para Excel
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!
