¿Cómo buscar y reemplazar nombres de pestañas de hojas en Excel?

Es fácil buscar y reemplazar valores en las celdas en Excel. Pero, ¿hay alguna manera de buscar y reemplazar nombres de hojas en Excel? Por ejemplo, como se muestra en la captura de pantalla a continuación, tienes varias hojas de trabajo que contienen “KTE(Ventas) xxx” en el nombre de la hoja, y ahora necesitas reemplazar todas las apariciones de “KTE(Ventas)” con “KTE” en todos los nombres de hoja relacionados, ¿qué puedes hacer? Este artículo presentará un método VBA para lograrlo.

Buscar y reemplazar nombres de pestañas de hojas con código VBA

Buscar y reemplazar nombres de pestañas de hojas con código VBA

Por favor, aplica el siguiente código VBA para buscar y reemplazar nombres de pestañas de hojas en Excel. Sigue los siguientes pasos.

1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego, copia el siguiente código VBA en la ventana de código.

Código VBA: buscar y reemplazar nombres de pestañas de hojas 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 Sub

3. Presiona la tecla F5 para ejecutar el código.

4. Luego aparecerá un cuadro de diálogo de Kutools para Excel, por favor ingresa las palabras de los nombres de las hojas que deseas reemplazar y haz clic en el botón Aceptar. Ver captura de pantalla:

5. En el segundo cuadro de diálogo de Kutools para Excel, ingresa la palabra por la que deseas reemplazar y luego haz clic en el botón Aceptar.

Luego, todas las palabras relacionadas en los nombres de las pestañas de las hojas se reemplazan con la especificada, como se muestra en la siguiente captura de pantalla.

Nota: El código anterior distingue mayúsculas y minúsculas.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Artículos relacionados:

• ¿Cómo buscar y reemplazar todas las celdas en blanco con cierto número o texto en Excel?
• ¿Cómo reemplazar comas con saltos de línea (Alt + Enter) en las celdas en Excel?
• ¿Cómo crear un código macro para lograr buscar y reemplazar texto en Excel?
• ¿Cómo encontrar un valor en una celda con una lista separada por comas en Excel?
• ¿Cómo encontrar la intersección de dos listas de columnas en Excel?