¿Cómo eliminar una hoja si el nombre contiene un texto específico del libro de trabajo?

Supongamos que tienes un libro de trabajo que contiene múltiples hojas de cálculo, y ahora quieres eliminar las hojas según los nombres de las pestañas. Por ejemplo, si el nombre de la hoja contiene un texto específico “KTE”, entonces elimínala, y obtén la siguiente captura de pantalla. ¿Cómo podrías eliminar las hojas si el nombre contiene un texto específico de inmediato sin tener que eliminarlas una por una?

Eliminar hojas si el nombre contiene un texto específico con código VBA

Eliminar hojas si el nombre contiene un texto específico con código VBA

Aquí, crearé un código VBA para que puedas eliminar las hojas por nombre; por favor, sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Eliminar hojas si el nombre contiene un texto específico

Sub Deletebyname()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
                                    ThisWorkbook.ActiveSheet.Name, , , , , 2)
    If shName = "" Then Exit Sub
    xName = "*" & shName & "*"
'    MsgBox xName
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Name Like xName Then
            xWs.Delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que ingreses el texto específico según el cual deseas eliminar la pestaña de la hoja, ver captura de pantalla:

4. Y luego haz clic en Aceptar, todas las hojas cuyo nombre contenga el texto especificado “KTE” se habrán eliminado de una vez. Ver captura de pantalla:

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!