O Excel adiciona Dividir por Texto e Número na posição especificada da célula

No Excel, adicionar texto ou números a células é uma tarefa muito comum — como inserir espaços entre nomes, prefixos ou sufixos em células, ou traços em números de segurança social. Este tutorial abrange quase todos os cenários de adição no Excel e apresenta os métodos correspondentes.

Nota

Neste tutorial, criei alguns exemplos para ilustrar os métodos. Pode ajustar as referências conforme necessário ao utilizar o código VBA ou as fórmulas abaixo, ou até transferir os exemplos para experimentar os métodos diretamente.

Clique para transferir o ficheiro de exemplo

Esta secção apresenta diferentes métodos para adicionar caracteres ao início de cada célula, conforme ilustrado na seguinte imagem:

1,1 Adicionar no início das células utilizando uma fórmula

Pode escolher uma das três fórmulas seguintes:

Fórmula 1: operador Concatenar «&»

Una vários textos com o caractere ampersand «&».

«texto»&célula

Fórmula 2: função CONCATENAR

A função CONCATENAR serve para unir textos de forma simples e eficaz.

CONCATENAR(«texto»;célula)

Fórmula 3: função CONCAT

Trata-se de uma nova função disponível exclusivamente no Excel 2019, Office 365 e Excel Online.

CONCAT(«texto»;célula)

Nas fórmulas genéricas: «célula» é a referência da célula que contém o texto ao qual pretende adicionar um prefixo, e «texto» é o conteúdo que deseja adicionar à célula.

Utilizando o exemplo acima, pode aplicar as fórmulas em Barra de Fórmulas da seguinte forma:

«&»

=$E$3&B3ou =«Iphone»&B3

Função CONCATENAR

=CONCATENAR($E$3;B3)ou =CONCATENATE(«Iphone»,B3)

Função CONCAT

=CONCAT($E$3;B3)ou =CONCAT(«Iphone»,B3)

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

1,2 Adicionar no início das células com o Preenchimento Rápido

Se estiver a utilizar o Excel 2013 ou versões posteriores, a poderosa funcionalidade nova, Preenchimento Rápido, preenche automaticamente as células com base nas que já introduziu.

Selecione uma célula junto ao primeiro dado original e introduza manualmente o primeiro dado com o texto de prefixo, conforme ilustrado abaixo:

De seguida, na célula abaixo, continue a introduzir o segundo dado com o respetivo prefixo. À medida que escreve, surge uma lista em cinzento — prima a tecla Enter para permitir que o Preenchimento Rápido preencha os dados automaticamente.

Se a lista de pré-visualização não for gerada, aceda ao separador Base e clique em Preencher > Preenchimento Rápido para executá-lo manualmente.

1,3 Adicionar no início das células utilizando código VBA

Se já domina VBA, aqui está um código prático para adicionar texto no início de cada célula de um intervalo.

1. Selecione um intervalo de células ao qual pretende adicionar o texto de prefixo e, em seguida, prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Em seguida, na janela que surge, 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. Prima a tecla F5 ou clique no botão Executar na janela para ativar o código VBA.

Agora todas as células selecionadas têm o texto «Iphone» adicionado no início.

Além de adicionar texto no início das células, é também comum adicioná-lo no final. Neste exemplo, ilustramos a inserção de uma unidade no final de cada célula, conforme mostrado na imagem seguinte:

2,1 Adicionar no final das células utilizando fórmula

Pode escolher uma das três fórmulas seguintes:

Fórmula 1: operador Concatenar «&»

Una vários textos utilizando o caractere ampersand «&».

Célula&«texto»

Fórmula 2: função CONCATENAR

A função CONCATENAR é utilizada para unir textos.

CONCATENAR(célula,«texto»)

Fórmula 3: função CONCAT

Esta é uma nova funcionalidade disponível exclusivamente no Excel 2019, Office 365 e Excel Online.

CONCAT(célula,«texto»)

Nas fórmulas genéricas: **célula** é a referência da célula que contém o texto ao qual pretende adicionar um sufixo, e **texto** é o sufixo a ser adicionado à célula.

Utilizando o exemplo acima, pode usar as seguintes fórmulas em Barra de Fórmulas:

«&»

=B3&$E$3ou =B3&«Kg»

Função CONCATENAR

=CONCATENAR(B3; $E$3)ou =CONCATENATE(B3, «Kg»)

