Evan tiene una hoja de trabajo que contiene una serie de notaciones de compuestos químicos, como H2O. Cuando ingresa por primera vez al compuesto, puede formatear el 2 como un subíndice, como debería ser. Sin embargo, Evan necesita buscar instancias donde el 2 no esté subíndice y reemplazarlo con la notación correctamente subíndice. Se pregunta si hay una manera fácil de hacer esto.

No hay forma de hacer esto usando las funciones de Buscar y Reemplazar de Excel.

¿La razón? Como dijo un suscriptor de ExcelTips, «Excel es espectacularmente malo en el manejo de texto enriquecido en celdas». Prueba de esto es el hecho de que no puede buscar formato mixto dentro de una celda o reemplazarlo con formato mixto.

Tenga en cuenta que dije «formato mixto», que es lo que Evan quiere, la «H»

y «O» utilizan un formato diferente al «2». Si Evan hubiera querido cambiar todo el contenido de la celda a texto normal o suscribirse, entonces podría haber usado la herramienta Buscar y reemplazar normal. Sin embargo, no funcionará para formatos mixtos.

Esto significa que el mejor enfoque es utilizar una macro para buscar y reemplazar. Hay varias formas de abordar esto; el siguiente es solo uno.

Sub SubscriptNumbers()

Dim c As Range     Dim sWord As String     Dim sChar As String     Dim x As Long

For Each c In Selection         sWord = c.Value         For x = 1 To Len(sWord)

sChar = Mid(sWord, x, 1)

If sChar >= "0" And sChar <= "9" Then                 c.Characters(Start:=x, Length:=1).Font _                   .Subscript = True             End If         Next x     Next c     Set c = Nothing End Sub

Para usar la macro, seleccione las celdas que desea modificar y luego ejecútela.

Recorre cada celda de la selección y luego examina el contenido de la celda. Si hay dígitos en el contenido, esos dígitos se formatean como subíndice.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (13362) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365.