如何高效转置两列数据：将元数据设为列名，观测值按组转成行

针对你需要将重复的10个元数据属性转置为列、每组观测值作为一行的需求，以下是几种比多次使用TRANSPOSE()更高效的方法：

方法1：Power Query（无公式/代码，推荐） #

这是最便捷的可视化操作方法，支持数据更新后一键刷新：

• 选中原始数据区域，点击「数据」选项卡 → 「从表格/区域」（若第一行是属性名，勾选「我的表格有标题」，否则不勾选）
• 在Power Query编辑器中：
  • 点击「转换」→「分组依据」，设置分组列留空，新列名设为「观测组」，操作选择「所有行」
  • 添加自定义列，输入公式：Table.FromRecords({Record.FromTable([所有行])})
  • 点击自定义列右侧的展开按钮，选择所有字段展开
  • 点击「关闭并上载」，转置后的结果会生成在新工作表

方法2：动态数组公式（Excel 365/2021适用） #

假设原始数据在A:B列，用以下公式一次性生成完整结果：

=LET(
    总数据, A:B,
    属性数, 10,
    总组数, COUNTA(A:A)/属性数,
    属性名, UNIQUE(FILTER(A:A, A:A<>"")),
    观测值, INDEX(B:B, SEQUENCE(总组数, 属性数, 1, 属性数)),
    HSTACK(属性名, 观测值)
)

• 公式逻辑：通过SEQUENCE定位每组10个观测值的位置，INDEX提取对应数值，HSTACK合并属性名表头与数据行

方法3：VBA宏批量处理 #

适合需要重复执行该操作的场景：

1. 按Alt+F11打开VBA编辑器，插入新模块
2. 粘贴以下代码：

Sub BatchTranspose()
    Dim srcRange As Range, destRange As Range
    Dim rowCount As Integer, groupSize As Integer
    Dim i As Integer, j As Integer
    
    groupSize = 10 ' 每组固定属性数量
    Set srcRange = Application.InputBox("选择原始数据区域", Type:=8)
    Set destRange = Application.InputBox("选择输出起始单元格", Type:=8)
    
    rowCount = srcRange.Rows.Count / groupSize
    
    ' 写入表头
    For j = 1 To groupSize
        destRange.Offset(0, j - 1).Value = srcRange.Cells(j, 1).Value
    Next j
    
    ' 批量写入每组观测值
    For i = 1 To rowCount
        For j = 1 To groupSize
            destRange.Offset(i, j - 1).Value = srcRange.Cells((i - 1) * groupSize + j, 2).Value
        Next j
    Next i
End Sub

3. 运行宏，按提示选择原始数据区域和输出起始位置，自动完成转置

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