运行时错误'1004-Range类的AutoFilter方法失败

Question

运行以下代码时出现上述错误。 我是VBA的新手，需要调试方面的帮助。

Sub TransferTest1()

Dim INQUIRE As Worksheet
Dim QUOTE As Worksheet
Dim ORDER As Worksheet
Dim YString As String
Dim RecString As String

Set INQUIRE = ActiveWorkbook.Sheets("Inquiries")
Set QUOTE = ActiveWorkbook.Sheets("Quotes")
Set ORDER = ActiveWorkbook.Sheets("Orders")

With INQUIRE.Range("A6:K1200")
    .AutoFilter 11, "Y"
    .Offset(1).Resize(, 7).Copy QUOTE.Range("A6")  ' columns A:G
    .AutoFilter
End With

With QUOTE.Range("A6:N1200")
    .AutoFilter 14, "Rec'vd"
    .Offset(1).Resize(, 7).Copy ORDER.Range("A6") ' columns A:G
    .Offset(1).Resize(, 2).Offset(11).Copy ORDER.Range("K6")  ' columns L:M
    .AutoFilter
End With

End Sub

预先感谢您的帮助！

史密斯

Answer 1

在每次调用.AutoFilter ，

if .parent.autofiltermode then .parent.autofiltermode = false

如果存在的话，这将关闭所有现有的.AutoFilters，如果不存在，则不执行任何操作。