Microsoft Excel运行时错误'1004'

问题描述：

提取范围已丢失或非法字段名称。Microsoft Excel运行时错误'1004'

代码如下...

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Row = 2 And Target.Column = 2 Then 
'calculate criteria cell in case calculation mode is manual 
    Worksheets("ProductList").Range("C3").Calculate 
    Worksheets("SalesData").Range("Table_HESCO") _ 
    .AdvancedFilter Action:=xlFilterCopy, _ 
     CriteriaRange:=Sheets("ProductList").Range("C2:C3"), _ 
     CopyToRange:=Range("B18:V18"), Unique:=False 
End If 
End Sub

答

的CriteriaRange和CopyToRange标题需要匹配与Table_HESCO标题

如

Sub test1() 

    Sheets("SalesData").Range("Table_HESCO").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ 
     Sheets("ProductList").Range("C2:C3"), CopyToRange:=Sheets("SalesData").Range("B18:D18"), Unique:=False 

End Sub

需要从命名范围过滤后的数据“ Table_HESCO'并放入到SalesData中，其字段名称在B18：D18中基于c在C2

Sheets("SalesData").Range("Table_HESCO")

Sheets("ProductList").Range("C2:C3")

Sheets("SalesData").Range("B18:D18")

上产品列表riteria与字段名称（S）

Microsoft Excel运行时错误'1004'

相关推荐