针对你需要保留报告模板中对应数据字典Applicability为0-All列的需求，以下是几种无需逐个工作表操作的简便方法：

方法1：Power Query批量处理（推荐） #

Power Query可以一次性处理所有目标工作表，步骤如下：

1. 准备允许保留的列清单
   • 打开数据字典文件，筛选Applicability列为0-All的行。
   • 新增一列拼接完整列头，公式为：=B2&" ("&A2&")"（对应数据字典的Field Name和Data Element列），得到和报告模板完全匹配的列名，将结果复制到新工作表并命名为AllowedColumns。
2. 导入报告模板的所有工作表
   • 打开报告模板文件，点击「数据」→「获取数据」→「自文件」→「自工作簿」，选择当前报告文件。
   • 在导航器中勾选所有需要处理的工作表，点击「转换数据」进入Power Query编辑器。
3. 筛选保留目标列
   • 点击「开始」→「选择列」→「选择列依据值列表」。
   • 选择「从另一表选择值」，指定AllowedColumns中的拼接列头列，确认后自动保留符合条件的列（同时保留前3行表头）。
4. 加载回工作簿
   • 点击「关闭并上载」，选择加载到新建工作表或覆盖原工作表（操作前建议备份原文件）。

方法2：VBA脚本自动批量处理 #

如果熟悉VBA，可通过脚本一键完成所有工作表的列筛选：

Sub KeepOnlyAllApplicableColumns()
    Dim dictWS As Worksheet
    Dim reportWS As Worksheet
    Dim allowedCols As Collection
    Dim cell As Range
    Dim colName As String
    Dim deCode As String
    Dim i As Integer
    
    ' 修改为你的数据字典工作表名称
    Set dictWS = ThisWorkbook.Worksheets("DataDictionary")
    Set allowedCols = New Collection
    
    ' 收集所有需保留的列名（带DE编码格式）
    On Error Resume Next
    For Each cell In dictWS.Range("F2:F" & dictWS.Cells(dictWS.Rows.Count, "F").End(xlUp).Row)
        If cell.Value = "0-All" Then
            deCode = dictWS.Cells(cell.Row, "A").Value
            colName = dictWS.Cells(cell.Row, "B").Value & " (" & deCode & ")"
            allowedCols.Add colName, Key:=colName
        End If
    Next cell
    On Error GoTo 0
    
    ' 遍历所有报告工作表（跳过数据字典表）
    For Each reportWS In ThisWorkbook.Worksheets
        If reportWS.Name <> dictWS.Name Then
            ' 从后往前删列，避免索引混乱
            For i = reportWS.Cells(1, reportWS.Columns.Count).End(xlToLeft).Column To 1 Step -1
                colName = reportWS.Cells(1, i).Value
                On Error Resume Next
                allowedCols(colName)
                If Err.Number <> 0 Then reportWS.Columns(i).Delete
                On Error GoTo 0
            Next i
        End If
    Next reportWS
    
    MsgBox "处理完成！"
End Sub

使用说明：

• 将数据字典复制到报告模板文件中，命名工作表为DataDictionary（或修改代码中对应名称）。
• 按Alt+F11打开VBA编辑器，插入新模块粘贴代码，运行宏即可。

方法3：优化原转置筛选流程 #

如果偏好原方法，可通过批量操作简化步骤：

• 用「视图」→「自定义视图」保存原工作表格式，方便后续恢复。
• 使用Excel批量工具（如第三方插件或宏）一次性转置所有工作表，统一筛选后再批量转置回原格式。

内容的提问来源于stack exchange，提问作者Sabrina Xie