Excel无需Power Query实现数据分组转置的方法咨询

针对你5万条数据的分组转置需求，这里提供两种无需Power Query的实现方法，优先推荐VBA宏方案，适配大数据量高效处理：

一、VBA宏方案（高效适配大数量） #

VBA通过字典分组存储数据，处理速度远快于公式类方法，操作步骤如下：

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧项目窗口中的工作簿名称，选择「插入」→「模块」
3. 将以下代码粘贴到模块窗口中：

Sub GroupTransposeData()
    Dim wsSource As Worksheet, wsResult As Worksheet
    Dim lastRow As Long, i As Long, resultRow As Long
    Dim dict As Object
    Dim key As Variant, tempArr As Variant
    
    ' 替换为你的源数据工作表名称
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    ' 创建新工作表存储结果
    Set wsResult = ThisWorkbook.Worksheets.Add(After:=wsSource)
    wsResult.Name = "TransposedResult"
    
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 遍历源数据，按A列值分组存储B、C列数据
    For i = 2 To lastRow ' 若源数据无表头，改为i=1
        key = wsSource.Cells(i, "A").Value
        If Not dict.Exists(key) Then
            dict(key) = Array(key, wsSource.Cells(i, "B").Value, wsSource.Cells(i, "C").Value)
        Else
            tempArr = dict(key)
            ReDim Preserve tempArr(UBound(tempArr) + 2)
            tempArr(UBound(tempArr) - 1) = wsSource.Cells(i, "B").Value
            tempArr(UBound(tempArr)) = wsSource.Cells(i, "C").Value
            dict(key) = tempArr
        End If
    Next i
    
    ' 将分组后的数据写入结果工作表
    resultRow = 1
    For Each key In dict.keys
        tempArr = dict(key)
        wsResult.Cells(resultRow, 1).Resize(1, UBound(tempArr) + 1).Value = tempArr
        resultRow = resultRow + 1
    Next key
    
    wsResult.Columns.AutoFit
    MsgBox "转置完成！结果已保存到工作表：TransposedResult"
    Set dict = Nothing
End Sub

4. 按下F5运行宏，或回到Excel界面，通过「开发工具」→「宏」选择GroupTransposeData执行

注意事项 #

• 代码中Sheet1需替换为你实际的源数据工作表名称
• 若源数据没有表头，将代码中For i = 2 To lastRow改为For i = 1 To lastRow
• 运行前建议备份原始数据，避免意外

二、TEXTJOIN公式方案（适合小数据量，大数据量卡顿） #

如果你的Excel版本支持TEXTJOIN（2019及以后或365），可尝试公式方法，但5万条数据可能会出现明显卡顿：

1. 对A列执行「数据」→「删除重复值」，得到唯一值列表（假设放在D列）
2. 在E2单元格输入数组公式：
   =TEXTJOIN(", ", TRUE, IF($A$2:$A$50001=D2, $B$2:$B$50001&", "&$C$2:$C$50001, ""))
   按下Ctrl+Shift+Enter完成输入，再下拉填充公式
3. 在F2单元格输入=D2&", "&E2，下拉填充后复制为值，即可得到目标格式

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