Note: The other languages of the website are Google-translated. Back to English

Excel adiciona texto e número na posição especificada da célula

No Excel, adicionar textos ou números às células é um trabalho muito comum. Como adicionar espaço entre nomes, adicionar prefixo ou sufixo às células, adicionar traços aos números sociais. Aqui neste tutorial, ele lista quase todos os cenários de adição no Excel e fornece os métodos correspondentes para você.

As navegações deste tutorial

1. Adicionar ao início de cada célula

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

1.2 Adicionar no início das células por Flash Fill

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

2. Adicione ao final de cada célula

2.1 Adicionar no final das células usando a fórmula

2.2 Adicionar no final das células por Flash Fill

2.3 Adicionar no final das células usando o código VBA

3. Adicione ao meio da string

3.1 Adicionar após o enésimo caractere da string por fórmula

3.2 Adicionar após o enésimo caractere da string por Flash Fill

3.3 Adicione após o enésimo caractere da string usando o código VBA

4. Adicione texto com Kutools for Excel (adicione caracteres a uma posição específica conforme necessário)

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

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

4.3 Extensão do utilitário Adicionar Texto

5. Adicione texto antes ou depois do primeiro texto específico

5.1 Adicionar texto antes do primeiro texto específico

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

6. Adicione caracteres antes ou depois de cada palavra

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

6.2 Adicionar caractere(s) antes ou depois de cada palavra por Localizar e substituir

6.3 Adicionar caractere(s) antes ou depois de cada palavra por código VBA

7. Adicione texto entre os caracteres

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

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

8. Adicione caracteres entre cada palavra

9. Adicione caracteres entre textos e números

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

9.2 Adicione caracteres entre textos e números com Flash Fill

10. Adicione traços a números de telefone/números sociais

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

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

10.3 Adicione traços ao número de telefone por Adicionar texto do Kutools for Excel

11. Adicione zeros à esquerda às células para fixar o comprimento

11.1 Adicionar zeros à esquerda às células com o recurso Formatar células

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

12. Adicione zeros à direita aos números para fixar o comprimento

13. Adicione espaço à direita ao texto

14. Adicione aspas/colchetes ao redor de texto ou números

14.1 Adicione aspas/colchetes ao redor por Format Cells

14.2 Adicionar aspas/colchetes ao redor de fórmulas

14.3 Adicionar aspas/colchetes pelo VBA

15. Adicione texto ao resultado da fórmula diretamente

Nota

Neste tutorial, crio alguns exemplos para explicar os métodos, você pode alterar as referências necessárias ao usar o código ou as fórmulas do VBA abaixo ou baixar os exemplos para experimentar os métodos diretamente.

amostra de docClique para baixar o arquivo de amostra


1. Adicionar ao início de cada célula

Esta parte lista diferentes métodos para adicionar caracteres ao início de cada célula, conforme a captura de tela abaixo:
doc adicionar no início 1

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


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

Formula1 Concatenar operador "&"

Junte vários textos por um caractere e comercial "&".

"texto"&célula

Função CONCATENAR Fórmula 2

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

CONCATENAR("texto",célula)

Função CONCAT Fórmula 3

Esta é uma nova função que só aparece no Excel 2019, Office 365 e Excel online.

CONCAT("texto",célula)

Nas fórmulas genéricas: célula é a referência de célula ao texto ao qual você deseja adicionar o prefixo e texto é o texto usado para adicionar à célula.

Usando o exemplo acima, você pode usar as fórmulas na barra de fórmulas como estas:

"&"

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

Função CONCATENAR

=CONCATENAR($E$3,B3) or =CONCATENAR("Iphone",B3)

Função CONCAT

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

Press Press Entrar para obter o resultado e arraste a alça de preenchimento automático para baixo para adicionar texto a cada célula do intervalo B3:B6.
doc adicionar no início 1

 Atenção: O texto deve ser colocado entre aspas duplas ou a fórmula retorna um valor de erro #NAME?. Se estiver usando a referência de célula para um texto, lembre-se de usar a referência absoluta, você pode pressionar a tecla F4 para alterar a referência relativa para referência absoluta.

1.2 Adicionar no início das células por Flash Fill


Se você estiver no Excel 2013 ou versões posteriores, o novo recurso poderoso, Flash Fill, pode preencher as células com base nas células acima inseridas automaticamente.

Escolha uma célula ao lado dos primeiros dados originais, digite manualmente os primeiros dados com o texto do prefixo conforme mostrado abaixo:
doc adicionar no início 1

