Excel: adicionar texto e número em posição específica da célula

No Excel, adicionar textos ou números às células é uma tarefa muito comum. Por exemplo, inserir espaço entre nomes, adicionar prefixo ou sufixo às células, adicionar traços a números sociais. Neste tutorial, listamos praticamente todos os cenários de adição no Excel e fornecemos os métodos correspondentes para você.

Observação

Neste tutorial, criei alguns exemplos para explicar os métodos. Você pode alterar as referências conforme necessário ao usar o código VBA ou fórmulas abaixo, ou pode baixar os exemplos para testar os métodos diretamente.

Clique para baixar o arquivo de exemplo

Esta seção lista diferentes métodos para adicionar caracteres ao início de cada célula, conforme mostrado na captura de tela abaixo:

1.1 Adicionar no início das células usando fórmula

Aqui você pode escolher uma das três fórmulas abaixo:

Fórmula1 Operador de concatenação "&"

Junte vários textos usando o caractere comercial "&".

"texto"&célula

Fórmula2 Função CONCATENATE

A função CONCATENATE é usada para juntar textos.

CONCATENATE("texto",célula)

Fórmula3 Função CONCAT

Esta é uma função nova que só está disponível no Excel2019, Office365 e Excel online.

CONCAT("texto",célula)

Nas fórmulas genéricas: célula é a referência da célula ao texto ao qual você deseja adicionar o prefixo, e texto é o texto que será adicionado à célula.

Usando o exemplo acima, você pode utilizar as fórmulas na barra de fórmulas assim:

"&"

=$E$3&B3 ou ="Iphone"&B3

Função CONCATENATE

=CONCATENATE($E$3,B3) ou =CONCATENATE("Iphone",B3)

Função CONCAT

=CONCAT($E$3,B3) ou =CONCAT("Iphone",B3)

Pressione Enter para obter o resultado e, em seguida, arraste a alça de preenchimento automático para baixo para adicionar texto a cada célula do intervalo B3:B6.

1.2 Adicionar no início das células com Preenchimento Relâmpago

Se você estiver usando o Excel2013 ou versões posteriores, o recurso poderoso Preenchimento Relâmpago pode preencher as células automaticamente com base nos dados inseridos acima.

Escolha uma célula ao lado do primeiro dado original e digite manualmente o primeiro dado com o texto de prefixo, conforme mostrado abaixo:

Em seguida, na célula abaixo, continue digitando o segundo dado com o texto de prefixo. Durante a digitação, uma lista em cinza será exibida; pressione Enter para permitir que o Preenchimento Relâmpago preencha os dados automaticamente.

Se a lista de visualização não for gerada, vá até a guia Página Inicial e clique em Preencher > Preenchimento Relâmpago para executar manualmente.

1.3 Adicionar no início das células usando código VBA

Se você tem familiaridade com código VBA, aqui está um exemplo de código VBA para adicionar texto no início de cada célula em um intervalo.

1. Selecione um intervalo de células ao qual deseja adicionar o texto de prefixo e pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela que abrir, clique em Inserir > Módulo para inserir um novo módulo em branco.

3. Copie e cole o código VBA abaixo no novo módulo.

VBA: Adicionar no início das células

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub

4. Pressione F5 ou clique em Executar botão na janela para ativar o código VBA.

Agora todas as células selecionadas receberam o texto "Iphone" no início.

Além de adicionar texto ao início das células, adicionar texto ao final também é comum. Aqui, tomamos como exemplo a adição de unidade ao final de cada célula, conforme mostrado na captura de tela abaixo:

2.1 Adicionar ao final das células usando fórmula

Aqui você pode escolher uma das três fórmulas abaixo:

Fórmula1 Operador de concatenação "&"

Junte vários textos usando o caractere comercial "&".

célula&"texto"

Fórmula2 Função CONCATENATE

A função CONCATENATE é usada para juntar textos.

CONCATENATE(célula,"texto")

Fórmula3 Função CONCAT

Esta é uma função nova que só está disponível no Excel2019, Office365 e Excel online.

CONCAT(célula,"texto")

