“未定义提取范围”:高级过滤器

时间:2015-08-26 01:50:25

标签: excel vba excel-vba

我试图在VBA中运行这个简单的代码,但它一直给我“提取范围未定义”错误:

Private Sub CommandButton1_Click()
    'Dim rng As Range
    Dim RowLast As Long
    Dim perporig As Workbook
    count = 0
    Set perporig = Workbooks.Open("\\Etnfps02\vol1\DATA\Inventory\Daily tracking\perpetual.xlsx", , ReadOnly)
    With perporig.Sheets("perpetual")
        .AutoFilterMode = False
        RowLast = .Cells(Rows.count, "A").End(xlUp).row
        'Set rng = .Range("C4:C" & RowLast)
        Range("A3:J" & RowLast).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("N1:N6"), Unique:=False 'have also tried Range("A3:J3"), doesn't work.

    End With
    ThisWorkbook.Sheets("myperpetual").Range("A5", "J5").PasteSpecial xlPasteValues
End Sub

我正在尝试从包含从A4:J4开始的数据的文件复制到某些A16000:J16000。我必须将C列中的值过滤到我在工作表中指定的范围N1:N6中的范围 仅供参考:表格标题A4为空,B4:J4中有相关标题 如果我的复制粘贴方法错误,或者由于某种原因无法按预期工作,请告诉我。

编辑:我也尝试在A列添加标题,即单元格A3。仍然不起作用。
我的范围N1:N6是一个数字列表,但我确信错误就在那里。它没有指定要应用过滤器的列。

0 个答案:

没有答案