Excel 在列上循环以执行操作

我有一个包含数据的电子表格，标题行在第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

---

不幸的是，我没有你的数据，所以很难知道你在做什么，但我做了类似的尝试，发现如果你更换

Criteria:=... 

与

---

注意1，它可能会起作用。

请注意，这与其说是答案，不如说是评论。如果解决方案只是纠正打字错误，那么问题应该更好地解决，因为这个问题是由无法再复制的问题或简单的印刷错误引起的。

Criteria1:=...