¿Cómo encontrar y reemplazar rápidamente caracteres con superíndice en Excel?
Buscar y reemplazar con superíndice mediante la función Buscar y reemplazar
Buscar y reemplazar con superíndice por VBA
Buscar y reemplazar con superíndice mediante la función Buscar y reemplazar
En realidad, puede usar Buscar y reemplazar para buscar el texto y luego reemplazarlo con formato de superíndice.
1. Seleccione el rango para el que desea buscar y reemplazar el trabajo y presione Ctrl + H para abrir el Buscar y reemplazar diálogo.
2. En el Buscar y reemplazar diálogo, haga clic Reemplaza pestaña, y luego ingrese el texto que desea encontrar en la Encuentra lo que caja de texto. Ver captura de pantalla:
3. Luego ve a Reemplazar con cuadro de texto, ingrese el texto que desea reemplazar, tome nota, mantenga presionado otro y luego presione 0179 llaves en el Tablero de números para ingresar el número de superíndice 3. Ver captura de pantalla:
4. Hacer clic en reemplazar todo. Y aparece un cuadro de diálogo para recordarle cuántos reemplazos se han realizado. Ver captura de pantalla:
Consejo: Pero con este método, solo puede sobrescribir el número 2 presionando 0178, y 3 por 0179.
Buscar y reemplazar con superíndice por VBA
Con la función Buscar y reemplazar, solo se puede reemplazar el número con superíndice. Si desea reemplazar la letra con superíndice como se muestra a continuación, puede aplicar el código VBA para resolverlo.
1. Prensa Alt + F11 llaves para abrir Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy pegue el código VBA debajo del script.
VBA: busque y reemplace con formato de superíndice
Sub DoConvert()
'UpdatebyExtendoffice20160705
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
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
For Each xCell In xRg
If xCell.Value = "YL3" Then
xCell.Characters(1, 1).Font.Superscript = True
End If
Next
End Sub
3. Prensa F5 para ejecutar el código, y aparece un cuadro de diálogo para recordarle que seleccione un rango. Ver captura de pantalla:
4. Hacer clic en OK, el carácter específico en una cadena específica se ha convertido a formato de superíndice en la selección. Ver captura de pantalla:
Consejo: en el código, "YL3"Es la cadena de la que desea buscar y (1, 1) indica convertir el primer carácter 1 de la cadena, si desea convertir los dos primeros caracteres, puede cambiarlo como (1, 2), si desea convertir 1 carácter del segundo carácter de la cadena, puede cambiarlo como ( 2, 1).
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
