¿Cómo buscar y reemplazar los nombres de las pestañas de hoja en Excel?
Es fácil buscar y reemplazar valores en celdas en Excel, pero ¿existe alguna forma de buscar y reemplazar los nombres de las hojas? Por ejemplo, como se muestra en la siguiente captura de pantalla, tiene varias hojas cuyos nombres incluyen «KTE(Ventas) xxx» y ahora necesita reemplazar «KTE(Ventas)» por «KTE» en todos los nombres de hoja correspondientes. ¿Qué puede hacer? Este artículo presenta un método VBA para lograrlo.
Buscar y reemplazar los nombres de las pestañas de hoja con código VBA
Buscar y reemplazar los nombres de las pestañas de hoja con código VBA
Aplique el siguiente código VBA para buscar y reemplazar los nombres de las pestañas de hoja en Excel. Siga estos pasos.
1. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, copie el siguiente código VBA en la ventana de código.
Código VBA: Buscar y reemplazar los nombres de las pestañas de hoja en Excel
Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
Dim xNum As Long
Dim xRepName As String
Dim xNewName As String
Dim xSheetName As String
Dim xSheet As Worksheet
xRepName = Application.InputBox("Please type in the word you will replace：", "Kutools for Excel", , , , , , 2)
xNewName = Application.InputBox("Please type in the word you will replace with：", "Kutools for Excel", , , , , , 2)
If xRepName = "false" Or xNewName = "false" Then Exit Sub
On Error GoTo ExitLab
For Each xSheet In ActiveWorkbook.Sheets
xSheetName = xSheet.Name
xNum = InStr(1, xSheetName, xRepName)
If xNum > 0 Then
xSheet.Name = Replace(xSheetName, xRepName, xNewName)
End If
ExitLab:
Next
End Sub3. Pulse la tecla F5 para ejecutar el código.
4. A continuación, aparecerá un cuadro de diálogo Kutools para Excel. Introduzca las palabras del nombre de la hoja que desea reemplazar y haga clic en el botón Aceptar. Vea la captura de pantalla:
5. En el segundo cuadro de diálogo Kutools para Excel, introduce la palabra por la que deseas reemplazar y, a continuación, haz clic en el botón Aceptar.
A continuación, todas las palabras relacionadas en los nombres de las pestañas de hoja se reemplazan por la especificada, tal como se muestra en la siguiente captura de pantalla.
Nota: El código anterior distingue entre mayúsculas y minúsculas.
Descubra la magia de Excel con KUTOOLS AI
- Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
- fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
- Programación en VBA: Escriba e implemente código VBA con facilidad.
- Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
- Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.
Artículos relacionados:
- ¿Cómo buscar y reemplazar todas las celdas en blanco por un número o texto específico en Excel?
- ¿Cómo reemplazar las comas por saltos de línea (Alt + Intro) en las celdas de Excel?
- ¿Cómo crear un código de macro para buscar y reemplazar texto en Excel?
- ¿Cómo buscar un valor dentro de una celda que contiene una lista separada por comas en Excel?
- ¿Cómo encontrar la intersección de dos columnas en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos