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

A função concatenar do Excel permite inserir rapidamente um prefixo ou sufixo numa única célula.

1. Introduza a função =CONCATENATE(«Food - »,A1) numa célula vazia, por exemplo a célula C1, e depois arraste a pega de autorreenchimento dessa célula ao longo do intervalo que pretende preencher. Todas as células ficarão então com o prefixo especificado adicionado. Veja a imagem:

Pode utilizar a função concatenar para inserir um prefixo, um sufixo ou ambos, conforme indicado a seguir:

Pode não estar familiarizado com funções e código VBA no Excel. A funcionalidade Add Text do Kutools for Excel permite-lhe adicionar rapidamente um prefixo ou sufixo a qualquer intervalo selecionado.

1. Selecione as células às quais pretende adicionar um prefixo ou sufixo e clique em KutoolsKutools > Text > Text Add Text.

2. Na caixa de diálogo Add Text, introduza o seu prefixo ou sufixo na caixa Texto, ative a opção Before first character (para adicionar um prefixo) ou a opção After last character (para adicionar um sufixo), conforme necessário, e clique no botão Ok.
O prefixo ou sufixo especificado será agora adicionado a todas as células selecionadas de uma só vez. Veja a imagem:

Também pode resolver este problema com o seguinte código VBA:

1. Selecione o intervalo onde pretende adicionar o prefixo ou sufixo.

2. Clique em DeveloperDeveloper > Visual Basic e será aberta uma nova janela do Microsoft Visual Basic for applications. Em seguida, clique em InsertInsert > Module e introduza 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 Run ou prima a tecla F5 para executar o VBA.

4. Comece por especificar o intervalo ao qual pretende adicionar o prefixo ou sufixo na primeira caixa de diálogo KutoolsforExcel e clique no botão OK. Em seguida, introduza o prefixo ou sufixo pretendido na segunda caixa de diálogo KutoolsforExcel e clique novamente em OK. Veja as imagens abaixo:
     
O prefixo ou sufixo indicado foi agora adicionado a todas as células selecionadas, conforme ilustrado na imagem seguinte:

Adicionar 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