运行时出现1004错误，Range的AutoFilt方法无效

cflxnh

Dim lastRow As Long
    Dim filterValue1 As Variant
    Dim filterValue2 As Variant

    ' 设置源工作表
    Set wsSource = ThisWorkbook.Sheets("查找A (2)")

    ' 获取筛选条件
    filterValue1 = wsSource.Range("I4").Value
    filterValue2 = wsSource.Range("Q4").Value

    ' 确定源数据区域
    lastRow = wsSource.Cells(wsSource.Rows.Count, "F").End(xlUp).Row
    If lastRow < 1 Then MsgBox "源数据为空": Exit Sub

    ' 应用筛选
    With wsSource
        .AutoFilterMode = False
        .Range("F1:N" & lastRow).AutoFilter Field:=6, Criteria1:=filterValue1
        .Range("F1:N" & lastRow).AutoFilter Field:=14, Criteria1:=filterValue2, Operator:=xlAnd   ’运行到此出现1004错误，Range'的‘’AutoFilt方法无效‘
    End With

    ' 复制筛选结果（排除标题行）
    On Error Resume Next
    wsSource.Range("F2:N" & lastRow).SpecialCells(xlCellTypeVisible).Copy
    On Error GoTo 0

    ' 设置目标工作表
    Set wsTarget = ThisWorkbook.Sheets("福彩 20240531")

    ' 找到B列最后一个非空行
    lastRow = wsTarget.Cells(wsTarget.Rows.Count, "B").End(xlUp).Row

    ' 空一行后粘贴数据
    If lastRow > 0 Then
        wsTarget.Cells(lastRow + 2, "B").PasteSpecial xlPasteValues
    Else
        wsTarget.Cells(1, "B").PasteSpecial xlPasteValues
    End If

    ' 清除源数据筛选
    wsSource.AutoFilterMode = False
End Sub

朝露孤烟

原因可能是：Range("F1:N" & lastRow).AutoFilter Field:=14所指定的查询范围不在此区域中。其次，Field:=14指定的列中不存在指定筛选条件的值或值为空。

朝露孤烟

经测试，代码没有问题。不过，你有数据表可能有问题。最可能的原因是：查询的指定列不在指定的筛选范围内。请重新查看数据表的筛选条件列要与代码中的筛选列对应。

沈默00

附件发上来，，，
你应该发在VBA版块里吧

cflxnh

谢谢已解决，根据大师提示，我所选区域不全