Intercambiar caracteres en celdas de Excel - Macros de VBA

Tabla de contenido

Cómo reemplazar todos los personajes en una tabla con otros personajes

¿Lo sabes? Los datos que recibe de socios comerciales o después de la importación de datos contienen caracteres incorrectos. Puede suceder que aparezca un punto decimal siempre que sea necesario. O puede suceder que aparezcan barras inclinadas entre dígitos individuales.

Puede usar el comando REPLACE para encontrar estos caracteres y reemplazarlos con otros caracteres. Pero requiere mucho esfuerzo si desea realizar este proceso con más frecuencia. Ahorra tiempo al realizar la tarea usando una macro. Puede volver a llamar a esta macro de forma rápida y sencilla en la misma situación en el futuro.

Para incluir la macro en un libro vacío, abra un nuevo libro en todas las versiones de Excel usando la combinación de teclas CTRL N. Luego presione la combinación de teclas ALT F11 para abrir el editor de VBA. Allí seleccione el comando INSERTAR - MODULE. Luego ingrese la siguiente macro:

Intercambiar subcaracteres ()
En caso de error, reanudar siguiente
Atenuar celda como rango
Dim Search para As String
Dim Reemplazar con como cadena
SearchFor = "."
ReplaceBy = ","
Para cada celda de ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Siguiente celda
En caso de error, vaya a 0
End Sub

La macro reemplaza el punto decimal con un punto decimal en todas las celdas utilizadas en la hoja de trabajo activa. Para llamar a la macro, active la hoja de trabajo deseada, presione la combinación de teclas ALT F8 y seleccione la macro INTERCAMBIO DE CARACTERES.

Para controlar qué contenido se busca y se reemplaza, ajuste las dos variables SUCHENNACH y REPLACE BY en la macro.

Va a ayudar al desarrollo del sitio, compartir la página con sus amigos

wave wave wave wave wave