Em seguida, na célula abaixo, continue digitando os segundos dados com o texto do prefixo,durante a digitação, uma lista na cor cinza será exibida, pressione Entrar para permitir que o Flash Fill preencha os dados automaticamente.
doc adicionar no início 1doc adicionar no início 1

Se a lista de visualização não for gerada, vá para a guia Início e clique em Preencher > Flash Fill para executá-lo manualmente.

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


Se você estiver familiarizado com o código VBA, aqui apresenta um 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 do prefixo e pressione outro + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela.

2. Em seguida, na janela pop-up, clique em inserção > Módulo para inserir um novo módulo em branco.
doc adicionar no início 1

3. Copie e cole o código VBA abaixo para o 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
 Atenção: no script de código, iphone é o texto que você deseja adicionar no início das células selecionadas, altere-o conforme sua necessidade.

doc adicionar no início 1

4. Pressione F5 tecla ou clique Corrida botão doc adicionar no início 1 na janela para ativar o código VBA.

Agora todas as células selecionadas foram adicionadas ao texto "Iphone" no início.
doc adicionar no início 1


2. Adicione ao final de cada célula

Exceto adicionar texto ao início das células, adicionar texto ao final das células também é comum. Aqui, adicionamos a unidade no final de cada célula para exemplos, conforme a captura de tela abaixo:
doc adicionar no final 1

2.1 Adicionar no final das células usando a fórmula


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

Formula1 Concatenar operador "&"

Junte vários textos por um caractere e comercial "&".

Célula&"texto"

Função CONCATENAR Fórmula 2

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

CONCATENAR(célula,"texto")

Função CONCAT Fórmula 3

Esta é uma nova função que só aparece no Excel 2019, Office 365 e Excel online.

CONCAT(célula,"texto")

Nas fórmulas genéricas: célula é a referência de célula ao texto ao qual você deseja adicionar o sufixo e texto é o texto usado para adicionar à célula.

Usando o exemplo acima, você pode usar as fórmulas na barra de fórmulas como estas:

"&"

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

Função CONCATENAR

=CONCATENAR(B3, $E$3) or =CONCATENAR(B3, "Kg")

Função CONCAT

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

Press Press Entrar para obter o resultado e arraste a alça de preenchimento automático para baixo para adicionar texto ao final de cada célula do intervalo B3:B6.
doc adicionar no final 1

 Atenção: O texto deve ser colocado entre aspas duplas ou a fórmula retorna um valor de erro #NAME?. Se estiver usando a referência de célula para um texto, lembre-se de usar a referência absoluta, você pode pressionar a tecla F4 para alterar a referência relativa para referência absoluta.

2.2 Adicionar no final das células por Flash Fill


Se você estiver no Excel 2013 ou versões posteriores, o novo recurso poderoso, Flash Fill, pode preencher as células com base nas células acima inseridas automaticamente.

Escolha uma célula ao lado dos primeiros dados originais, digite manualmente os primeiros dados com o texto do sufixo conforme mostrado abaixo:
doc adicionar no final 1

Em seguida, ative a célula sob o primeiro resultado, clique em Dados > Flash Fill, todas as células abaixo, incluindo a célula ativa, serão preenchidas automaticamente.
doc adicionar no final 1
doc adicionar no final 1

2.3 Adicionar no final das células usando o código VBA


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

1. Selecione um intervalo de células ao qual deseja adicionar o texto do sufixo e pressione outro + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela.

2. Em seguida, na janela pop-up, clique em inserção > Módulo para inserir um novo módulo em branco.
doc adicionar no início 1

3. Copie e cole o código VBA abaixo para o 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
Atenção: no script de código, Kg é o texto que você deseja adicionar no final das células selecionadas, altere-o conforme sua necessidade. 

doc adicionar no início 1

4. Pressione F5 tecla ou clique Corrida botão doc adicionar no início 1 na janela para ativar o código VBA.

Agora o texto "Kg" foi adicionado no final de cada célula.
doc adicionar no início 1


3. Adicione ao meio da string

Para a maioria de vocês, adicionar textos no início ou no final das células é fácil, mas adicionar textos no meio das células talvez seja um pouco difícil. Por exemplo, como mostra a captura de tela abaixo, adicionando um delimitador, como dois pontos: no final do segundo caractere de cada célula no intervalo B3:B7.
doc adicionar ao meio 1

