¿Cómo añadir un prefijo o sufijo a un rango de celdas en Excel?

La función CONCATENAR de Excel te permite insertar un prefijo o sufijo en una celda individual de forma rápida.

1. Introduzca la función =CONCATENATE(«Food - »,A1) en una celda vacía, por ejemplo la celda C1, y luego arrastre el controlador de autorrelleno por todo el rango que desee rellenar. Así, todas las celdas incluirán automáticamente el prefijo de texto especificado. Vea la captura de pantalla:

Puede utilizar la función CONCATENAR para insertar un prefijo, un sufijo o ambos simultáneamente, tal como se muestra a continuación:

Es posible que no esté familiarizado con las funciones ni con el código VBA en Excel. En ese caso, la utilidad Add Text de Kutools for Excel le permitirá insertar un prefijo o sufijo en cualquier rango seleccionado de forma rápida y sencilla.

1. Seleccione las celdas a las que quiera añadir un prefijo o sufijo y haga clic en KutoolsKutools > > Add Text Text Add Text.

2. En el cuadro de diálogo Add Text, introduzca su prefijo o sufijo en el campo Texto, active la opción Before first character (para añadir un prefijo) o la opción After last character (para añadir un sufijo), según sus necesidades, y haga clic en el botón Ok.
De este modo, el prefijo o sufijo especificado se añadirá inmediatamente a todas las celdas seleccionadas. Vea la captura de pantalla:

También puede resolver este problema mediante el siguiente código VBA:

1. Seleccione el rango al que desea añadir un prefijo o un sufijo.

2. Haga clic en Developer > Visual Basic Visual Basic y se abrirá una nueva ventana de Microsoft Visual Basic for applications. A continuación, haga clic en InsertInsert > Module e introduzca el siguiente 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. A continuación, haz clic en el botón Run o pulsa la tecla F5 para ejecutar el código VBA.

4. En el primer cuadro de diálogo KutoolsforExcel, especifique el rango al que desea añadir el prefijo o sufijo y haga clic en el botón OK. A continuación, en el segundo cuadro de diálogo KutoolsforExcel, introduzca el prefijo o sufijo que desea añadir y haga clic en el botón OK. Vea las siguientes capturas de pantalla:
     
El prefijo o sufijo especificado ya se ha añadido a cada celda seleccionada, tal como se muestra en la captura de pantalla siguiente:

Agregar texto al principio o al final de todas las celdas

Añadir cadenas de texto a varias celdas

añadir ceros a la izquierda a números o texto