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
最佳答案
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
关于excel - Microsoft Excel 运行时错误 '1004',我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5997601/