3.1 Adicionar após o enésimo caractere da string por fórmula


Aqui estão quatro fórmulas fornecidas para você lidar com este trabalho, escolha uma para usar:

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

LEFT(célula, n) & "texto" & DIREITA(célula, LEN(célula) -n)

Fórmula 2 COMBINE CONCATENATE(CONCAT), funções DIREITA e LEN

CONCATENAR(ESQUERDA(célula, n), "texto", DIREITA(célula, LEN(célula) -n))

Or

CONCAT(LEFT(célula, n), "texto", DIREITA(célula, LEN(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 ao texto ao qual você deseja adicionar texto no meio e texto é o texto que costumava adicionar à célula, n é o número que define após qual caractere na sequência de texto você deseja Adicione texto.

Para resolver o trabalho mencionado acima, use as fórmulas como estas:

Combine as funções ESQUERDA e DIREITA

=ESQUERDA(B3, 2) & ":" & DIREITA(B3, LEN(B3) -2) or =ESQUERDA(B3, 2) & $E$3 & DIREITA(B3, LEN(B3) -2)

COMBINE CONCATENATE (CONCAT), funções DIREITA e LEN

=CONCATENAR(ESQUERDA(B3, 2), ":", DIREITA(B3, LEN(B3) -2)) or =CONCAT(ESQUERDA(B3, 2), ":", DIREITA(B3, LEN(B3) -2))

Função REPLACE

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

Press Press Entrar para obter o resultado e 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.
doc adicionar ao meio 1

 Atenção: O texto deve ser colocado entre aspas duplas ou a fórmula retorna um valor de erro #NAME?. Se estiver usando a referência de célula para um texto, lembre-se de usar a referência absoluta, você pode pressionar a tecla F4 para alterar a referência relativa para referência absoluta.

3.2 Adicionar após o enésimo caractere da string por Flash Fill


Se você estiver no Excel 2013 ou versões posteriores, o Flash Fill, pode preencher as células com base nas células acima inseridas automaticamente.

Escolha uma célula ao lado dos primeiros dados originais, digite manualmente os primeiros dados com dois pontos após o segundo caractere, conforme mostrado abaixo:
doc adicionar ao meio 1

Em seguida, ative a célula sob o primeiro resultado, pressione Ctrl + E teclas para ativar Flash Fill comando, todas as células abaixo, incluindo a célula ativa, foram preenchidas automaticamente.
doc adicionar ao meio 1

Atenção: Se você estiver no sistema MAC, pressione as teclas Command + E. 

3.3 Adicione após o enésimo caractere da string usando o código VBA


Um código VBA também pode fazer esse trabalho.

1. Pressione outro + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela.

2. Em seguida, na janela pop-up, clique em inserção > Módulo para inserir um novo módulo em branco.
doc adicionar no início 1

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

VBA: Adicionar ao 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
Atenção: no script de código, 2 é o número define a posição que você deseja adicionar texto depois, : é o texto que você deseja adicionar, 3 é a soma de 2 e o comprimento do texto que você adiciona. Tome outra instância, para adicionar "e" após o primeiro caractere da string "AB", o script deve ser Rng.Value = VBA.Left(Rng.Value, 1) & "e às" & VBA.Mid(Rng.Value, 4, VBA.Len(Rng.Value) - 1) 

doc adicionar no início 1

4. Pressione F5 tecla ou clique Corrida botão doc adicionar no início 1 na janela para ativar o código VBA. Uma caixa de diálogo aparece para selecionar células para adicionar texto.
doc adicionar no início 1

5. Clique OK. Agora o texto ":" foi adicionado após o segundo caractere de cada célula no intervalo B19:B23.
doc adicionar no início 1


4. Adicione texto com Kutools for Excel (adicione caracteres a uma posição específica conforme necessário)

Se você está cansado de fórmulas e VBA, você pode experimentar uma ferramenta poderosa e útil, Kutools for Excel, que pode ajudá-lo com sua Adicionar texto recurso.
doc adicionar texto 1

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/minúsculas
    Adicionar texto antes de caracteres numéricos

Clique para obter um teste gratuito de 30 dias agora.

Selecione as células que você deseja adicionar texto e, em seguida, aplique Adicionar texto clicando em Kutools > Texto > Adicionar texto.
doc adicionar texto 1
4.1 Adicionar texto antes do primeiro caractere ou após o último caractere


Na série Adicionar texto caixa de diálogo, digite o texto que você deseja adicionar às células na Texto caixa de texto e, em seguida, verifique Antes do primeiro personagem no Posição seção.
doc adicionar texto 1

Clique Aplicar or Ok para terminar a adição.
doc adicionar texto 1

Para adicionar texto após o último caractere, digite o texto que deseja adicionar às células na Texto caixa de texto e, em seguida, verifique Depois do último personagem no Posição seção.
doc adicionar texto 1

Clique Aplicar or Ok para terminar a adição.
doc adicionar texto 1

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


Às vezes, você pode querer adicionar texto ao meio da célula ou adicionar texto a várias posições da célula. Supondo a adição do separador "-" após o terceiro e o sétimo dígitos dos números sociais, conforme a captura de tela abaixo:
doc adicionar texto 1

Na série Adicionar texto diálogo, digite o texto em Texto caixa de texto e verifique Especificar opção, digite as posições usando vírgula para separar na caixa de texto e clique em Ok or Aplicar.
doc adicionar texto 1

4.3 Extensão do utilitário Adicionar Texto


Além de adicionar texto nas posições normais (início, fim e posição especificada), o Adicionar texto utilitário também suporta adicionar texto

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

Na série Adicionar texto diálogo, digite o texto em Texto caixa de texto e verifique Apenas adicione a opção e, em seguida, clique no menu suspenso abaixo para escolher a operação que você precisa.
doc adicionar texto 1
doc adicionar texto 1

Exceto o recurso Adicionar texto, o Kutools for Excel possui mais de 300 recursos úteis que podem fazer um favor a você em diferentes trabalhos do Excel, faça o download gratuito agora.


5. Adicione texto antes ou depois do primeiro texto específico

Esta parte fornece fórmulas para adicionar texto antes ou depois do texto específico exibido pela primeira vez no Excel.

5.1 Adicionar texto antes do primeiro texto específico


Por exemplo, você deseja adicionar o texto "(venda)" antes do primeiro texto "preço" na célula, conforme as capturas de tela abaixo:
doc adicionar texto 1

No Excel, as funções REPLACE e SUBSTITUTE podem resolver esse trabalho.

Função REPLACE

REPLACE(célula,FIND("encontrar texto",célula),0,"adicionar texto")

Função SUBSTITUIR

SUBSTITUTE(célula,"localizar_texto","substituir_texto",1)

Nesse caso, use as fórmulas acima como estas:

= SUBSTITUIR(B4,FIND("preço",B4),0,"(venda)")

Or

=SUBSTITUIR(B4,"preço","preço(venda)",1)

Os argumentos da fórmula neste caso são

Célula: B4,

Find_text: preço,

Add_text: (venda),

Replace_text: (venda) preço.

Press Press Entrar key para obter o primeiro resultado de adição e, em seguida, arraste a alça de preenchimento automático sobre as células que precisam dessa fórmula.
doc adicionar texto 1

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


Por exemplo, você deseja adicionar o símbolo de moeda "$" após os primeiros dois pontos ":" na célula, conforme as capturas de tela mostradas abaixo:
doc adicionar texto 1

No Excel, as funções REPLACE e SUBSTITUTE podem resolver esse trabalho.

Função REPLACE

REPLACE(célula,FIND("localizar_texto",célula),localizar_texto_comprimento,"substituir_texto")

Função SUBSTITUIR

SUBSTITUTE(célula,"localizar_texto","substituir_texto")

Nesse caso, use as fórmulas acima como estas:

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

Or

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

Os argumentos da fórmula neste caso são

Célula: B12,

Localizar_texto: :,

Substituir_texto::$.

Find_text_length:1

Press Press Entrar key para obter o primeiro resultado de adição e, em seguida, arraste a alça de preenchimento automático sobre as células que precisam dessa fórmula.
doc adicionar texto 1


6. Adicione caracteres antes ou depois de cada palavra

Nesta parte do tutorial, ele apresenta três métodos diferentes (fórmula, Localizar e substituir, VBA) para ajudá-lo a adicionar caracteres antes ou depois de cada palavra da célula.

Adicione caracteres antes de cada palavra 
doc add antes de cada palavra 1
Adicione caracteres após cada palavra
doc add antes de cada palavra 1

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


A função SUBSTITUTE pode ser usada para resolver este trabalho, as fórmulas gerais como estas:

Adicionar antes de cada palavra

"caractere"&SUBSTITUTE(string, " "," caractere")

Adicionar após cada palavra

SUBSTITUTE(string," ","caractere ")&"caractere"

Supondo a adição de "+" antes de cada palavra na lista de B3:B6, use a fórmula como esta:

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

Press Press Entrar para obter o primeiro resultado e arraste a alça de preenchimento automático para baixo para obter todos os resultados.
doc add antes de cada palavra 1

Supondo a adição de ($) após cada palavra da lista B11:B14, use a fórmula abaixo:

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

Press Press Entrar para obter o primeiro resultado e arraste a alça de preenchimento automático para baixo para obter todos os resultados.
doc add antes de cada palavra 1

6.2 Adicionar caractere(s) antes ou depois de cada palavra por Localizar e substituir


Se você deseja adicionar caracteres antes de cada palavra, excluindo a primeira, ou adicionar caracteres após cada palavra, excluindo a última, conforme a captura de tela abaixo, o Excel interno Localizar e substituir utilitário pode lidar com este trabalho.

Adicionar antes de cada palavra excluindo a primeira
doc add antes de cada palavra 1

Adicionar após cada palavra excluindo a última
doc add antes de cada palavra 1

1. Selecione as células às quais deseja adicionar caracteres antes ou depois de cada palavra e pressione Ctrl + H chaves para habilitar o Localizar e substituir diálogo.

2. Digite um espaço no Encontre o que caixa de texto e digite os novos caracteres com espaço substituir por caixa de texto e, finalmente, clique no substituir tudo botão.

Operação Geral Exemplo
Adicione caracteres antes de cada palavra Adicionar novos caracteres após um espaço Adicionar (venda) antes de cada palavra

doc add antes de cada palavra 1doc add antes de cada palavra 1

Operação Geral Exemplo
Adicione caracteres após cada palavra Novos caracteres seguidos de um espaço Adicionar - após cada palavra

doc add antes de cada palavra 1doc add antes de cada palavra 1

6.3 Adicionar caractere(s) antes ou depois de cada palavra por código VBA

Aqui fornece dois códigos VBA para adicionar caracteres antes ou depois de cada palavra, execute o código seguindo as etapas abaixo.

1. Pressione outro + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela.

2. Na janela pop-up, clique em inserção > Módulo para inserir um novo módulo em branco.
doc add antes de cada palavra 1

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 chave para executar o código (ou você pode clicar Corrida botão  doc adicionar no início 1 ), uma caixa de diálogo aparece para pedir que você selecione células contínuas para trabalhar, clique em OK.
doc add antes de cada palavra 1

5. Na segunda caixa de diálogo, digite os caracteres que deseja adicionar, clique em OK.
doc add antes de cada palavra 1

Em seguida, os caracteres serão adicionados na frente ou no final de cada palavra.


7. Adicione texto entre os caracteres

Às vezes, você pode querer adicionar texto entre todos os caracteres. Aqui nesta parte, ele lista dois cenários, um é adicionar texto entre cada caractere, outro é adicionar espaço entre cada número.

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


Para adicionar caracteres entre cada caractere em uma string, a função User-Defined pode ajudá-lo.

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

1. Pressione outro + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela.

2. Na janela pop-up, clique em inserção > Módulo para inserir um novo módulo em branco.
doc add antes de cada palavra 1

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

Adicionar texto entre os 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 para a planilha, depois digite a fórmula abaixo em uma célula onde deseja colocar o resultado da adição.

=AdicionarTexto(B3)

B3 é a célula que contém a string que você deseja adicionar espaço entre os caracteres.

5. Pressione Entrar key para obter o resultado, arraste a alça de preenchimento automático sobre as células para obter outros resultados conforme necessário.
doc add antes de cada palavra 1

 

Atenção:

1) No código VBA, você pode alterar o "" para outros textos conforme necessário, supondo que altere para "-" para adicionar - entre caracteres.

2) O código adicionará o novo texto após cada caractere. Você pode remover o último texto adicionado se não precisar usando a fórmula abaixo. Para mais detalhes sobre a fórmula, visite:

Como remover o primeiro ou o último N caracteres de uma célula ou string no Excel?

LEFT(célula, LEN(célula)-text_length)

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


Se você deseja adicionar espaço entre os dígitos de uma string que é um valor numérico, você pode usar a função TEXT.

Atenção: os números do intervalo ao qual você deseja adicionar espaço precisam ter o mesmo comprimento, caso contrário, alguns resultados podem estar incorretos. 

Supondo aqui uma lista de números de 8 dígitos no intervalo B10:B12, selecione uma célula que colocará o resultado, digite a fórmula abaixo:

=TEXT(B10,"# # # # # # # #")

Press Press Entrar key e arraste a alça de preenchimento automático sobre outras células.
doc add antes de cada palavra 1

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


8. Adicione caracteres entre cada palavra

Se você quiser adicionar caracteres entre cada palavra, supondo adicionar espaço entre primeiro, meio e sobrenome, conforme a captura de tela mostrada abaixo, você pode usar uma função definida pelo usuário.
doc add antes de cada palavra 1

1. Pressione outro + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela.

2. Na janela pop-up, clique em inserção > 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 para a planilha, depois digite a fórmula abaixo em uma célula onde deseja colocar o resultado da adição.

=Adicionar Caracteres(B3)

B3 é a célula que contém a string que você deseja adicionar espaço entre as palavras.

5. Pressione Entrar key para obter o resultado, arraste a alça de preenchimento automático sobre as células para obter outros resultados conforme necessário.
doc add antes de cada palavra 1

 Atenção: no código VBA, você pode alterar o "" para outros textos conforme necessário, supondo que altere para "-" adicionar - entre palavras.

9. Adicione caracteres entre textos e números

Para adicionar caracteres específicos entre textos e números, conforme a captura de tela abaixo mostrada, aqui fornece dois métodos.
doc adicionar entre texto e número 1

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


Se os textos estiverem na frente 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, use a fórmula como esta:

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

Press Press Entrar para obter o primeiro resultado e arraste a alça de preenchimento automático sobre outras células para preencher esta fórmula.
doc adicionar entre texto e número 1

Se os números estiverem na frente 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, use a fórmula como esta:

=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}, ""))))

Press Press Entrar para obter o primeiro resultado e arraste a alça de preenchimento automático sobre outras células para preencher esta fórmula.
doc adicionar entre texto e número 1

9.2 Adicione caracteres entre textos e números com Flash Fill


Se você estiver no Excel 2013 ou versões posteriores, o Flash Fill também pode ajudá-lo a adicionar caracteres entre textos e números.

Ao lado dos dados originais, digite os novos dados aos quais foram adicionados o(s) caractere(s) entre textos e números. Em seguida, pressione a tecla Enter para ir para a próxima célula do primeiro resultado.
doc adicionar entre texto e número 1

E pressione Ctrl + E teclas para habilitar o Flash Fill.
doc adicionar entre texto e número 1

Extensão

Este tutorial também lista alguns cenários sobre como adicionar texto que podemos encontrar em nossa vida diária ou trabalho.


10. Adicione traços a números de telefone/números sociais

Às vezes, você precisa adicionar separadores, como traços, a uma série de números de telefone ou números sociais, conforme a captura de tela mostrada abaixo. A digitação manual será tentada se houver centenas de números a serem adicionados. Nesta parte, ele apresenta três truques para lidar com esse trabalho rapidamente.
doc adicionar traços aos números 1

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 sexto números na célula B3, use a fórmula da seguinte forma:

Função REPLACE

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

Função TEXT

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

Press Press Entrar key para obter o primeiro resultado e, em seguida, arraste a alça de preenchimento automático sobre outras células.
doc adicionar traços aos números 1

Atenção:

Você pode alterar os argumentos das fórmulas acima conforme necessário. Supondo adicionar "-" após o segundo, quarto e sexto dígitos, você pode usar as fórmulas como:

= SUBSTITUIR(TROCAR(TROCAR(B3,3,0,"-"),6,0,"-"),9,0,"-")

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

 

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


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

1. Selecione os números aos quais deseja adicionar traços e pressione Ctrl + 1 chaves para habilitar o formatar células diálogo.

2. No formatar células diálogo, sob o Sessão guia, escolha Personalizadas de Categoria seção.

3. Em seguida, à direita para cada ocasião seção, tipo ###-###-### na caixa de texto, clique OK.
doc adicionar traços aos números 1

Agora os números selecionados foram adicionados traços.
doc adicionar traços aos números 1

10.3 Adicione traços ao número de telefone por Adicionar texto do Kutools for Excel


Se você tem Kutools for Excel instalado no Excel, o Adicionar texto recurso também pode lhe fazer um favor.

1. Selecione as células que contêm os números necessários para adicionar traços, clique Kutools > Texto > Adicione texto.
doc adicionar traços aos números 1

