Power Query：如何将表列表分别加载至独立工作表？

方案1：Power Query + VBA 批量处理（推荐，适合大量股票） #

1. 准备结构化表 #

先在Power Query里把你的表列表转换成包含两列的表：

• 第一列命名为Ticker，提取对应股票代码；
• 第二列命名为DataTable，保留对应的完整数据表。
  然后把这个表加载到Excel的工作表里（比如命名为TableList）。

2. 插入并运行VBA代码 #

按Alt + F11打开VBA编辑器，右键当前工作簿→插入→模块，粘贴下面的代码：

Sub ExportTickerTables()
    Dim listWs As Worksheet, targetWs As Worksheet
    Dim sourceTbl As ListObject
    Dim rowCount As Integer, i As Integer
    Dim ticker As String, dataTbl As ListObject
    
    ' 替换成你的表列表所在工作表名
    Set listWs = ThisWorkbook.Worksheets("TableList")
    Set sourceTbl = listWs.ListObjects(1)
    rowCount = sourceTbl.ListRows.Count
    
    For i = 1 To rowCount
        ticker = sourceTbl.ListColumns("Ticker").DataBodyRange(i).Value
        Set dataTbl = sourceTbl.ListColumns("DataTable").DataBodyRange(i).Value
        
        ' 清理已存在的同名工作表
        On Error Resume Next
        Set targetWs = ThisWorkbook.Worksheets(ticker)
        If Err.Number = 0 Then
            Application.DisplayAlerts = False
            targetWs.Delete
            Application.DisplayAlerts = True
        End If
        On Error GoTo 0
        
        ' 创建新工作表并命名
        Set targetWs = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
        targetWs.Name = ticker
        
        ' 复制表头和数据
        dataTbl.HeaderRowRange.Copy targetWs.Range("A1")
        dataTbl.DataBodyRange.Copy targetWs.Range("A2")
    Next i
    
    MsgBox "导出完成！"
End Sub

• 注意：如果你的列名不是Ticker/DataTable，要对应修改代码里的列名称；如果表列表不在TableList工作表，也要改对应的工作表名。
• 按Alt + F8，选择ExportTickerTables执行即可。

方案2：手动逐个加载（适合少量股票） #

如果股票数量不多，直接手动操作：

• 打开Power Query编辑器，选中列表里的单个股票表；
• 点击「关闭并上载」→「关闭并上载至」，选择「仅创建连接」；
• 回到Excel，右键这个连接→「加载到」，选择「新工作表」，命名为对应股票代码；
• 重复上述步骤处理所有表。

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