Adicionar Caracteres a Cada X Caracteres nas Células do Excel – Métodos Simples

Ao trabalhar com códigos de produto, números de série, números de telefone, identificações ou sequências longas de texto no Excel, poderá precisar de inserir um carácter específico a cada número fixo de caracteres. Por exemplo, pode querer converter ABCDEF123456 em ABC-DEF-123-456 ou adicionar espaços a cada 4 dígitos para facilitar a leitura de números longos.
O Excel não inclui um botão dedicado para esta tarefa, mas é possível realizá-la facilmente com alguns métodos simples. Este artigo apresenta-lhe várias abordagens práticas para adicionar ou inserir caracteres específicos a cada X caracteres nas células do Excel.

Adicionar Caracteres a Cada X Caracteres no Excel

• Método 1: Por fórmula (Excel 365, Excel 2021 e versões posteriores)
• Método 2: Por código VBA
• Método 3: Por Função Definida pelo Utilizador
• Método 4: Por Kutools para Excel

Notas Importantes e Limitações

Conclusão

Adicionar Caracteres a Cada X Caracteres no Excel

Os métodos seguintes mostram-lhe como inserir rapidamente caracteres específicos a cada número definido de caracteres no Excel, facilitando a separação de textos longos, identificações, códigos de produto ou sequências numéricas em intervalos fixos — tornando o conteúdo mais padronizado e fácil de ler.

Método 1: Adicionar Caracteres a Cada X Caracteres com fórmula

Se estiver a utilizar o Excel 365 ou o Excel 2021, pode usar uma fórmula de matriz dinâmica para dividir o texto em grupos de comprimento fixo e, depois, juntá-los com um carácter especificado.

Introduza a seguinte fórmula numa célula vazia:

=TEXTJOIN("-",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/4,0),,1,4),4))

Depois, prima a tecla Enter e arraste a alça de preenchimento para baixo para aplicar a fórmula às restantes células.

Personalizar a fórmula

Pode ajustar o caráter e o intervalo conforme necessário.

=TEXTJOIN(" ",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/4,0),,1,4),4))

=TEXTJOIN("/",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/2,0),,1,2),2))

=TEXTJOIN($B$1,TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/$C$1,0),,1,$C$1),$C$1))

Vantagens e desvantagens

Método 2: Adicionar Caracteres a Cada X Caracteres com código VBA

Se pretender inserir um carácter específico a cada número fixo de caracteres em várias células e obter diretamente o resultado, o VBA é uma boa opção.

1. Mantenha premidas as teclas ALT + F11 no Excel para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do módulo.

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. Prima a tecla F5 para executar este código. Aparecerá uma caixa de diálogo a solicitar que selecione o intervalo de dados onde pretende inserir um carácter específico nas cadeias de texto. Veja a imagem abaixo:
   
4. E clique em OK; na caixa de diálogo seguinte, introduza o número após o qual pretende inserir o carácter específico. Veja a imagem:
   
5. Continue a clicar em OK e, na caixa de diálogo seguinte, introduza o carácter específico que pretende adicionar ao texto. Veja a imagem:
   
6. Clique no botão OK e escolha, na caixa de diálogo, a célula onde pretende apresentar o resultado. Veja a imagem:
   
7. Finalmente, clique em OK. O Excel irá inserir o caráter especificado a cada X caracteres e colocará os resultados na Área de Colocação da Lista selecionada.
   

Vantagens e desvantagens

Método 3: Adicionar caracteres a cada X caracteres com Função Definida pelo Utilizador

Uma Função Definida pelo Utilizador, também designada por UDF, permite-lhe criar a sua própria função do Excel com VBA. Após adicionar a função, pode utilizá-la como uma fórmula normal da folha de cálculo.

1. Prima Alt + F11 para abrir o editor VBA.
2. Clique em Inserir > Módulo. Copie e cole o seguinte código no módulo.

Function InsertEveryX(TextStr As String, InsertChar As String, IntervalNum As Long) As String
    Dim i As Long
    Dim ResultStr As String
    If IntervalNum <= 0 Then
        InsertEveryX = TextStr
        Exit Function
    End If
    For i = 1 To Len(TextStr) Step IntervalNum
        ResultStr = ResultStr & Mid(TextStr, i, IntervalNum) & InsertChar
    Next i
    If Len(ResultStr) > 0 Then
        ResultStr = Left(ResultStr, Len(ResultStr) - Len(InsertChar))
    End If
    InsertEveryX = ResultStr
End Function

3. Feche o editor do VBA e regresse à folha de cálculo. Utilize a seguinte fórmula:

=InsertEveryX(A2,"-",4)

Depois, arraste a alça de preenchimento para baixo e aplique a fórmula às restantes células.

Vantagens e desvantagens

Método 4: Adicionar caracteres a cada X caracteres com Kutools para Excel

Se não quiser utilizar fórmulas complexas nem código VBA, o Kutools para Excel oferece uma forma mais simples de inserir caracteres no texto das células. Com as suas ferramentas de texto, pode inserir rapidamente caracteres específicos em posições fixas ou aplicar operações de processamento de texto a várias células.

1. Selecione as células onde pretende inserir caracteres e, em seguida, clique em Kutools > Texto > Adicionar Texto.
   
2. Na caixa de diálogo Adicionar Texto:
   1. Introduza o caractere que pretende inserir, como -, / ou um espaço na caixa Texto.
   2. Na secção Adicionar Posição, selecione Após a posição especificada e introduza as posições onde o caractere deve ser inserido.
   3. Clique em OK.
      

O carácter especificado foi agora inserido nos valores das células nos intervalos definidos.

Notas Importantes e Limitações

=IF(A2="","",TEXTJOIN("-",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/4,0),,1,4),4)))

Conclusão

Adicionar caracteres a cada X caracteres no Excel torna cadeias de texto longas mais fáceis de ler, formatar e gerir. Para utilizadores do Excel 365 ou Excel 2021, as fórmulas oferecem uma solução flexível e dinâmica. Se precisar de processar muitas células de uma só vez, o VBA permite concluir a tarefa de forma eficiente. Caso pretenda uma fórmula personalizada reutilizável, uma Função Definida pelo Utilizador (UDF) é uma excelente opção. Já para quem prefere um método simples, visual e sem código, o Kutools para Excel proporciona uma forma mais rápida de lidar com este tipo de tarefa de formatação de texto.

Em geral, utilize fórmulas para obter resultados dinâmicos, recorra a VBA ou UDFs quando precisar de maior controlo e opte pelo Kutools para um fluxo de trabalho mais simples e com menos passos manuais.