Excel VBA Buscar y reemplazar

¿Alguna vez ha pensado en automatizar la función Buscar y reemplazar en Excel. En VBA, podemos crear una macro que se puede usar para buscar y reemplazar cualquier cosa que normalmente hacemos en Excel presionando las teclas de acceso directo Ctrl + H. Con la ayuda de VBA Find and Replace, podemos automatizar la búsqueda de cualquier palabra y reemplazarla por otra. Esto ayuda cuando necesitamos realizar la misma actividad varias veces.

¿Cómo encontrar y reemplazar palabras en Excel VBA?

A continuación se muestran los diferentes ejemplos para buscar y reemplazar las palabras en Excel usando el código VBA.

Puede descargar esta plantilla de Excel para buscar y reemplazar VBA aquí - Plantilla de Excel para buscar y reemplazar VBA

VBA Buscar y reemplazar - Ejemplo # 1

En un ejemplo muy simple, tenemos un conjunto de datos que consiste en algún nombre. Y algunos de los nombres se repiten como se muestra a continuación.

Ahora crearemos un código, mediante el cual encontraremos cualquiera de los nombres que se repite y lo reemplazaremos por otra cosa. Para esto, siga los pasos a continuación.

Paso 1: vaya al menú Insertar en VBA y seleccione la opción Módulo como se muestra a continuación.

Paso 2: Una vez que lo hagamos, abriremos un nuevo módulo. En ese módulo, escriba la subcategoría en el nombre de Buscar y reemplazar de VBA o puede elegir cualquier nombre de esa subcategoría.

Código:

 Sub Find_Replace1 () End Sub

Paso 3: Como tenemos los datos en la columna B de la celda B2 a B10, primero seleccionaremos ese Rango de B2: B10.

Código:

 Sub Find_Replace1 () Rango ("B2: B10"). Reemplazar End Sub

Paso 4: Ahora para reemplazar algo, debemos buscar esa palabra. Aquí también seleccionaremos primero la función Reemplazar para ver lo que necesitamos reemplazar.

Código:

 Sub Find_Replace1 () Rango ("B2: B10"). Reemplazar End Sub

Según la sintaxis de la función Reemplazar, encontraremos lo que necesitamos reemplazar.

Paso 5: Seleccionemos el primer nombre de la lista " Ben " como lo que necesitamos reemplazar.

Código:

 Sub Find_Replace1 () Range ("B2: B10"). Reemplazar What: = "Ben" End Sub

Paso 6: Ahora elija la palabra de reemplazo por la cual necesitamos reemplazar la palabra seleccionada. Aquí elegimos reemplazar el nombre Ben con Sam, que se menciona como Reemplazo como se muestra a continuación.

Código:

 Sub Find_Replace1 () Range ("B2: B10"). Reemplazar What: = "Ben", Reemplazo: = "Sam" End Sub

Paso 7: Ahora compile el código y ejecútelo haciendo clic en el botón Reproducir o presionando la tecla F5, como se muestra a continuación.

Veremos, todas las celdas que contienen el nombre como Ben ahora se reemplazan con el nombre Sam . Y eso también se resalta en color amarillo.

VBA Buscar y reemplazar - Ejemplo # 2

Todos podríamos haber enfrentado una situación en la que intentamos encontrar y reemplazar algunas palabras con letras mayúsculas y minúsculas. Supongamos en una lista, si queremos reemplazar solo esa palabra que tiene algunas letras minúsculas o mayúsculas. Y si estamos usando el proceso que hemos visto en el ejemplo 1, entonces terminaríamos reemplazando todas las palabras similares en esa lista junto con la requerida. Este proceso no se puede hacer con la ayuda de buscar y reemplazar la función (Ctrl + H) de Excel. Para esto, tenemos una disposición en VBA.

Consideremos los siguientes datos para esto. Como podemos ver, hemos agregado deliberadamente una palabra BEN en mayúsculas en la celda B2.

Siga los pasos a continuación para encontrar y reemplazar la palabra BEN.

Paso 1: Comience la subcategoría de VBA Buscar y reemplazar allí como se muestra a continuación.

Código:

 Sub Find_Replace2 () End Sub

Paso 2: Seleccione la lista como Rango de B2 a B10.

Código:

 Sub Find_Replace2 () Range ("B2: B10") End Sub

Paso 3: Ahora elige la palabra exacta que queremos reemplazar. Aquí hemos seleccionado BEN que está en la celda B2.

Código:

 Sub Find_Replace2 () Range ("B2: B10"). Reemplazar What: = "BEN" End Sub

Paso 4: Nuevamente, hemos seleccionado la misma palabra que hemos visto en el ejemplo-1 como reemplazo de BEN como Sam .

Código:

 Sub Find_Replace2 () Range ("B2: B10"). Reemplazar What: = "BEN", Reemplazo: = "Sam" End Sub

Paso 5: Ahora para reemplazar la palabra exacta BEN, necesitamos usar MatchCase si eso se convierte en VERDADERO como se muestra a continuación.

Código:

 Sub Find_Replace2 () Range ("B2: B10"). Reemplazar What: = "BEN", Reemplazo: = "Sam", MatchCase: = True End Sub

MatchCase nos ayudará a identificar esa palabra que queremos reemplazar con una coincidencia exacta. Aquí, la palabra que hemos seleccionado es BEN en mayúsculas y la lista tiene otras palabras similares también, pero en el caso apropiado.

Paso 6: Ahora ejecute el código haciendo clic en el botón Reproducir o presionando la tecla F5.

Veremos que la palabra BEN que estaba en la celda B2 ahora se reemplaza con la palabra " Sam ", resaltada en color amarillo. Y las palabras similares Ben, que se encuentran en las celdas B5 y B8, respectivamente, siguen sin cambios.

Así es como funciona la coincidencia exacta.

Paso 7: Ahora, eliminaremos el MatchCase agregado del código anterior y veremos cómo funcionaría.

Código:

 Sub Find_Replace2 () Range ("B2: B10"). Reemplazar What: = "BEN", Reemplazo: = "Sam", MatchCase: = True End Sub

Paso 8: Compile nuevamente y ejecute el código.

Veremos que el código ha reemplazado todas las celdas que contienen la palabra Ben como se muestra arriba. Lo que significa que, después de eliminar MatchCase, el código funcionará como hemos visto en el ejemplo 1.

Pros de Excel VBA Buscar y reemplazar

  • El aprendizaje principal es que podemos reemplazar las palabras que distinguen entre mayúsculas y minúsculas y el contenido de la celda con la ayuda VBA Buscar y reemplazar como se muestra en el ejemplo 2.
  • Si la actividad se repite manualmente y varias veces, entonces automatizar esto sería una ventaja para ahorrar tiempo y esfuerzo.
  • Incluso si tenemos un gran conjunto de datos donde queremos reemplazar palabras específicas, eso se puede hacer sin que sobresalgan los archivos voluminosos.

Cosas para recordar

  • Podemos crear una macro de la función Buscar y reemplazar con la ayuda de la opción Grabar macro en la pestaña Desarrollador. Esta es la forma más fácil de crear una macro si eres nuevo en la codificación.
  • Guardar el archivo en formato de macro Habilitar Excel permitirá que el código se use en el futuro.
  • Podemos reemplazar cualquier tipo de texto, palabra, número o carácter por VBA Buscar y reemplazar.

Artículos recomendados

Esta es una guía para buscar y reemplazar VBA. Aquí discutimos cómo encontrar y reemplazar palabras en Excel usando VBA junto con ejemplos prácticos y una plantilla de Excel descargable. También puede consultar nuestros otros artículos sugeridos:

  1. VBA Break for Loop
  2. REEMPLAZAR Fórmula en Excel
  3. Una guía completa VBA Find
  4. ENCONTRAR Función en Excel

Categoría:

VBA