Excel 2016中基于关键词提取Table174对应列内容的自动化需求

结论：完全可行，以下是适配不同场景的最优解决方案 #

方案1：Power Query（首推，适配长期维护与大量数据） #

Excel 2016自带的Power Query是处理这类动态提取需求的最优工具，无需编程，自动化适配数据增删：

• 操作步骤：
  1. 选中Table174任意单元格，点击「数据」选项卡 >「从表格/区域」，进入Power Query编辑器
  2. 打开「高级编辑器」，替换原有代码为以下逻辑（需替换注释中的工作表名称为实际值）：

     let
         源 = Excel.CurrentWorkbook(){[Name="Table174"]}[Content],
         查找文本 = Excel.CurrentWorkbook(){[Name="B2所在工作表名"]}[Content]{0}[B2],
         匹配列 = Table.SelectColumns(源, List.Select(Table.ColumnNames(源), each Text.Contains(_, 查找文本))),
         保留表头 = Table.PromoteHeaders(匹配列, [PromoteAllScalars=true])
     in
         保留表头
     

  3. 点击「关闭并上载」，将结果加载到新工作表；后续只需更新B2的值，右键结果表选择「刷新」即可自动提取对应列
• 核心优势：可视化操作、自动适配Table的行/列增删、支持一键刷新，完全满足长期维护需求

方案2：VBA宏（适配深度自动化场景） #

如果需要更灵活的触发逻辑（比如B2值变更时自动执行、自定义输出位置），可使用VBA实现：

• 操作步骤：
  1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码（替换注释中的工作表名称）：

     Sub 提取匹配列()
         Dim tbl As ListObject
         Dim findText As String
         Dim col As ListColumn
         Dim outputWs As Worksheet
         
         ' 绑定目标对象
         Set tbl = ThisWorkbook.Worksheets("Table所在工作表名").ListObjects("Table174")
         findText = ThisWorkbook.Worksheets("B2所在工作表名").Range("B2").Value
         Set outputWs = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
         outputWs.Name = "提取结果_" & findText
         
         ' 遍历列并复制匹配项
         For Each col In tbl.ListColumns
             If InStr(1, col.Name, findText, vbTextCompare) > 0 Then
                 col.Range.Copy outputWs.Range("A1")
                 ' 若需提取所有匹配列，删除下面的Exit For即可
                 Exit For
             End If
         Next col
         
         ' 自动调整列宽
         outputWs.UsedRange.Columns.AutoFit
     End Sub
     

  2. 回到Excel，添加「开发工具」选项卡，插入表单按钮并关联该宏，点击即可一键执行提取
• 核心优势：可自定义触发规则（如通过Worksheet_Change事件实现B2值变更时自动提取），适合高频操作场景

方案3：公式组合（适配临时/简单需求） #

若仅需临时实现，无需工具或编程，可使用INDEX+MATCH组合公式：

• 假设在新工作表A1开始输出结果：
  1. A1单元格输入公式提取表头：=INDEX(Table174[#Headers],MATCH("*"&B2&"*",Table174[#Headers],0))
  2. A2单元格输入公式提取内容：=INDEX(Table174[#All],ROW(A2),MATCH("*"&B2&"*",Table174[#Headers],0))
  3. 下拉A2公式至Table174的最后一行
• 注意：若存在多个匹配列，需调整公式逻辑；Table新增行时需手动扩展公式范围
• 核心优势：零学习成本，直接用内置公式快速实现

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