Saltar al contenido principal

¿Cómo encontrar y reemplazar los nombres de las pestañas de las hojas en Excel?

Es fácil encontrar y reemplazar valores en celdas en Excel. Pero, ¿hay alguna forma de buscar y reemplazar los nombres de las hojas en Excel? Por ejemplo, como se muestra a continuación, tiene varias hojas de trabajo que contienen "KTE (Ventas) xxx" en el nombre de la hoja, y ahora debe reemplazar todas las "KTE (Ventas)" por "KTE" en todos los nombres de hojas relacionados, ¿qué ¿Puedes hacer? Este artículo presentará un método VBA para lograrlo.

Busque y reemplace los nombres de las pestañas de la hoja con código VBA


Busque y reemplace los nombres de las pestañas de la hoja con código VBA

Aplique el código VBA a continuación para buscar y reemplazar los nombres de las pestañas de las hojas en Excel. Haz lo siguiente.

1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Y luego, copie el código VBA a continuación en la ventana de código.

Código de VBA: busque y reemplace los nombres de las pestañas de las 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. presione el F5 clave para ejecutar el código.

4. Entonces un Kutools for Excel aparece el cuadro de diálogo, ingrese las palabras de los nombres de las hojas que reemplazará y haga clic en el OK botón. Ver captura de pantalla:

5. En el segundo Kutools for Excel cuadro de diálogo, ingrese la palabra con la que reemplazará, y luego haga clic en el OK del botón.

Luego, todas las palabras relacionadas en los nombres de las pestañas de la hoja se reemplazan con una especificada como se muestra a continuación.

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


Artículos relacionados:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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...

Descripción


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This solution solved 50% of the manual work I had to do.
Thank you Microsoft team!
This comment was minimized by the moderator on the site
Hi Joshua SK,
Many thanks for your feedback. It's our pleasure to help you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations