excel - Microsoft Excel 运行时错误 '1004'

Question

The extract range has missing or illegal field name.

代码如下...

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

Answer 1

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' 中获取过滤后的数据，并根据 ProductList 上的条件和 C2 中的字段名称放入 B18:D18 中的字段名称的 SalesData