ADF动态逆透视含新增未知列的Excel工作表方案咨询

方法一：Power Query 动态处理（推荐非编程场景） #

• 导入数据到Power Query：选中数据区域，点击「数据」选项卡→「从表格/区域」，勾选「我的表格有标题」进入编辑器。
• 选中目标列：找到「Currency Code」列，右键点击→「到列尾」，自动选中该列之后的所有未知列。
• 执行逆透视：点击「转换」选项卡→「逆透视列」→「逆透视其他列」。此操作不会强制指定数值类型，Power Query会自动保留每列的原始数据类型，避免新增非double类型列时报错。
• 可选：统一数值转换（按需）。若需要尝试将值转为数值类型但保留无法转换的原始内容，可添加自定义列，公式为try Value.ToNumber([Value]) otherwise [Value]。
• 加载数据：点击「关闭并上载」，将处理后的数据导入新工作表。

方法二：VBA 自动化处理（适合批量/重复场景） #

以下代码会自动识别「Currency Code」之后的所有列，动态完成逆透视并保留原始数据类型：

Sub DynamicUnpivot()
    Dim wsSource As Worksheet, wsDest As Worksheet
    Dim lastCol As Integer, lastRow As Long
    Dim pivotStartCol As Integer
    Dim i As Integer, j As Long, k As Long
    
    ' 定义源表和目标表
    Set wsSource = ActiveSheet
    Set wsDest = ThisWorkbook.Sheets.Add(After:=wsSource)
    wsDest.Name = "UnpivotedResult"
    
    ' 定位逆透视起始列（Currency Code的下一列）
    pivotStartCol = wsSource.Rows(1).Find(What:="Currency Code", LookIn:=xlValues, LookAt:=xlWhole).Column + 1
    
    ' 获取源数据的行列边界
    lastCol = wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column
    lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    
    ' 复制固定列到目标表
    wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(lastRow, pivotStartCol - 1)).Copy wsDest.Cells(1, 1)
    
    ' 初始化目标表数据行起始位置
    k = 2
    
    ' 遍历所有待逆透视列
    For i = pivotStartCol To lastCol
        ' 遍历每行数据，写入逆透视结果
        For j = 2 To lastRow
            wsDest.Cells(k, pivotStartCol) = wsSource.Cells(1, i).Value ' 写入原列名
            wsDest.Cells(k, pivotStartCol + 1) = wsSource.Cells(j, i).Value ' 写入原始值（保留类型）
            k = k + 1
        Next j
    Next i
    
    ' 设置逆透视后的表头
    wsDest.Cells(1, pivotStartCol).Value = "Attribute"
    wsDest.Cells(1, pivotStartCol + 1).Value = "Value"
    
    ' 自动调整列宽
    wsDest.Columns.AutoFit
End Sub

• 使用步骤：按Alt+F11打开VBA编辑器，插入模块并粘贴代码，回到工作表后运行该宏即可。

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