我试图在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是一个数字列表,但我确信错误就在那里。它没有指定要应用过滤器的列。