Цикл по столбцам для выполнения действий

Question

У меня есть электронная таблица с данными, строки заголовка находятся в строке 5. Я пытаюсь удалить определенные строки, изменить их размер и применить фильтр к определенным строкам на основе имени строки заголовка (строка 5).

Я получаю

"Ошибка времени выполнения" 1004 "Ошибка приложения или объекта *

в строке

Rows(5).AutoFilter Field:=currentColumn, Criteria:="="

Мой полный пример кода:

Public Sub deleteCells()

Dim currentColumn As Integer
Dim columnHeading As String

ActiveSheet.Columns("AQ").Delete

For currentColumn = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
columnHeading = ActiveSheet.UsedRange.Cells(5, currentColumn).Value


' CHECK WHETHER TO KEEP COLUMN
Select Case columnHeading
    Case "Personnel Number", "Subgroup", "Number", "Cost", "Name (repeated)", "Manager Name", "Customer Specific Status"
            ActiveSheet.Columns(currentColumn + 1).Delete
    Case "City"
    Rows(5).AutoFilter Field:=currentColumn, Criteria:="San Deigo"
    Case "Duties"
    Rows(5).AutoFilter Field:=currentColumn, Criteria:="=" ' TRYING TO EQUAL BLANKS
    Case Else
    Columns(currentColumn).ColumnWidth = 8 ' ALSO NOT SURE IF WILL TAKE A INT AS VALUE
    End Select
Next
'Added this line on an edit
End Sub

Answer 1

К сожалению, у меня нет ваших данных, поэтому трудно понять, что вы делаете, но я попробовал нечто подобное и обнаружил, что если вы замените

Criteria:=... 

на

Criteria1:=... 

(ПРИМЕЧАНИЕ 1), тогда это может сработать.