Função CONCAT

=CONCAT(B3; $E$3)ou =CONCAT(B3, «Kg»)

Prima a tecla Enter para obter o resultado e, em seguida, arraste a alça de preenchimento automático até **Adicionar Texto** ao final de cada célula do intervalo B3:B6.

2,2 Adicionar no final das células com o Preenchimento Rápido

Se estiver a utilizar o Excel 2013 ou versões posteriores, a poderosa funcionalidade nova Preenchimento Rápido preenche automaticamente as células com base nas que introduziu acima.

Escolha uma célula junto aos primeiros dados originais e digite manualmente o primeiro dado com o texto de sufixo, conforme mostrado abaixo:

Em seguida, com a célula ativada sob o primeiro resultado, clique em Dados > Preenchimento Rápido. Todas as células abaixo, incluindo a célula ativa, serão preenchidas automaticamente.

2,3 Adicionar no final das células com código VBA

Segue-se um código VBA que permite adicionar texto no final de cada célula de um intervalo.

1. Selecione o intervalo de células ao qual pretende adicionar o sufixo e, em seguida, prima as teclas Alt+F11 para abrir a janela Microsoft Visual Basic para Aplicações.

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

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

VBA: Adicionar no 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. Prima F5 ou clique no botão Executar na janela para ativar o código VBA.

O texto «Kg» foi agora adicionado no final de cada célula.

Para a maioria dos utilizadores, adicionar texto no início ou no final das células é fácil, mas inseri-lo no meio pode ser um pouco mais desafiador. Por exemplo, como ilustrado na imagem seguinte, imagine ter de adicionar um delimitador — como os dois pontos (:) — após o segundo caractere de cada célula no intervalo B3:B7.

3,1 Adicionar após o enésimo caractere da cadeia com fórmula

Estão disponíveis quatro fórmulas para executar esta tarefa; escolha uma para utilizar:

Fórmula 1: Combinar as funções ESQUERDA e DIREITA

ESQUERDA(célula; n) & «texto» & DIREITA(célula; NÚM.CARACT(célula) -n)

Fórmula 2: Combinar as funções CONCATENAR (ou CONCAT), DIREITA e NÚM.CARACT

CONCATENAR(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órmula 3: Função SUBSTITUIR

SUBSTITUIR(célula; n+1; 0; «texto»)

Nas fórmulas genéricas: **célula** é a referência da célula que contém o texto ao qual pretende adicionar texto no meio, **texto** é o conteúdo a inserir e **n** é o número que indica após qual caractere da cadeia original o novo texto será adicionado.

Para resolver a tarefa mencionada acima, utilize as seguintes fórmulas:

Combinar as 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 as funções CONCATENAR (ou CONCAT), DIREITA e NÚM.CARACT

=CONCATENATE(LEFT(B3, 2), ":", RIGHT(B3, LEN(B3) -2))ou =CONCAT (LEFT(B3, 2), ":", RIGHT(B3, LEN(B3) -2))

Função SUBSTITUIR

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

Prima a tecla Enter para obter o resultado e, em seguida, arraste a alça de preenchimento automático até 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 cadeia com o Preenchimento Rápido

Se estiver a utilizar o Excel 2013 ou versões posteriores, o Preenchimento Rápido preenche automaticamente as células com base nos dados introduzidos nas células acima.

Escolha uma célula junto aos primeiros dados originais e digite manualmente o primeiro dado com dois pontos após o segundo caractere, conforme mostrado abaixo:

Em seguida, ative a célula sob o primeiro resultado e prima as teclas Ctrl+E para ativar o comando Preenchimento Rápido. Todas as células abaixo, incluindo a célula ativa, serão preenchidas automaticamente.

3,3 Adicionar após o enésimo caractere da cadeia com código VBA

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

1. Prima as teclas Alt+F11 para abrir a janela Microsoft Visual Basic para Aplicações.

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

3. Copie e cole o seguinte código VBA 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. Prima a tecla F5 ou clique no botão Executar na janela para ativar o código VBA. Surge uma caixa de diálogo para selecionar as células a que pretende adicionar texto.

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

Se já está cansado de fórmulas e VBA, experimente uma ferramenta poderosa e prática: Kutools para Excel, que o ajuda com a sua funcionalidade Adicionar Texto.

Esta funcionalidade Adicionar Texto permite:

• 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 números

Selecione as células às quais pretende adicionar texto e, em seguida, aplique a função clicando em Kutools > Texto > Adicionar Texto.

4,1 Adicionar Texto Antes do primeiro caractere ou Após o último caractere

Na caixa de diálogo Adicionar Texto, digite o texto que pretende adicionar às células na caixa Texto e, em seguida, marque a opção Antes do primeiro caractere na secção Posição.

Clique em Aplicar ou OK para concluir a operação.

Para adicionar texto após o último caractere, introduza o texto que pretende adicionar às células na caixa Texto e, de seguida, marque a opção Após o último caractere na secção Posição.

Clique em Aplicar ou OK para concluir a operação.

4,2 Adicionar Texto na(s) posição(ões) especificada(s)

Por vezes, poderá querer Adicionar Texto no meio da célula ou Adicionar Texto em várias posições da célula. Imagine que pretende adicionar o separador «-» após o terceiro e o sétimo dígitos dos números de segurança social, tal como ilustrado na imagem seguinte:

Na caixa de diálogo Adicionar Texto, introduza o texto na caixa Texto, ative a opção Especificar e, em seguida, digite as posições separadas por vírgulas na caixa de texto. Clique em OK ou em Aplicar.

Extensão 4,3 do utilitário Adicionar Texto

Além de Adicionar Texto nas posições normais (início, fim e posição especificada), o utilitário Adicionar Textotambém permite Adicionar Texto

• Antes de letras maiúsculas
• Antes de letras minúsculas
• Antes de letras maiúsculas e minúsculas
• Antes de números

Na caixa de diálogo Adicionar Texto, introduza o texto na caixa Texto, ative a opção Adicionar apenas a e, em seguida, clique no menu pendente abaixo para escolher a operação pretendida.

Para além da funcionalidade Adicionar Texto, o Kutools para Excel inclui outras 300+ funcionalidades úteis que podem ajudá-lo em diversas tarefas no Excel. Faça já a transferência gratuita.

Esta secção apresenta fórmulas para Adicionar Texto antes ou depois da primeira ocorrência de um texto específico no Excel.

5,1 Adicionar Texto antes do primeiro texto específico

Por exemplo, pretende Adicionar Texto «(venda)» antes da primeira ocorrência da palavra «preço» na célula, tal como mostrado nas imagens seguintes:

No Excel, as funções SUBSTITUIR e TROCAR resolvem esta tarefa com facilidade.

Função SUBSTITUIR

TROCAR(célula;PROCURAR(«texto_procurado»;célula);0;«texto_a_adicionar»)

Função SUBSTITUIR

SUBSTITUIR(célula;«texto_procurado»;«texto_substituto»;1)

Neste caso, utilize as fórmulas acima indicadas da seguinte forma:

=REPLACE(B4,FIND(«price»,B4),0,«(sale)»)

Ou

=SUBSTITUTE(B4,«price»,«(sale)price»,1)

Os argumentos das fórmulas neste caso são

Célula: B4,

Texto_procurado: preço,

Texto_a_adicionar: (venda),

Texto substituto: (venda) preço.

Prima a tecla Enter para obter o primeiro resultado e, em seguida, arraste a alça de autorreenchimento pelas células onde deseja aplicar a fórmula.

5,2 Adicionar Texto após o primeiro texto específico

Por exemplo, pretende adicionar o símbolo monetário «$» após os dois pontos «:» na célula, tal como ilustrado nas imagens seguintes:

No Excel, as funções SUBSTITUIR e TROCAR resolvem esta tarefa.

Função SUBSTITUIR

TROCAR(célula;PROCURAR(«texto_procurado»;célula);comprimento_texto_procurado;«texto_substituto»)

Função SUBSTITUIR

SUBSTITUIR(célula;«texto_procurado»;«texto_substituto»)

Neste caso, utilize as fórmulas acima indicadas da seguinte forma:

=REPLACE(B12,FIND(":",B12),1,«:$»)

Ou

=SUBSTITUTE(B12,":",«:$»)

Os argumentos das fórmulas neste caso são

Célula: B12,

Texto_procurado: :,

Texto substituto::$.

Comprimento_texto_procurado:1

Prima a tecla Enter para obter o primeiro resultado e, em seguida, arraste a alça de autorreenchimento pelas células onde deseja aplicar a fórmula.

Nesta parte do tutorial, são apresentados três métodos distintos (fórmula, Localizar e Substituir e VBA) para ajudá-lo a adicionar caracteres antes ou depois de cada palavra numa célula.

Adicionar caracteres antes de cada palavra

Adicionar caracteres após cada palavra

6,1 Adicionar carácter(es) antes ou depois de cada palavra utilizando fórmula

A função SUBSTITUIR pode ser utilizada para resolver esta tarefa, com as seguintes fórmulas gerais:

Adicionar antes de cada palavra

«caractere»&SUBSTITUIR(texto; « »;« caractere»)

Adicionar depois de cada palavra

SUBSTITUIR(texto;« »;«caractere »)&«caractere»

Imagine que pretende adicionar um «+» antes de cada palavra na lista B3:B6. Utilize a seguinte fórmula:

=«+»&SUBSTITUTE(B3, " "," +")

Prima a tecla Enter para obter o primeiro resultado e, em seguida, arraste a alça de autorreenchimento para baixo para obter todos os resultados.

Imagine que pretende adicionar ($) após cada palavra da lista B11:B14. Utilize a seguinte fórmula:

=SUBSTITUTE(B11,« »,«($) »)&«($)»

Prima a tecla Enter para obter o primeiro resultado e, em seguida, arraste a alça de autorreenchimento para baixo para obter todos os resultados.

6,2 Adicionar caractere(s) antes ou depois de cada palavra com Localizar e Substituir

Se pretender adicionar caracteres antes de cada palavra, exceto a primeira, ou após cada palavra, exceto a última — tal como ilustrado na imagem seguinte —, o utilitário incorporado do Excel Localizar e Substituir resolve esta tarefa.

Adicionar antes de cada palavra, exceto a primeira

Adicionar após cada palavra, exceto a Última

1. Selecione as células onde pretende adicionar caracteres antes ou depois de cada palavra e, em seguida, prima as teclas Ctrl+H para abrir a caixa de diálogo Localizar e Substituir.

2. Introduza um espaço na caixa Localizar, digite os novos caracteres precedidos de um espaço na caixa Substituir por e, finalmente, clique no botão Substituir tudo.

Estão disponíveis aqui dois códigos VBA para adicionar caracteres antes ou depois de cada palavra. Execute o código seguindo os passos indicados abaixo.

1. Prima as teclas Alt+F11 para abrir a janela Microsoft Visual Basic para Aplicações.

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

3. Copie e cole o código VBA seguinte 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 depois de 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. Prima a tecla F5para executar o código (ou clique no botão)Executar). Surge uma caixa de diálogo a solicitar que selecione células contínuas para processar. Clique em OK.

5. Na segunda caixa de diálogo que surge, introduza os caracteres que pretende adicionar e clique em OK.

Os caracteres serão então adicionados no início ou no fim de cada palavra.

Por vezes, poderá querer Adicionar Texto entre todos os caracteres. Nesta secção, são descritos dois cenários: um consiste em Adicionar Texto entre todos os caracteres e o outro em adicionar espaços entre cada algarismo.

7,1 Adicionar Texto entre todos os caracteres/algarismos com uma função definida pelo utilizador

Para inserir caracteres entre todos os caracteres de uma cadeia, pode utilizar uma função definida pelo utilizador.

Neste caso, adicionamos um espaço entre todos os caracteres.

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

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

3. Copie e cole o seguinte código VBA 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. Guarde o código e feche esta janela para regressar à folha de cálculo. Em seguida, introduza a seguinte fórmula na célula onde pretende obter o resultado:

=AddText(B3)

B3 é a célula que contém a cadeia à qual pretende adicionar espaços entre os caracteres.

5. Prima a tecla Enter para obter o resultado e arraste a alça de autorreenchimento pelas células onde deseja aplicar a fórmula.

7,2 Adicionar espaços entre todos os algarismos com uma fórmula

Se pretender adicionar espaços entre os algarismos de uma cadeia numérica, utilize a função TEXTO.

Imagine que tem uma lista de números com 8 algarismos no intervalo B10:B12. Selecione uma célula para colocar o resultado e introduza a seguinte fórmula:

=TEXT(B10,«# # # # # # # #»)

Prima a tecla Enter e, em seguida, arraste a alça de autorreenchimento pelas células restantes.

Se o comprimento dos números for 5, a fórmula será alterada para =TEXT(B10,«# # # # #»).

Se pretender adicionar carater(es) entre cada palavra, por exemplo, adicionar um espaço entre o primeiro nome, nome do meio e Sobrenome, conforme ilustrado na imagem abaixo, pode utilizar uma função definida pelo utilizador.

1. Prima Alt+F11para abrir a janela Microsoft Visual Basic for Applications.

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

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

Adicionar carateres 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. Guarde o código e prima Fechar esta janela para regressar à folha de cálculo e, em seguida, introduza a fórmula abaixo numa célula onde pretenda colocar o resultado da adição.

=AddCharacters(B3)

B3 é a célula que contém a cadeia à qual pretende adicionar espaços entre as palavras.

5. Prima a tecla Enter para obter o resultado e arraste a alça de preenchimento automático pelas células seguintes para obter outros resultados, conforme necessário.

Para adicionar carater(es) específicos entre Dividir por Texto e Número, conforme mostrado na imagem abaixo, são apresentados aqui dois métodos.

9,1 Adicionar carater entre Dividir por Texto e Número com fórmula

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

TRIM(REPLACE(string,MIN(FIND({1,2,3,4,5,6,7,8,9,0},string&"1234567890")),0,"-"))

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

=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))

Prima a tecla Enter para obter o primeiro resultado e, em seguida, arraste a alça de preenchimento automático para as restantes células para aplicar esta fórmula.

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

LEFT(string,SUM(LEN(string)-LEN(SUBSTITUTE(string,{0,1,2,3,4,5,6,7,8,9},«»))))&"."&RIGHT(string,LEN(B13)- SUM(LEN(string)-LEN(SUBSTITUTE(string, {0,1,2,3,4,5,6,7,8,9}, «»))))

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

=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},«»))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, «»))))

Prima a tecla Enter para obter o primeiro resultado e, em seguida, arraste a alça de preenchimento automático para as outras células, aplicando assim a fórmula.

9,2 Adicionar carater entre Dividir por Texto e Número com Preenchimento Rápido

Se estiver a utilizar o Excel 2013 ou versões posteriores, a funcionalidade Preenchimento Rápido também o pode ajudar a adicionar carater(es) entre Dividir por Texto e Número.

Ao lado dos dados originais, introduza os novos dados com os carateres já adicionados entre Dividir por Texto e Número. Em seguida, prima a tecla Enter para ir para a célula seguinte ao primeiro resultado.

E prima as teclas Ctrl+E para ativar o Preenchimento Rápido.

Extensão

Este tutorial também apresenta alguns cenários sobre Adicionar Texto que podemos encontrar no nosso dia a dia ou no trabalho.

Por vezes, é necessário adicionar separadores, como hífens, a uma série de Número de Telefone ou números de segurança social, conforme mostrado na imagem abaixo. Introduzir manualmente torna-se cansativo se forem necessários centenas de números. Nesta secção, são apresentadas três formas práticas de realizar esta tarefa rapidamente.

10,1 Adicionar hífens a números com fórmula

Aqui estão duas fórmulas que permitem adicionar rapidamente hífens a números. Para inserir hífens após o terceiro e o sexto dígitos na célula B3, utilize as seguintes fórmulas:

Função SUBSTITUIR

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

Função TEXTO

=TEXT(B3,«???-???-??? »)

Prima a tecla Enter para obter o primeiro resultado e, em seguida, arraste a alça de preenchimento automático para as outras células.

10,2 Adicionar hífens a números com Definir formato de célula

Para adicionar diretamente hífenes aos números nas células originais, pode utilizar a funcionalidade Definir formato de célula.

1. Selecione os números aos quais pretende adicionar hífens e, em seguida, prima as teclas Ctrl+1 para abrir a caixa de diálogo Definir formato de célula.

2. Na caixa de diálogo Definir formato de célula, no separador Número, selecione Personalizado na secção Categoria.

3. Em seguida, na secção Tipo, introduza ###-###-### na caixa de texto e clique em OK.

Os números selecionados já têm agora hífens adicionados.

10,3 Adicionar hífens a Número de Telefone com Adicionar Texto do Kutools para Excel

Se tiver o Kutools para Excel instalado no Excel, a funcionalidade Adicionar Texto também lhe poderá ser útil.

1. Selecione as células que contêm os números aos quais pretende adicionar hífens e clique em Kutools>Texto>Adicionar Texto.

2. Na caixa de diálogo Adicionar Texto, introduza o hífen ou outro separador na caixa de texto Texto, selecione a opção Especificar e, em seguida, introduza as posições após as quais pretende adicionar hífens — separadas por vírgulas — na caixa de texto abaixo.

3. Clique em Ok ou em Aplicar. Os números selecionados terão então hífenes adicionados.

Transferência gratuita do Adicionar Texto para uma avaliação de 30 dias.

Imagine que tem uma lista de números com comprimentos diferentes e pretende adicionar zeros à esquerda para que todos tenham o mesmo comprimento e fiquem alinhados, conforme mostrado na imagem abaixo. Aqui estão dois métodos para realizar esta tarefa.

11,1 Adicionar zeros à esquerda às células com a funcionalidade Definir formato de célula

Pode utilizar a funcionalidade Definir formato de célula para definir um formato personalizado que fixe o comprimento das células, adicionando zeros à esquerda.

1. Selecione as células às quais pretende adicionar zeros à esquerda e, em seguida, prima as teclas Ctrl+1 para abrir a caixa de diálogo Definir formato de célula.

2. Na caixa de diálogo Definir formato de célula, no separador Número, selecione Personalizadona secção Categoria.

3. Em seguida, na secção Tipo, introduza 0000 na caixa de texto (para fixar o comprimento do número em 4 dígitos, introduza 0000; pode alterá-lo para outro comprimento, por exemplo, 5 dígitos, introduzindo 00000) e clique em OK.

Os números já têm agora zeros à esquerda e estão todos com o mesmo comprimento.

11,2 Adicionar zeros à esquerda a Fórmula

Se não pretender alterar os dados originais, pode utilizar uma fórmula para adicionar zeros à esquerda aos números noutras localizações.

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

Fórmula 1: Função TEXTO

TEXTO(número,«00…»)

Fórmula 2: Função DIREITA

DIREITA(«00…»&número;comprimento)

Fórmula 3: Função BASE

BASE(número;10;comprimento)

O número de zeros na fórmula corresponde ao comprimento do número.

Neste caso, definiu um comprimento de 4 dígitos para os números; utilize as seguintes fórmulas:

=TEXT(B10,"0000")

=RIGHT("0000"&B10,4)

=BASE(B10;10;4)

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

Se pretender 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 os transformar em números com 5 dígitos, conforme ilustrado na imagem abaixo, pode aplicar uma fórmula para realizar esta tarefa.

Função REPETIR

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

Na fórmula, o argumento «número» representa o número ou a referência de célula à qual pretende adicionar zeros à direita, e o argumento «comprimento» indica o comprimento fixo pretendido.

Utilize a fórmula da seguinte forma:

=B3&REPT("0",5-LEN(B3))

Prima a tecla Enter e arraste a alça de preenchimento automático para as células que precisam desta fórmula.

Se pretender exportar ou copiar dados de uma folha de cálculo para um bloco de notas, o texto poderá ficar desalinhado, já que os valores das células têm comprimentos diferentes. Para alinhar os dados como mostrado na imagem abaixo, terá de adicionar espaços à direita.

Para resolver este problema, a função REPETIR pode ajudá-lo.

ESQUERDA(texto & REPETIR(« »,comprimento_máximo),comprimento_máximo)

Na fórmula, o argumento «texto» é o texto ou a referência de célula ao qual pretende adicionar espaços à direita, e o argumento «comprimento_máximo» é o comprimento fixo pretendido para os textos, que deve ser igual ou superior ao comprimento máximo dos textos utilizados.

Para adicionar espaços à direita aos textos nas células B3:C6, utilize a seguinte fórmula:

=LEFT(B3 & REPT(« »,10),10)

Prima a tecla Enter e, em seguida, arraste a alça de preenchimento automático para todas as células que precisam desta fórmula.

Neste caso, como o texto mais longo utilizado tem 9 caracteres, utilizamos 10 aqui.

Por vezes, é necessário adicionar aspas ou parênteses em redor do texto ou números nas células, conforme ilustrado na imagem abaixo. Além de os digitar manualmente um a um, existem dois métodos no Excel que resolvem rapidamente esta tarefa.

14,1 Adicionar aspas/parênteses com Definir formato de célula

Se pretender adicionar aspas em redor do texto nos dados originais, a funcionalidade Definir formato de célula do Excel pode ajudá-lo.

1. Selecione as células às quais pretende adicionar aspas e prima as teclas Ctrl+1 para abrir a caixa de diálogo Definir formato de célula.

2. Na caixa de diálogo Definir formato de célula, no separador Número, selecione Personalizado na lista de Categoria e, na secção à direita, introduza «''»@«''» na caixa de texto Tipo. Clique em OK.

O texto nas células selecionadas foi envolvido por aspas.

Se pretender adicionar parênteses em torno do texto, utilize (@) na caixa de texto Tipo da caixa de diálogo Definir formato de célula.

14,2 Adicionar aspas/parênteses com fórmulas

As fórmulas também permitem adicionar aspas ao texto contido noutras células.

Utilizando o operador &

«»«»&texto&«»«»

Ou

caract(34)&texto&caract(34)

Neste caso, o texto encontra-se na célula B11. Utilize as seguintes fórmulas:

=«»""&B11&""""

Ou

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

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

Se pretender adicionar parênteses em redor do texto, utilize a fórmula «(»&texto&«)».

14,3 Adicionar aspas/parênteses com VBA

Se precisar de código VBA para resolver esta tarefa, aqui está um exemplo.

1. Prima as teclas Alt+F11 para abrir a janela Microsoft Visual Basic for Applications.

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

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

VBA: Adicionar aspas em 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. Prima a tecla F5 ou clique no botão Executar na janela para ativar o código VBA. Surge uma caixa de diálogo para selecionar as células às quais pretende adicionar aspas.

5. Clique em OK. As aspas foram agora adicionadas à volta do texto nas células selecionadas.

Por vezes, para ajudar outros utilizadores a compreender melhor os dados, poderá precisar de Adicionar Texto nos resultados da fórmula, conforme ilustrado na imagem abaixo. Para incluir texto numa fórmula, utilize aspas em redor do texto e adicione o operador & para combinar o texto com a fórmula.

Caso 1 Adicionar Texto antes da fórmula

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

Caso 2 Adicionar Texto apósa fórmula

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

Caso 3 Adicionar Texto em ambos os lados da fórmula

«Hoje vendeu-se »&dados&« kg.»

---

As Melhores Ferramentas de Produtividade para o Office

Kutools para Excel Resolve a Maior Parte dos Seus Problemas e Aumenta a Sua Produtividade em 80 %

• Super Barra de Fórmulas (edite facilmente várias linhas de texto e fórmulas); Disposição de Leitura (leia e edite com facilidade um grande número de células); Colar em Intervalo de Filtro...
• Mesclar Células, Linhas ou Colunas e Manter os Dados; Dividir o Conteúdo das Células; Combinar Linhas Duplicadas e Calcular Soma/Média... Evitar Entradas Duplicadas nas Células; Comparar Intervalos...
• Selecionar linhas duplicadas ou únicas;Selecionar linhas em branco (todas as células vazias);Super Localizar e Pesquisa Aproximada em vários livros; seleção aleatória...
• Cópia Exata de múltiplas células sem alterar a referência da fórmula;Criar Referências Automaticamente para várias folhas;Inserir Marcadores, caixas de seleção e muito mais...
• Fórmulas Favoritas e Inserção Rápida, intervalos, gráficos e imagens; Criptografar Células com palavra-passe; Criar Lista de Correspondência e envie e-mails...
• Extrair Texto, adicionar texto, remover caracteres de uma posição, remover espaços; criar e imprimir estatísticas da página de dados; converter entre conteúdo das células e comentários...
• Super Filtro (guarde e aplique esquemas de filtro noutras folhas); Classificação Avançada por mês, semana, dia, frequência e muito mais; Filtro Especial por negrito, itálico…
• Combinar Livros e Folhas de Cálculo; mesclar tabelas com base numa coluna-chave; dividir dados em várias folhas; conversão automática de xls, xlsx e PDF...
• Agrupamento por Tabela Dinâmica número da semana, dia da semana e muito mais...Mostrar desbloqueadas, bloquear seleção com cores diferentes;Destacar células que contêm fórmula/nome...

Saber Mais...Versão Completa com Teste Gratuito de 30 Dias...Comprar... 

---

Office Tab – traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil

• Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
• Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!

Saber Mais...Versão Completa com Teste Gratuito de 30 Dias...Comprar...