时间戳

首页 > 解决方案 > VBA 错误：“提取范围的字段名称丢失或无效”

excel - VBA 错误：“提取范围的字段名称丢失或无效”

问题描述

请看下面的代码。标题中的错误发生在每个高级过滤器行上。我已确保提取范围的标题行与条件范围完全匹配（没有前导或尾随空格），目标明确，命名范围存在于名称管理器中并包括标题行。我不知道这可能出了什么问题。我还尝试Range.Select确保范围是可选的并且也可以正常工作。任何帮助将不胜感激！

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("UG").Range("A3:Z1000").Clear
    Sheets("OH").Range("A3:Z1000").Clear
    Sheets("EC&M").Range("A3:Z1000").Clear
    Sheets("ETG").Range("A3:Z1000").Clear
    Sheets("Compare").Range("A1").Value = "Planner Updated: " & Date
    Sheets("Dashboard").Range("A1").Value = "Updated: " & Date
    
    Sheets("All Tasks").Range("RefinedData").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("OH").Range("C1:C2"), CopyToRange:=Sheets("OH").Range("A3"), Unique:=False
    Sheets("All Tasks").Range("RefinedData").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("UG").Range("C1:C2"), CopyToRange:=Sheets("UG").Range("A3"), Unique:=False
    Sheets("All Tasks").Range("RefinedData").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("EC&M").Range("C1:C2"), CopyToRange:=Sheets("EC&M").Range("A3"), Unique:=False
    Sheets("All Tasks").Range("RefinedData").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("ETG").Range("C1:C2"), CopyToRange:=Sheets("ETG").Range("A3"), Unique:=False
End Sub

标签： excelvbaruntime-error

解决方案

推荐阅读