Очистка данных из нескольких таблиц в VBA

Question

У меня есть серия из 20 таблиц на листе под названием «Строитель», все с собственными именами.Я хочу создать переменную, которая изолирует только 19 таблиц, о которых я говорю, чтобы я создал для них процедуру clear content.1 оставшаяся таблица должна быть нетронутой, так как эта таблица является обзором других 19. Я нашел ниже, чтобы удалить строки 1 таблицы, но мне нужно расширить ее для запуска процесса на нескольких.

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

Несколько других примеров имен таблиц: D86-03116, D87-03215, F08-00025

Заранее спасибо

Answer 1

Используйте цикл For Each и проверку исключения:

Dim TableToCheck AS ListObject

For Each TableToCheck In ThisWorkbook.Worksheets("Builder").ListObjects
    If TableToCheck.Name <> "P6WC_00000" Then 'Name of Table you do NOT want to update
        If Not (TableToCheck.DataBodyRange Is Nothing) Then TableToCheck.DataBodyRange.Delete
    End If
Next TableToCheck