Puede reemplazar fácilmente todas las diéresis usando una macro
Por lo general, no es un problema tan grande como hace unos años, pero las diéresis pueden causar problemas al intercambiar datos. La siguiente figura muestra una tabla con textos que contienen diéresis:
Si necesita intercambiar información con otros sistemas o enviar datos a otros países, puede ser útil reemplazar todas las diéresis en una tabla. Reemplaza la ä con una ae, la ö con una oe, etc.
Por supuesto, puede hacer esto llamando repetidamente a la función EDITAR - REEMPLAZAR. Pero eso es mucho trabajo. Si desea reemplazar las tres diéresis ä, ö y ü en mayúsculas y minúsculas, así como la ß, debe realizar siete operaciones de reemplazo seguidas.
Es más fácil con una macro. Aquí está el código de programa apropiado:
Sub ReplaceUmlauts ()
Atenuar celda como rango
Con Application.WorksheetFunction
Para cada celda de la selección
Cell.Value = .Sustituir (.Sustituir (.Sustituir (.Sustituir (_
.Sustituir (.Sustituir (.Sustituir (Cell.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Siguiente celda
Terminar con
End Sub
La macro anida las llamadas de reemplazo apropiadas a través de la función Sustitutos Hola. Este es el nombre de la función en inglés de la función de tabla REPLACE.
Para usar la macro, primero seleccione las celdas en las que desea reemplazar las diéresis y luego llame a la macro. La siguiente figura muestra cómo se ve la tabla con diéresis después de iniciar la macro:
