Excel基础用户求助：每5行数据转列的实现方法

方法一：使用公式（无需宏，适合基础用户） #

假设原始数据在A列（从A1开始），要在C1开始生成目标格式：

1. 在C1单元格输入公式：

   =INDEX($A:$A,ROW(A1)+(COLUMN(A1)-1)*5)
   

2. 选中C1，横向拖拽到G1（共5列，对应每5行转成的列）；
3. 选中C1:G1，纵向拖拽到出现空白值为止。

原理：(COLUMN(A1)-1)*5计算每组的起始行偏移，ROW(A1)控制组内的行位置，确保每5行对应一行的5列。

方法二：使用Power Query（可视化操作，无代码） #

1. 选中原始数据区域（A列数据），点击菜单栏数据选项卡，选择从表格/区域（提示创建表时，根据数据有无标题勾选对应选项）；
2. 在Power Query编辑器中，点击添加列→索引列→从0开始；
3. 添加自定义列，输入公式：=Number.IntegerDivide([索引],5)，命名为“分组ID”；
4. 选中“分组ID”列，点击转换→透视列，在弹窗中：
   • 值列选择原始数据列（如“列1”）；
   • 聚合函数选“不要聚合”或“第一个值”；
5. 点击关闭并上载，转换后的数据将导入新工作表。

方法三：使用VBA（批量处理，适合大量数据） #

操作步骤： #

1. 打开Excel文件，按Alt+F11打开VBA编辑器；
2. 左侧“工程资源管理器”右键点击当前工作簿→插入→模块；
3. 粘贴以下代码到模块窗口：

   Sub ConvertRowsToColumns()
       Dim sourceRange As Range
       Dim targetRange As Range
       Dim lastRow As Long
       Dim i As Long, j As Long
       
       ' 原始数据范围（示例：Sheet1的A列，从A1到最后一行）
       Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A" & ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row)
       ' 目标起始位置（示例：Sheet1的C1单元格）
       Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("C1")
       
       lastRow = sourceRange.Rows.Count
       
       ' 循环每5行转为一列
       For i = 1 To lastRow Step 5
           For j = 0 To 4
               If i + j <= lastRow Then
                   targetRange.Offset((i - 1) / 5, j).Value = sourceRange.Cells(i + j, 1).Value
               End If
           Next j
       Next i
       
       MsgBox "转换完成！"
   End Sub
   

4. 修改代码中的工作表名称（Sheet1）和单元格范围，匹配你的数据位置；
5. 按F5或点击编辑器工具栏的“运行”按钮执行代码。

注意事项： #

• 保存文件为启用宏的工作簿（.xlsm格式），否则宏无法保存；
• 大量数据转换前，建议备份原始数据。

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