2. No Adicionar texto diálogo, digite o traço ou outro separador em Texto caixa de texto, escolha Especificar opção, digite as posições que você deseja adicionar depois e separe-as por vírgulas na caixa de texto abaixo.
doc adicionar traços aos números 1

3. Clique Ok ou Aplicar. Em seguida, os números selecionados foram adicionados traços.

Download gratuito Adicionar texto para avaliação de 30 dias.


11. Adicione zeros à esquerda às células para fixar o comprimento

Supondo que haja uma lista de números em comprimentos diferentes, você deseja adicionar zeros à esquerda para torná-los no mesmo comprimento e parecer limpo, conforme a captura de tela mostrada abaixo. Aqui estão dois métodos fornecidos para você lidar com o trabalho.
doc adicionar zeros à esquerda 1

11.1 Adicionar zeros à esquerda às células com o recurso Formatar células


Você pode usar o formatar células recurso para definir um formato personalizado para corrigir o comprimento da célula adicionando zeros à esquerda.

1. Selecione as células que deseja adicionar zeros à esquerda e pressione Ctrl + 1 chaves para habilitar formatar células diálogo.

2. No formatar células diálogo, sob o Sessão guia, escolha Personalizadas de Categoria seção.

3. Em seguida, à direita para cada ocasião seção, tipo 0000 na caixa de texto (para fixar o comprimento do número para 4-dir, digite 0000, você pode alterá-lo para outro comprimento, como 5-dight, digite 00000), clique OK.
doc adicionar zeros à esquerda 1

Em seguida, os números foram adicionados zeros à esquerda e no mesmo comprimento.
doc adicionar zeros à esquerda 1

Atenção: se o comprimento dos dados originais exceder o comprimento definido, exibirá os dados originais sem zeros à esquerda.


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


Se você não quiser alterar os dados originais, poderá usar a fórmula para adicionar zeros à esquerda a números em outros locais.

Aqui estão três funções que podem ajudá-lo.

Função TEXTO Fórmula 1

TEXT(número,"00…")

Fórmula 2 função DIREITA

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

Função BASE Fórmula 3

BASE(número,10,comprimento)

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

Aqui você define 4 dígitos como o comprimento dos números, use as fórmulas abaixo:

= TEXTO (B10, "0000")

=DIREITO("0000"&B10,4)

=BASE(B10,10,4)

Press Press Entrar e arraste a alça de preenchimento automático para baixo.
doc adicionar zeros à esquerda 1

Atenção: se o comprimento dos dados originais exceder o comprimento definido, exibirá os dados originais sem zeros à esquerda.


12. Adicione zeros à direita aos números para fixar o comprimento

Se você deseja adicionar zeros à direita aos números para criar um comprimento fixo, supondo a adição de zeros à direita aos números na célula B3:B7 para torná-los no comprimento de 5 dígitos, conforme a captura de tela mostrada abaixo, você pode aplicar uma fórmula para lidar com o trabalho .
doc adicionar zeros à direita 1

Função REPT

número&REPT("0",comprimento-LEN(número))

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

Use a fórmula desta forma:

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

Press Press Entrar e arraste a alça de preenchimento automático para as células que precisam dessa fórmula.
doc adicionar zeros à direita 1


13. Adicione espaço à direita ao texto

Se você deseja exportar ou copiar dados de uma planilha para um bloco de notas, os textos podem ser colocados de forma desordenada, pois os valores das células estão em comprimentos diferentes, para torná-los perfeitos como a captura de tela mostrada abaixo, você precisa adicionar espaço à direita.
doc adicionar espaço final 1

Para resolver este trabalho, a função REPT pode lhe fazer um favor.

LEFT(texto & REPT(" ",max_length),max_length)

Na fórmula, o argumento "texto" é o texto ou a referência de célula que você deseja adicionar espaço à direita, e o argumento "max_length" é o comprimento fixo que você deseja tornar os textos, que deve ser maior ou igual ao comprimento máximo dos textos usados.

Para adicionar espaço à direita aos textos na célula B3:C6, use a fórmula abaixo:

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

Press Press Entrar e arraste a alça de preenchimento automático para todas as células necessárias para esta fórmula.

Neste caso, como o texto mais longo usado é de 9 caracteres, usamos 10 aqui.
doc adicionar espaço final 1


14. Adicione aspas/colchetes ao redor de texto ou números

Às vezes, você precisa adicionar aspas ou colchetes ao redor do texto ou números nas células, conforme a captura de tela abaixo, exceto a digitação manual, uma a uma, aqui estão dois métodos no Excel que podem resolvê-lo rapidamente.
doc adicionar aspas 1

