¿Cómo buscar y reemplazar números con subíndice en Excel?

En Excel, puedes usar la función Buscar y Reemplazar para reemplazar números con formato de superíndice, pero no funciona cuando deseas reemplazarlos con formato de subíndice, como se muestra en la captura de pantalla a continuación. Sin embargo, tengo algunos trucos que puedo presentarte para manejar rápidamente esta cuestión en Excel.

Buscar y reemplazar todos los números con subíndice mediante VBA

Buscar y reemplazar números con subíndice en fórmulas químicas con Kutools para Excel

Buscar y reemplazar todos los números con subíndice mediante VBA

En Excel, aparte del código macro, no hay ningún método que pueda ayudarte a buscar y reemplazar texto con formato de subíndice.

1. Presiona Alt + F11 para mostrar la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en el script en blanco.

VBA: Buscar y reemplazar todos los números con formato de subíndice

Sub SubscriptNumbers()
'UpdatebyExtendoffice20160705
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xTxt = xCell.Value
        For I = 1 To Len(xTxt)
            xChar = Mid(xTxt, I, 1)
            If xChar >= "0" And xChar <= "9" Then
                xCell.Characters(I, 1).Font.Subscript = True
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

3. Presiona F5 tecla, una Kutools para Excel ventana emergente aparece para recordarte seleccionar un rango de trabajo. Ver captura de pantalla:

4. Después de seleccionar, haz clic en Aceptar, y todos los números en la selección se habrán convertido a subíndice.

Buscar y reemplazar números con subíndice en fórmulas químicas con Kutools para Excel

Además del código macro, en realidad, puedes aplicar una utilidad fácil llamada Subíndice de números en fórmulas químicas para convertir rápidamente todos los números normales en fórmulas químicas al formato de subíndice si has instalado Kutools para Excel.

Después de instalar gratuitamente Kutools para Excel, por favor sigue estos pasos:

Selecciona las celdas donde deseas formatear los números como subíndice, haz clic en Kutools > Texto > Subíndice de números en fórmulas químicas. Ver captura de pantalla:

Y aparecerá una ventana emergente para informarte cuántas celdas se han convertido, y los números en las fórmulas químicas seleccionadas se habrán formateado como subíndice.

  Convertir número a subíndice en fórmula química