从VBA中的多个表中清除数据

Question

我在一张名为“Builder”的工作表上有一系列20个表，所有表都有自己的名字。我想要做的是创建一个变量，只隔离我告诉它的19个表，以便我在它们上创建一个clear content过程。剩下的1个表需要不变，因为这个表是另一个表的概述。我发现下面删除了1个表的行，但是我需要将它扩展为在多个上运行进程。

Sub Macro3()
    With Sheets(Builder").ListObjects("P6WC_00002")
        If Not .DataBodyRange Is Nothing Then
             .DataBodyRange.Delete
        End If
    End With
End Sub

表名的一些其他例子是：qazxsw poi，qazxsw poi，qazxsw poi

提前致谢

Answer 1

使用D86-03116循环和排除检查：

D87-03215