Nas fórmulas genéricas: célula é a referência da célula ao texto ao qual você deseja adicionar o sufixo, e texto é o texto que será adicionado à célula.

Usando o exemplo acima, você pode utilizar as fórmulas na barra de fórmulas assim:

"&"

=B3&$E$3 ou =B3&"Kg"

Função CONCATENATE

=CONCATENATE(B3, $E$3) ou =CONCATENATE(B3, "Kg")

Função CONCAT

=CONCAT(B3, $E$3) ou =CONCAT(B3, "Kg")

Pressione Enter para obter o resultado e, em seguida, arraste a alça de preenchimento automático para baixo para adicionar texto ao final de cada célula do intervalo B3:B6.

2.2 Adicionar ao final das células com Preenchimento Relâmpago

Se você estiver usando o Excel2013 ou versões posteriores, o recurso poderoso Preenchimento Relâmpago pode preencher as células automaticamente com base nos dados inseridos acima.

Escolha uma célula ao lado do primeiro dado original e digite manualmente o primeiro dado com o texto de sufixo, conforme mostrado abaixo:

Em seguida, ative a célula abaixo do primeiro resultado, clique em Dados > Preenchimento Relâmpago, todas as células abaixo, incluindo a célula ativa, serão preenchidas automaticamente.

2.3 Adicionar ao final das células usando código VBA

Aqui está um código VBA que pode adicionar texto ao final de cada célula em um intervalo.

1. Selecione um intervalo de células ao qual deseja adicionar o texto de sufixo e pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela que abrir, clique em Inserir > Módulo para inserir um novo módulo em branco.

3. Copie e cole o código VBA abaixo no novo módulo.

VBA: Adicionar ao final das células

Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub

4. Pressione F5 ou clique em Executar botão na janela para ativar o código VBA.

Agora o texto "Kg" foi adicionado ao final de cada célula.

Para a maioria dos usuários, adicionar textos ao início ou ao final das células é fácil, mas adicionar textos ao meio das células pode ser um pouco mais difícil. Por exemplo, como mostrado na captura de tela abaixo, adicionar um delimitador, como dois pontos :, ao final do segundo caractere de cada célula no intervalo B3:B7.

3.1 Adicionar após o enésimo caractere da sequência por fórmula

Aqui estão quatro fórmulas para você realizar essa tarefa, escolha uma para usar:

Fórmula1 Combinar funções ESQUERDA e DIREITA

ESQUERDA(célula, n) & "texto" & DIREITA(célula, NÚM.CARACT(célula) -n)

Fórmula2 Combinar CONCATENATE(CONCAT), DIREITA e NÚM.CARACT

CONCATENATE(ESQUERDA(célula, n), "texto", DIREITA(célula, NÚM.CARACT(célula) -n))

Ou

CONCAT(ESQUERDA(célula, n), "texto", DIREITA(célula, NÚM.CARACT(célula) -n))

Fórmula3 Função SUBSTITUIR

SUBSTITUIR(célula, n+1,0, "texto")

Nas fórmulas genéricas: célula é a referência da célula ao texto ao qual você deseja adicionar texto no meio, texto é o texto que será adicionado à célula e n é o número que define após qual caractere na sequência de texto você deseja adicionar o texto.

Para resolver o exemplo mencionado acima, utilize as fórmulas assim:

Combinar funções ESQUERDA e DIREITA

=ESQUERDA(B3,2) & ":" & DIREITA(B3, NÚM.CARACT(B3) -2) ou =ESQUERDA(B3,2) & $E$3 & DIREITA(B3, NÚM.CARACT(B3) -2)

Combinar CONCATENATE(CONCAT), DIREITA e NÚM.CARACT

=CONCATENATE(ESQUERDA(B3,2), ":", DIREITA(B3, NÚM.CARACT(B3) -2)) ou =CONCAT (ESQUERDA(B3,2), ":", DIREITA(B3, NÚM.CARACT(B3) -2))

Função SUBSTITUIR

=SUBSTITUIR(B3,2+1,0, ":") ou =SUBSTITUIR(B3,2+1,0, $E$3)

Pressione Enter para obter o resultado e, em seguida, arraste a alça de preenchimento automático para baixo para adicionar texto após o segundo caractere de cada célula do intervalo B3:B7.

3.2 Adicionar após o enésimo caractere da sequência com Preenchimento Relâmpago

Se você estiver usando o Excel2013 ou versões posteriores, o Preenchimento Relâmpago pode preencher as células automaticamente com base nos dados inseridos acima.

Escolha uma célula ao lado do primeiro dado original e digite manualmente o primeiro dado com dois pontos após o segundo caractere, conforme mostrado abaixo:

Em seguida, ative a célula abaixo do primeiro resultado, pressione Ctrl + E para ativar Preenchimento Relâmpago comando, todas as células abaixo, incluindo a célula ativa, serão preenchidas automaticamente.

3.3 Adicionar após o enésimo caractere da sequência usando código VBA

Um código VBA também pode realizar essa tarefa.

1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela que abrir, clique em Inserir > Módulo para inserir um novo módulo em branco.

3. Copie e cole o código VBA abaixo no novo módulo.

VBA: Adicionar no meio das células

Sub AddToMidduleOfString()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        Rng.Value = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
    Next
End Sub

4. Pressione F5 ou clique em Executar botão na janela para ativar o código VBA. Uma caixa de diálogo será exibida para selecionar as células para adicionar o texto.

5. Clique em OKAgora o texto ":" foi adicionado após o segundo caractere de cada célula no intervalo B19:B23.

Se você está cansado de fórmulas e VBA, pode experimentar uma ferramenta poderosa e prática, Kutools para Excel, que pode ajudar com seu recurso Adicionar Texto disponível.

Este recurso Adicionar Texto pode:

• Adicionar texto antes do primeiro caractere
• Adicionar texto após o último caractere
• Adicionar texto em posições especificadas
• Extensão
  Adicionar texto antes de letras maiúsculas
  Adicionar texto antes de letras minúsculas
  Adicionar texto antes de letras maiúsculas e minúsculas
  Adicionar texto antes de caracteres numéricos

Selecione as células às quais deseja adicionar texto e aplique o Adicionar Texto clicando em Kutools > Texto > Adicionar Texto.

4.1 Adicionar texto antes do primeiro caractere ou após o último caractere

Na Adicionar Texto janela, digite o texto que deseja adicionar às células no campo Texto e marque Antes do primeiro caractere na seção Posição da janela.

Clique em Aplicar ou Ok para concluir a adição.

Para adicionar texto após o último caractere, digite o texto que deseja adicionar às células no campo Texto e marque Após o último caractere na seção Posição da janela.

Clique em Aplicar ou Ok para concluir a adição.

4.2 Adicionar texto na(s) posição(ões) especificada(s)

Às vezes, você pode querer adicionar texto ao meio da célula ou em várias posições da célula. Supondo que você queira adicionar o separador "-" após o terceiro e o sétimo dígito dos números sociais, conforme mostrado na captura de tela abaixo:

Na Adicionar Texto janela, digite o texto no campo Texto e marque Especificar opção, depois digite as posições separadas por vírgula no campo e clique em Ok ou Aplicar.

4.3 Extensão da ferramenta Adicionar Texto

Além de adicionar texto nas posições normais (início, fim e posição especificada), a ferramenta Adicionar Texto também permite adicionar texto

• Antes de letras maiúsculas
• Antes de letras minúsculas
• Antes de letras maiúsculas e minúsculas
• Antes de caracteres numéricos

Na Adicionar Texto janela, digite o texto no campo Texto e marque Avançado opção, depois clique no menu suspenso abaixo para escolher a operação conforme necessário.

Além do recurso Adicionar Texto, o Kutools para Excel possui mais de300 recursos úteis que podem facilitar diversas tarefas no Excel. Faça o download gratuito agora.

Esta seção fornece fórmulas para adicionar texto antes ou depois do primeiro texto específico encontrado no Excel.

5.1 Adicionar texto antes do primeiro texto específico

Por exemplo, você deseja adicionar o texto "(promoção)" antes do primeiro texto "preço" na célula, conforme mostrado nas capturas de tela abaixo:

No Excel, as funções SUBSTITUIR e SUBSTITUIR.POR podem resolver essa tarefa.

Função SUBSTITUIR

SUBSTITUIR(célula,PROCURAR("texto_procurado",célula),0,"texto_adicionado")

Função SUBSTITUIR.POR

SUBSTITUIR.POR(célula,"texto_procurado","texto_substituir",1)

Neste caso, utilize as fórmulas acima assim:

=SUBSTITUIR(B4,PROCURAR("preço",B4),0,"(promoção)")

Ou

=SUBSTITUIR.POR(B4,"preço","(promoção)preço",1)

Os argumentos da fórmula neste caso são

Célula: B4,

Texto_procurado: preço,

Texto_adicionado: (promoção),

Texto_substituir: (promoção)preço.

Pressione Enter para obter o primeiro resultado, depois arraste a alça de preenchimento automático sobre as células que precisam dessa fórmula.

5.2 Adicionar texto após o primeiro texto específico

Por exemplo, você deseja adicionar o símbolo de moeda "$" após o primeiro dois pontos ":" na célula, conforme mostrado nas capturas de tela abaixo:

No Excel, as funções SUBSTITUIR e SUBSTITUIR.POR podem resolver essa tarefa.

Função SUBSTITUIR

SUBSTITUIR(célula,PROCURAR("texto_procurado",célula),comprimento_texto_procurado,"texto_substituir")

Função SUBSTITUIR.POR

SUBSTITUIR.POR(célula,"texto_procurado","texto_substituir")

Neste caso, utilize as fórmulas acima assim:

=SUBSTITUIR(B12,PROCURAR(":",B12),1,":$")

Ou

=SUBSTITUIR.POR(B12,":",":$")

Os argumentos da fórmula neste caso são

Célula: B12,

Texto_procurado: :,

Texto_substituir: :$.

Comprimento_texto_procurado:1

Pressione Enter para obter o primeiro resultado, depois arraste a alça de preenchimento automático sobre as células que precisam dessa fórmula.

Nesta parte do tutorial, são apresentados três métodos diferentes (fórmula, Localizar e Substituir, VBA) para ajudar você a adicionar caracteres antes ou depois de cada palavra da célula.

Adicionar caracteres antes de cada palavra

Adicionar caracteres após cada palavra

6.1 Adicionar caractere(s) antes ou depois de cada palavra por fórmula

A função SUBSTITUIR.POR pode ser usada para resolver essa tarefa, as fórmulas gerais são:

Adicionar antes de cada palavra

"caractere"&SUBSTITUIR.POR(sequência, " "," caractere")

Adicionar após cada palavra

SUBSTITUIR.POR(sequência," ","caractere ")&"caractere"

Supondo que você queira adicionar "+" antes de cada palavra na lista B3:B6, utilize a fórmula assim:

="+"&SUBSTITUIR.POR(B3, " "," +")

Pressione Enter para obter o primeiro resultado, depois arraste a alça de preenchimento automático para baixo para obter todos os resultados.

Supondo que você queira adicionar ($) após cada palavra da lista B11:B14, utilize a fórmula abaixo:

=SUBSTITUIR.POR(B11," ","($) ")&"($)"

Pressione Enter para obter o primeiro resultado, depois arraste a alça de preenchimento automático para baixo para obter todos os resultados.

6.2 Adicionar caractere(s) antes ou depois de cada palavra com Localizar e Substituir

Se você deseja adicionar caracteres antes de cada palavra, exceto a primeira, ou adicionar caracteres após cada palavra, exceto a última, como mostrado na captura de tela abaixo, o recurso Localizar e Substituir do Excel pode resolver essa tarefa.

Adicionar antes de cada palavra, exceto a primeira

Adicionar após cada palavra, exceto a última

1. Selecione as células às quais deseja adicionar caracteres antes ou depois de cada palavra e pressione Ctrl + H para abrir a janela Localizar e Substituir.

2. Digite um espaço no campo Localizar o que, depois digite os novos caracteres com espaço no campo Substituir por e, por fim, clique no botão Substituir Tudo.

Aqui estão dois códigos VBA para adicionar caracteres antes ou depois de cada palavra. Execute o código seguindo os passos abaixo.

1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela que abrir, clique em Inserir > Módulo para inserir um novo módulo em branco.

3. Copie e cole o código VBA abaixo no módulo.

Adicionar antes de cada palavra

Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
   
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = xInStr & Trim(xStr)
                Else
                    xValue = xValue & " " & xInStr & Trim(xStr)
                    End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

Adicionar após cada palavra

Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
 
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
   
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
   
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = Trim(xStr) & xInStr
                Else
                    xValue = xValue & " " & Trim(xStr) & xInStr
                End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

4. Pressione F5 para executar o código (ou você pode clicar em Executar botão ), uma caixa de diálogo será exibida pedindo para selecionar células contínuas para trabalhar, clique em OK.

5. Na segunda caixa de diálogo exibida, digite os caracteres que deseja adicionar e clique em OK.

Em seguida, os caracteres serão adicionados no início ou no final de cada palavra.

Às vezes, você pode querer adicionar texto entre cada caractere. Nesta seção, listamos dois cenários: um é adicionar texto entre cada caractere, outro é adicionar espaço entre cada número.

7.1 Adicionar texto entre cada caractere/dígito com função definida pelo usuário

Para adicionar caracteres entre cada caractere de uma sequência, a função definida pelo usuário pode ajudar.

Neste caso, adicionamos um espaço entre cada caractere.

1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela que abrir, clique em Inserir > Módulo para inserir um novo módulo em branco.

3. Copie e cole o código VBA abaixo no módulo.

Adicionar texto entre caracteres

