Como adicionar prefixo ou sufixo a um intervalo de células no Excel?

A função concatenar do Excel pode inserir prefixo ou sufixo em uma única célula rapidamente.

1. Insira a função de =CONCATENAR("Alimento - ",A1) em uma célula em branco, digamos Célula C1, e então arraste a alça de preenchimento automático desta célula por todo o intervalo que deseja preencher. E todos os células terão o texto de prefixo específico adicionado. Veja a captura de tela:. Veja a captura de tela:

Você pode usar a função concatenar para inserir prefixo, sufixo ou ambos como segue:

Você pode não estar familiarizado com funções e código VBA no Excel. E esta ferramenta Adicionar Texto do Kutools para Excel ajudará você a inserir prefixo ou sufixo em qualquer intervalo selecionado rapidamente.

1.  Selecione as células que deseja adicionar prefixo ou sufixo, e clique  Kutools > Texto > Adicionar Texto.

2. Na Adicionar Texto caixa de diálogo, insira seu prefixo ou sufixo na caixa Texto marque a opção Antes do primeiro caractere opção (para adicionar prefixo) ou Após o último caractere opção (para adicionar sufixo) conforme necessário, e clique no botão Ok botão.
E agora o prefixo ou sufixo especificado está sendo adicionado a cada célula selecionada de uma só vez. Veja a captura de tela:

Você também pode resolver esse problema com o seguinte código VBA:

1. Selecione o intervalo onde deseja inserir o prefixo ou sufixo.

2. Clique em Desenvolvedor > Visual Basic, e uma nova janela Microsoft Visual Basic para Aplicativos será exibida, clique em Inserir > Módulo, e então insira o seguinte código:

Sub AddTextOnLeft()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = addStr & Rng.Value
Next
End Sub

Sub AddTextOnRight()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = Rng.Value & addStr
Next
End Sub

3. Em seguida, clique no botão Executar ou pressione a tecla F5 para executar o VBA.

4. E agora especifique o intervalo ao qual você adicionará prefixo ou sufixo na primeira KutoolsforExcel caixa de diálogo e clique no botão OK botão, e depois digite o sufixo ou prefixo que deseja adicionar na segunda KutoolsforExcel caixa de diálogo e clique no botão OK botão. Veja as capturas de tela abaixo:
     
Agora o sufixo ou prefixo especificado foi adicionado em cada célula selecionada conforme mostrado na captura de tela abaixo:

Adicionar texto ao início ou fim de todas as células

Adicionar sequências de texto a várias células

adicionar zeros à esquerda a números ou texto