Отфильтровывать заготовки из таблиц во всех листах

Question

Я запускаю отчет, в котором суммы в долларах привязаны к кодам затрат.У меня есть список из 300+ кодов стоимости в таблице.У меня 84 листа с точно такой же таблицей.Я хочу использовать кнопку ActiveX, чтобы отфильтровать все пробелы из одного столбца на каждом листе.

Private Sub FilterBlanks_Click()

Worksheets("825209000").ListObjects("Table1").Range.AutoFilter _
 Field:=4, _
 Criteria1:="<>", _
 Operator:=xlFilterValues

Worksheets("825109202").ListObjects("Table2").Range.AutoFilter _
 Field:=4, _
 Criteria1:="<>", _
 Operator:=xlFilterValues

Worksheets("825109200").ListObjects("Table3").Range.AutoFilter _
 Field:=4, _
 Criteria1:="<>", _
 Operator:=xlFilterValues

End Sub

Прилагаемый код - это то, что я использую для этого.Кажется, все работает нормально, но мне интересно, как бы я сделал цикл, чтобы не добавлять каждый лист и таблицу в код.

Answer 1

Я предлагаю вам прочитать на петлях.

Private Sub FilterBlanks_Click()

Dim ws As Worksheet

For Each ws In Worksheets
    ws.ListObjects(1).Range.AutoFilter _
                                Field:=4, _
                                Criteria1:="<>", _
                                Operator:=xlFilterValues

Next ws

End Sub