首先，你遇到的错误**"The extract range has a missing or invalid field name"**主要有两个核心原因：

• 循环遍历了所有工作表，包括存储原始数据的All Data表，而这个表并不需要执行高级筛选更新操作；
• 原更新宏里的Range对象没有指定具体工作表，当循环到其他工作表时，代码会默认使用当前激活的工作表范围，导致高级筛选的条件区域/复制区域引用错误。

下面是修复后的完整代码：

Sub One_Button()
    Dim ws As Worksheet
    Dim LR As Long, LC As Long
    
    ' 遍历工作簿中所有工作表
    For Each ws In ActiveWorkbook.Worksheets
        ' 排除主数据工作表"All Data"，只处理目标工作表
        If ws.Name <> "All Data" Then
            With ws
                ' 执行高级筛选：明确指定所有Range所属的工作表
                Sheets("All Data").Range("A50:K9999").AdvancedFilter _
                    Action:=xlFilterCopy, _
                    CriteriaRange:=.Range("C2:C3"), _
                    CopyToRange:=.Range("A5:K9999"), _
                    Unique:=False
                
                ' 给C4设置公式，移除低效且易出错的Select/ActiveCell操作
                .Range("C4").FormulaR1C1 = "=LEFT(R[-1]C,3)"
                
                ' 设置打印区域：保持原逻辑，但确保所有引用基于当前处理的工作表
                LR = .Range("A" & .Rows.Count).End(xlUp).Row
                LC = .Cells(1, .Columns.Count).End(xlToLeft).Column
                .PageSetup.PrintArea = .Range(.Cells(1, 1), .Cells(LR, LC)).Address
            End With
        End If
    Next ws
End Sub

关键修改说明： #

1. 排除主数据工作表
   添加If ws.Name <> "All Data" Then判断，确保循环只处理需要更新的目标工作表，跳过存储原始数据的All Data表，避免不必要的错误。

2. 明确指定Range所属工作表
   原代码里的Range("C2:C3")、Range("A5:K9999")没有指定工作表，会默认使用当前激活的工作表，导致高级筛选引用错误。修改为.Range(...)（带点前缀），表示引用当前With ws块中的工作表范围，确保每个目标工作表用自己的条件区域执行筛选。

3. 移除Select/ActiveCell操作
   原代码里的Range("C4").Select和ActiveCell.FormulaR1C1依赖工作表激活，不仅效率低，还容易引发意外错误。直接用.Range("C4").FormulaR1C1赋值，无需激活单元格，代码更稳定高效。

4. 完善行/列计数的工作表引用
   把Rows.Count改为.Rows.Count，Columns.Count改为.Columns.Count，确保计数基于当前处理的工作表，避免在不同工作表行/列数不同时出现计算错误。

这样修改后，点击按钮就能一次性完成所有目标工作表的表格更新和打印区域设置，完美解决你遇到的问题。

内容的提问来源于stack exchange，提问作者Charlie Erskine