Eliminar una tabla dinámica usando VBA en Excel es un proceso bastante sencillo. Puedes realizarlo siguiendo estos pasos:

Sub EliminarTablaDinamica()
    Dim ws As Worksheet
    Dim pt As PivotTable
    
    ' Cambia "Sheet1" por el nombre de tu hoja de cálculo
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' Asegúrate de que la hoja tiene al menos una tabla dinámica
    If ws.PivotTables.Count > 0 Then
        ' Iterar sobre todas las tablas dinámicas en la hoja y eliminarlas
        For Each pt In ws.PivotTables
            pt.TableRange2.Clear
        Next pt
        
        ' Confirmación de eliminación
        MsgBox "Todas las tablas dinámicas en la hoja " & ws.Name & " han sido eliminadas."
    Else
        MsgBox "No hay tablas dinámicas en la hoja " & ws.Name & "."
    End If
End Sub

• Abre el editor de VBA presionando `ALT + F11`.
• Inserta un nuevo módulo haciendo clic en `Insertar` > `Módulo`.
• Copia y pega el siguiente código en el módulo:
• Modifica `Sheet1` en el código para que coincida con el nombre de la hoja que contiene la(s) tabla(s) dinámica(s) que deseas eliminar.
• Ejecuta el macro presionando `F5` o seleccionando `Ejecutar` > `Ejecutar Sub/UserForm`.

Este script recorrerá todas las tablas dinámicas de la hoja especificada y las eliminará. Asegúrate de guardar tu trabajo antes de ejecutar cualquier macro, ya que este proceso no se puede deshacer.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto