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ê.
Note
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.
Clique para baixar o arquivo de amostra
Esta parte lista diferentes métodos para adicionar caracteres ao início de cada célula, conforme a captura de tela abaixo:
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 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.
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:
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.
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.
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. |
4. Pressione F5 tecla ou clique Execute botão na janela para ativar o código VBA.
Agora todas as células selecionadas foram adicionadas ao texto "Iphone" no início.
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:
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 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.
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:
Em seguida, ative a célula sob o primeiro resultado, clique em Data > Flash Fill, todas as células abaixo, incluindo a célula ativa, serão preenchidas automaticamente.
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.
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. |
4. Pressione F5 tecla ou clique Execute botão na janela para ativar o código VBA.
Agora o texto "Kg" foi adicionado no final de cada célula.
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.
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 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.
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:
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.
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.
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" & VBA.Mid(Rng.Value, 4, VBA.Len(Rng.Valor) - 1) |
4. Pressione F5 tecla ou clique Execute botão na janela para ativar o código VBA. Uma caixa de diálogo aparece para selecionar células para adicionar texto.
5. Clique OK. Agora o texto ":" foi adicionado após o segundo caractere de cada célula no intervalo B19:B23.
4. Adicione texto com o Kutools para Excel (adicione caracteres em posições específicas 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.
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.
4.1 Adicionar texto antes do primeiro caractere ou após o último caractere
No 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.
Clique Inscreva-se or Ok para terminar a adição.
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.
Clique Inscreva-se or Ok para terminar 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 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:
No 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 Inscreva-se.
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
No 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.
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:
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 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.
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:
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::$.
Localizar_texto_comprimento:1
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.
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 |
Adicione caracteres após cada palavra |
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 Entrar para obter o primeiro resultado e arraste a alça de preenchimento automático para baixo para obter todos os resultados.
Supondo a adição de ($) após cada palavra da lista B11:B14, use a fórmula abaixo:
=SUBSTITUIR(B11," ","($) ")&"($)"
Press Entrar para obter o primeiro resultado e 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 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
Adicionar após cada palavra excluindo a última
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.
Divisão de | Geral | Exemplo |
Adicione caracteres antes de cada palavra | Adicionar novos caracteres após um espaço | Adicionar (venda) antes de cada palavra |
Divisão de | Geral | Exemplo |
Adicione caracteres após cada palavra | Novos caracteres seguidos de um espaço | Adicionar - após cada palavra |
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.
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 Execute botão ), uma caixa de diálogo aparece para pedir que você selecione células contínuas para trabalhar, clique em OK.
5. Na segunda caixa de diálogo, digite os caracteres que deseja adicionar, clique em OK.
Em seguida, os caracteres serão adicionados na frente ou no final de cada palavra.
À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.
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.
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 Entrar key e arraste a alça de preenchimento automático sobre outras células.
Se o comprimento dos números for 5, a fórmula será alterada como =TEXT(B10,"# # # # #").
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.
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.
Atenção: no código VBA, você pode alterar o "" para outros textos conforme necessário, supondo que altere para "-" adicionar - entre palavras. |
Para adicionar caracteres específicos entre textos e números, conforme a captura de tela abaixo mostrada, aqui fornece dois métodos.
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 Entrar para obter o primeiro resultado e arraste a alça de preenchimento automático sobre outras células para preencher esta fórmula.
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 Entrar para obter o primeiro resultado e arraste a alça de preenchimento automático sobre outras células para preencher esta fórmula.
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.
E pressione Ctrl + E teclas para habilitar o Flash Fill.
Extensão
Este tutorial também lista alguns cenários sobre como adicionar texto que podemos encontrar em nossa vida diária ou trabalho.
À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.
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 Entrar key para obter o primeiro resultado e, em seguida, arraste a alça de preenchimento automático sobre outras células.
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 do Categoria seção.
3. Em seguida, à direita Formato seção, tipo ###-###-### na caixa de texto, clique OK.
Agora os números selecionados foram adicionados traços.
10.3 Adicione travessões ao número de telefone adicionando texto do Kutools para 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.
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.
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.
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.
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 do Categoria seção.
3. Em seguida, à direita Formato 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.
Em seguida, os números foram adicionados zeros à esquerda e no mesmo comprimento.
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 Entrar e arraste a alça de preenchimento automático para baixo.
Atenção: se o comprimento dos dados originais exceder o comprimento definido, exibirá os dados originais sem zeros à esquerda. |
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 .
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 Entrar e arraste a alça de preenchimento automático para as 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 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.
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 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.
À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.
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 Formato caixa de texto. Clique OK.
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 Entrar e arraste a alça de preenchimento automático para baixo para preencher as células.
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 & ")". |
4. Pressione F5 tecla ou clique Execute botão na janela para ativar o código VBA. Uma caixa de diálogo aparece para selecionar células para adicionar aspas.
5. Clique 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, 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.
Caso 1 adicione texto antes da fórmula
"Hoje é "&TEXT(TODAY(),"dddd, mmmm dd.")
Caso 2 adicione texto após Fórmula
TEXT(AGORA(),"HH:MM:SS")&" é a hora atual."
Caso 3 adiciona textos nos dois lados da fórmula
"Hoje vendeu "&dados&" kg."
Mais tutoriais de Excel: |
Combine várias pastas de trabalho/planilhas em uma Células de texto, número e data divididas (separadas em várias colunas) Combine o conteúdo de várias células sem perder dados no Excel Compare duas colunas para correspondências e diferenças no Excel |
As melhores ferramentas de produtividade para escritório
O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- 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...
- 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!