Cómo agregar un prefijo o sufijo a cada celda usando VBA

Índice

El código VBA
1. Agregar prefijo
2. Agregar sufijo
Cómo utilizar los códigos

A menudo podemos encontrar hojas de cálculo con celdas que contienen códigos acortados. Entonces, en lugar de Proj003412, el valor de la celda se redujo a solo 3412. No es un gran problema extender el código a la versión completa; podríamos lograrlo con una fórmula simple y luego copiar y pegar valores especiales. Si tenemos que hacer esto con regularidad, puede empezar a consumir mucho tiempo.

Decidí escribir una macro para acelerar el proceso. En esta publicación, te mostraré cómo usar ese marco para agregar un prefijo o sufijo a cada celda.

Descargue el archivo de ejemplo: únase al programa Insiders gratuito y obtenga acceso al archivo de ejemplo utilizado para esta publicación.

Nombre de archivo: 0007 Agregar sufijo o prefijo con VBA.zip

Tener acceso

El código VBA

Hay dos códigos VBA separados a continuación.

Para que el código sea reutilizable, su Libro de macros personal es el mejor lugar para guardar la macro.

Agregar prefijo

Sub AddPrefix()Dim c As RangeDim prefixValue As Variant'Mostrar el cuadro de entrada para recopilar el prefijo textprefixValue = Application.InputBox(Prompt:="Ingrese el prefijo:", _Title:="Prefix", Type:=2)'El usuario hizo clic en Cancelar si prefixValue = Falso Luego salga de Sub'Recorra cada celda en la selección Para cada c en la selección 'Agregue prefijo donde la celda no es una fórmula o en blanco Si no es c.HasFormula y c.Value "" Entonces c.Value = prefixValue c.Value End IfNextEnd Sub

Agregar sufijo

Sub AddSuffix()Dim c As RangeDim suffixValue As Variant'Mostrar el cuadro de entrada para recopilar el prefijo textsuffixValue = Application.InputBox(Prompt:="Ingrese el sufijo:", _Title:="Suffix", Type:=2)'El usuario hizo clic en CancelIf suffixValue = Falso Luego salga de Sub'Recorra cada celda en la selección Para cada c en la selección 'Agregar sufijo donde la celda no es una fórmula o está en blanco Si no es c.HasFormula y c.Value "" Entonces c.Value = c.Value suffixValue End IfNextEnd Sub

Cómo utilizar los códigos

Para utilizar la macro, siga estos pasos:

Seleccione las celdas que contienen los valores actuales.
Dependiendo de sus necesidades, ejecute la macro AddPrefix o AddSuffix.
Aparecerá un cuadro de entrada, ingrese la cadena de texto que desea agregar al inicio (para prefijo) o al final (para sufijo) de cada celda, luego haga clic en Aceptar.
¡Ta-dah! Los valores se actualizarán. ¡Qué rápido fue eso!