Function AddText(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddText = AddText & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

4. Salve o código e feche a janela para voltar à planilha. Em seguida, digite a fórmula abaixo em uma célula onde deseja exibir o resultado.

=AddText(B3)

B3 é a célula que contém a sequência à qual você deseja adicionar espaço entre os caracteres.

5. Pressione Enter para obter o resultado, arraste a alça de preenchimento automático sobre as células para obter outros resultados conforme necessário.

7.2 Adicionar espaço entre cada número com fórmula

Se você deseja adicionar espaço entre os dígitos de uma sequência numérica, pode usar a função TEXTO.

Supondo que haja uma lista de números de8 dígitos no intervalo B10:B12, selecione uma célula para exibir o resultado e digite a fórmula abaixo:

=TEXTO(B10,"# # # # # # # #")

Pressione Enter e arraste a alça de preenchimento automático sobre as outras células.

Se o comprimento dos números for5, a fórmula será alterada para =TEXTO(B10,"# # # # #").

Se você deseja adicionar caractere(s) entre cada palavra, por exemplo, adicionar espaço entre primeiro, meio e último nomes, conforme mostrado na captura de tela abaixo, pode usar uma função definida pelo usuário.

1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela que abrir, clique em Inserir > Módulo para inserir um novo módulo em branco.

3. Copie e cole o código VBA abaixo no módulo.

Adicionar caracteres entre palavras

Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddCharacters = xOut
End Function

4. Salve o código e feche a janela para voltar à planilha. Em seguida, digite a fórmula abaixo em uma célula onde deseja exibir o resultado.

=AddCharacters(B3)

B3 é a célula que contém a sequência à qual você deseja adicionar espaço entre as palavras.

5. Pressione Enter para obter o resultado, arraste a alça de preenchimento automático sobre as células para obter outros resultados conforme necessário.

Para adicionar caractere(s) específico(s) entre textos e números, conforme mostrado na captura de tela abaixo, apresentamos dois métodos.

9.1 Adicionar caractere entre textos e números com fórmula

Se os textos estiverem à frente dos números, a fórmula genérica é

ARRUMAR(SUBSTITUIR(sequência,MÍN(PROCURAR({1,2,3,4,5,6,7,8,9,0},sequência&"1234567890")),0,"-"))

Usando o caso acima como exemplo, utilize a fórmula assim:

=ARRUMAR(SUBSTITUIR(B4,MÍN(PROCURAR({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))

Pressione Enter para obter o primeiro resultado, depois arraste a alça de preenchimento automático sobre as outras células para preencher esta fórmula.

Se os números estiverem à frente dos textos, a fórmula genérica é

ESQUERDA(sequência,SOMA(NÚM.CARACT(sequência)-NÚM.CARACT(SUBSTITUIR(sequência,{0,1,2,3,4,5,6,7,8,9},""))))&"."&DIREITA(sequência,NÚM.CARACT(B13)- SOMA(NÚM.CARACT(sequência)-NÚM.CARACT(SUBSTITUIR(sequência, {0,1,2,3,4,5,6,7,8,9}, ""))))

Usando o caso acima como exemplo, utilize a fórmula assim:

=ESQUERDA(B13,SOMA(NÚM.CARACT(B13)-NÚM.CARACT(SUBSTITUIR(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&DIREITA(B13,NÚM.CARACT(B13)- SOMA(NÚM.CARACT(B13)-NÚM.CARACT(SUBSTITUIR(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))

Pressione Enter para obter o primeiro resultado, depois arraste a alça de preenchimento automático sobre as outras células para preencher esta fórmula.

9.2 Adicionar caractere entre textos e números com Preenchimento Relâmpago

Se você estiver usando o Excel2013 ou versões posteriores, o Preenchimento Relâmpago também pode ajudar a adicionar caractere(s) entre textos e números.

Ao lado dos dados originais, digite os novos dados que já tenham o caractere(s) adicionado entre textos e números. Em seguida, pressione Enter para ir para a próxima célula do primeiro resultado.

E pressione Ctrl + E para ativar o Preenchimento Relâmpago.

Extensão

Este tutorial também lista alguns cenários sobre adição de texto que podemos encontrar no dia a dia ou no trabalho.

Às vezes, é necessário adicionar separadores como traços a uma série de números de telefone ou números sociais, conforme mostrado na captura de tela abaixo. Digitar manualmente pode ser trabalhoso se houver centenas de números. Nesta seção, apresentamos três formas práticas para resolver rapidamente.

10.1 Adicionar traços aos números por fórmula

Aqui estão duas fórmulas que podem adicionar traços rapidamente aos números. Para adicionar traços após o terceiro e o sexto número na célula B3, utilize as fórmulas abaixo:

Função SUBSTITUIR

=SUBSTITUIR(SUBSTITUIR(B3,4,0,"-"),8,0,"-")

Função TEXTO

=TEXTO(B3,"???-???-??? ")

Pressione Enter para obter o primeiro resultado, depois arraste a alça de preenchimento automático sobre as outras células.

10.2 Adicionar traços aos números por Definir formato de célula

Para adicionar traços diretamente aos números nas células originais, você pode usar o recurso Definir formato de célula.

1. Selecione os números aos quais deseja adicionar traços e pressione Ctrl +1 para abrir a janela Definir formato de célula.

2. Na janela Definir formato de célula, na guia Número, escolha Personalizado na seção Categoria.

3. Em seguida, à direita Tipo seção, digite ###-###-### no campo, clique em OK.

Agora os números selecionados receberam traços.

10.3 Adicionar traços ao número de telefone por Adicionar Texto do Kutools para Excel

Se você tem o Kutools para Excel instalado, o recurso Adicionar Texto também pode ajudar.

1. Selecione as células que contêm os números aos quais deseja adicionar traços e clique em Kutools > Texto > Adicionar Texto.

2. Na Adicionar Texto janela, digite o traço ou outro delimitador no campo Texto e escolha Especificar opção, depois digite as posições onde deseja adicionar traços, separando-as por vírgulas no campo abaixo.

3. Clique em Ok ou Aplicar. Os números selecionados agora receberam traços.

Baixe gratuitamente o Adicionar Texto para avaliação de30 dias.

Supondo que haja uma lista de números com diferentes comprimentos e você queira adicionar zeros à esquerda para deixá-los com o mesmo comprimento e visualmente alinhados, conforme mostrado na captura de tela abaixo. Aqui estão dois métodos para resolver essa tarefa.

11.1 Adicionar zeros à esquerda nas células com Definir formato de célula

Você pode usar o recurso Definir formato de célula para definir um formato personalizado e ajustar o comprimento da célula adicionando zeros à esquerda.

1. Selecione as células às quais deseja adicionar zeros à esquerda e pressione Ctrl +1 para abrir a janela Definir formato de célula.

2. Na janela Definir formato de célula, na guia Número, escolha Personalizado na seção Categoria.

3. Em seguida, à direita Tipo seção, digite 0000 no campo (para ajustar o número para4 dígitos, digite0000; você pode alterar para outro comprimento, por exemplo, para5 dígitos, digite00000), clique em OK.

Agora os números receberam zeros à esquerda e estão com o mesmo comprimento.

11.2 Adicionar zeros à esquerda nas células com fórmula

Se você não quiser alterar os dados originais, pode usar fórmulas para adicionar zeros à esquerda aos números em outras células.

Aqui estão três funções que podem ajudar.

Fórmula1 Função TEXTO

TEXTO(número,"00…")

Fórmula2 Função DIREITA

DIREITA("00…"&número,comprimento)

Fórmula3 Função BASE

BASE(número,10,comprimento)

O número de zeros na fórmula é igual ao comprimento desejado.

Aqui, defina4 dígitos como comprimento dos números e utilize as fórmulas abaixo:

=TEXTO(B10,"0000")

=DIREITA("0000"&B10,4)

=BASE(B10,10,4)

Pressione Enter e arraste a alça de preenchimento automático para baixo.

Se você deseja adicionar zeros à direita aos números para obter um comprimento fixo, por exemplo, adicionar zeros à direita aos números nas células B3:B7 para deixá-los com5 dígitos, conforme mostrado na captura de tela abaixo, pode aplicar uma fórmula para isso.

Função REPETIR

número&REPETIR("0",comprimento-NÚM.CARACT(número))

Na fórmula, o argumento "número" representa o número ou a referência da célula à qual você deseja adicionar zeros à direita, e o argumento "comprimento" é o comprimento fixo desejado.

Utilize a fórmula assim:

=B3&REPETIR("0",5-NÚM.CARACT(B3))

Pressione Enter e arraste a alça de preenchimento automático para baixo nas células que precisam dessa fórmula.

Se você deseja exportar ou copiar dados de uma planilha para um bloco de notas, os textos podem ficar desalinhados, pois os valores das células têm comprimentos diferentes. Para deixá-los alinhados, conforme mostrado na captura de tela abaixo, é necessário adicionar espaço à direita.

Para resolver essa tarefa, a função REPETIR pode ajudar.

ESQUERDA(texto & REPETIR(" ",comprimento_máximo),comprimento_máximo)

Na fórmula, o argumento "texto" é o texto ou a referência da célula à qual você deseja adicionar espaço à direita, e o argumento "comprimento_máximo" é o comprimento fixo desejado, que deve ser maior ou igual ao comprimento máximo dos textos utilizados.

Para adicionar espaço à direita dos textos nas células B3:C6, utilize a fórmula abaixo:

=ESQUERDA(B3 & REPETIR(" ",10),10)

Pressione Enter e arraste a alça de preenchimento automático sobre todas as células que precisam dessa fórmula.

Neste caso, como o texto mais longo utilizado tem9 caracteres, usamos10 aqui.

Às vezes, é necessário adicionar aspas ou parênteses ao redor do texto ou dos números nas células, conforme mostrado na captura de tela abaixo. Além de digitar manualmente um a um, há dois métodos no Excel para resolver rapidamente.

14.1 Adicionar aspas/parênteses ao redor por Definir formato de célula

Se você deseja adicionar aspas ao redor do texto nos dados originais, o recurso Definir formato de célula do Excel pode ajudar.

1. Selecione as células às quais deseja adicionar aspas e pressione Ctrl +1 para abrir a janela Definir formato de célula.

2. Na Definir formato de célula janela, na guia Número selecione Personalizado na lista de Categoria, depois vá para a seção à direita para digitar "''"@"''" no campo Tipo Clique em OK.

O texto nas células selecionadas agora está entre aspas.

Se você deseja adicionar parênteses ao redor do texto, no campo Tipo da janela Definir formato de célula, use (@).

14.2 Adicionar aspas/parênteses ao redor por fórmulas

Também é possível usar fórmulas para adicionar aspas ao texto em outras células.

Usando o conector &

""""&texto&""""

Ou

caract(34)&texto&caract(34)

Neste caso, para o texto na célula B11, utilize as fórmulas assim:

=""""&B11&""""

Ou

=caract(34)&B11&caract(34)

Pressione Enter e arraste a alça de preenchimento automático para baixo para preencher as células.

Se você deseja adicionar parênteses ao redor do texto, utilize a fórmula "("&texto&")".

14.3 Adicionar aspas/parênteses ao redor por VBA

Se você precisa de código VBA para resolver essa tarefa, aqui está um exemplo.

1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications .

2. Na janela que abrir, clique em Inserir > Módulo para inserir um novo módulo em branco.

3. Copie e cole o código VBA abaixo no novo módulo.

VBA: Adicionar aspas ao redor dos textos

Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = """" & Rng.Value & """"
Next
End Sub

4. Pressione F5 ou clique em Executar botão na janela para ativar o código VBA. Uma caixa de diálogo será exibida para selecionar as células às quais adicionar aspas.

5. Clique em OK. Agora as aspas foram adicionadas ao redor dos textos nas células selecionadas.

Às vezes, para ajudar outros usuários a entender melhor os dados, pode ser necessário adicionar texto aos resultados das fórmulas, conforme mostrado na captura de tela abaixo. Para incluir texto na fórmula, utilize aspas ao redor do texto e o conector & para combinar o texto com a fórmula.

Caso1: adicionar texto antes da fórmula

"Hoje é "&TEXTO(HOJE(),"dddd, mmmm dd.")

Caso2: adicionar texto após a fórmula

TEXTO(AGORA(),"HH:MM:SS")&" é a hora atual."

Caso3: adicionar textos nos dois lados da fórmula

"Hoje vendeu "&dados&" kg."

---

As Melhores Ferramentas de Produtividade para o Office

Kutools para Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

• Barra de Fórmulas Super (edite facilmente várias linhas de texto e fórmulas); Layout de Leitura (leia e edite facilmente um grande número de células); Cole em Intervalo Filtrado...
• Mesclar Células/Linhas/Colunas mantendo os dados; Dividir conteúdo de células; Combinar Linhas Duplicadas e Somar/Média... Prevenir Células Duplicadas; Comparar Intervalos...
• Selecionar Linhas Duplicadas ou Únicas; Selecionar Linhas em Branco (todas as células estão vazias); Super Localizar e Localização Difusa em Muitas Pastas de Trabalho; Seleção Aleatória...
• Cópia Exata de Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias planilhas; Inserir Marcadores, Caixas de Seleção e mais...
• Favoritar e Inserir rapidamente Fórmulas, Intervalos, Gráficos e Imagens; Criptografar Células com senha; Criar Lista de Correspondência e enviar emails...
• Extrair Texto, Adicionar Texto, Remover por Posição, Remover Espaço; Criar e Imprimir Estatísticas da Página de Dados; Converter entre o Conteúdo das Células e Comentários...
• Super Filtro (salvar e aplicar esquemas de filtro em outras planilhas); Classificação Avançada por mês/semana/dia, frequência e mais; Filtro Especial por negrito, itálico...
• Consolidar Pastas de Trabalho e Planilhas; Mesclar Tabelas com base em colunas-chave; Dividir Dados em Múltiplas Planilhas; Conversão em Lote de xls, xlsx e PDF...
• Agrupamento de Tabela Dinâmica por número da semana, dia da semana e mais... Mostrar Células Desbloqueadas, Bloqueadas por cores diferentes; Destacar Células Que Contêm Fórmula/Nome...

Leia Mais... Teste Gratuito de 30 Dias com Todos os Recursos... Comprar... 

---

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

• Habilite a edição e leitura com guias no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novas abas da mesma janela, em vez de em novas janelas.
• Aumenta sua produtividade em 50% e reduz centenas de cliques de mouse para você todos os dias!

Leia Mais... Teste Gratuito de 30 Dias com Todos os Recursos... Comprar...