Cómo agregar un prefijo o sufijo a cada celda usando VBA
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!
La macro no cambiará las celdas que estén en blanco o que contengan fórmulas.
Deja una respuesta