14.1 Adicione aspas/colchetes ao redor por Format Cells


Se você deseja adicionar aspas ao redor do texto nos dados originais, o recurso Formatar Células no Excel pode ajudá-lo.

1. Selecione as células que deseja adicionar aspas, pressione Ctrl + 1 chaves para habilitar o formatar células diálogo.

2. No formatar células diálogo, sob Sessão guia, escolha Personalizadas da lista de Categoria, em seguida, vá para a seção direita para digitar "''" @ "''" no para cada ocasião caixa de texto. Clique OK.
doc adicionar aspas 1

O texto nas células selecionadas foi adicionado entre aspas.

Se você quiser adicionar colchetes ao redor do texto, na caixa de texto Tipo da caixa de diálogo Formatar células, use (@).

14.2 Adicionar aspas/colchetes ao redor de fórmulas


As fórmulas também podem ser usadas para adicionar aspas ao texto em outras células.

Usando & conector

""""&texto&""""

Or

char(34)&texto&char(34)

Neste caso, texto na célula B11, por favor use as fórmulas como estas:

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

Or

=char(34)&B11&char(34)

Press Press Entrar e arraste a alça de preenchimento automático para baixo para preencher as células.
doc adicionar aspas 1

Se você quiser adicionar colchetes ao redor do texto, usando a fórmula como "("&texto&")".

14.3 Adicionar aspas/colchetes pelo VBA


Se você precisar de código VBA para resolver este trabalho, aqui está um VBA.

1. Pressione outro + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela.

2. Em seguida, na janela pop-up, clique em inserção > Módulo para inserir um novo módulo em branco.

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

VBA: Adicione aspas em torno de 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
 Atenção: no script de código, """" & Rng.Value & """" indica adicionar "" ao redor dos textos, se você quiser adicionar colchetes () ao redor do texto, altere-o para "(" & Rng.Value & ")".

doc adicionar aspas 1

4. Pressione F5 tecla ou clique Corrida botão doc adicionar aspas 1 na janela para ativar o código VBA. Uma caixa de diálogo aparece para selecionar células para adicionar aspas.
doc adicionar aspas 1

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


15. Adicione texto ao resultado da fórmula diretamente

Às vezes, para ajudar outros usuários a entender melhor os dados, talvez seja necessário adicionar texto nos resultados da fórmula, conforme a captura de tela abaixo. Para incluir texto na fórmula, você pode usar as aspas ao redor do texto e adicionar o conector & para combinar o texto e a fórmula.
doc adicionar texto na fórmula 1

Caso 1 adicione texto antes da fórmula

"Hoje é "&TEXT(TODAY(),"dddd, mmmm dd.")
doc adicionar texto na fórmula 1

Caso 2 adicione texto após Fórmula

TEXT(AGORA(),"HH:MM:SS")&" é a hora atual."
doc adicionar texto na fórmula 1

Caso 3 adiciona textos nos dois lados da fórmula

"Hoje vendeu "&dados&" kg."
doc adicionar texto na fórmula 1


Mais tutoriais de Excel:

Combine várias pastas de trabalho/planilhas em uma
Este tutorial, listando quase todos os cenários de combinação que você pode enfrentar e fornecendo soluções profissionais relativas para você.

Células de texto, número e data divididas (separadas em várias colunas)
Este tutorial está dividido em três partes: células de texto divididas, células de números divididos e células de datas divididas. Cada parte fornece exemplos diferentes para ajudá-lo a saber como lidar com o trabalho de divisão ao encontrar o mesmo problema.

Combine o conteúdo de várias células sem perder dados no Excel
Este tutorial restringe a extração a uma posição específica em uma célula e coleta diferentes métodos para ajudar a extrair texto ou números de uma célula por posição específica no Excel.

Compare duas colunas para correspondências e diferenças no Excel
Aqui, este artigo aborda a maioria dos cenários possíveis da comparação de duas colunas que você pode encontrar e espero que possa ajudá-lo.



  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas e manutenção de dados; Dividir o conteúdo das células; Combine Linhas Duplicadas e Soma / Média... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Fórmulas favoritas e de inserção rápida, Intervalos, gráficos e imagens; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • 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 (salvar e aplicar 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 ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; 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 possuem fórmula / nome...
guia kte 201905
  • 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!
parte inferior da aba do escritório
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos