Excel VBA宏实现多列数据逐行转单列需求求助

一、VBA宏方案 #

适合批量处理大量数据，运行一次即可完成转换。

1. 打开你的Excel文件，按Alt+F11打开VBA编辑器；
2. 右键点击左侧工程窗口里的工作簿名称，选择「插入」→「模块」；
3. 将以下代码粘贴到模块中，根据你的实际数据位置修改源区域和目标单元格的参数：

Sub 转单列()
    Dim 源区域 As Range
    Dim 目标单元格 As Range
    Dim 源行 As Range
    Dim 单元格 As Range
    
    ' 替换成你的源数据所在区域（示例为Sheet1的A1到E4000）
    Set 源区域 = ThisWorkbook.Sheets("Sheet1").Range("A1:E4000")
    ' 替换成你要存放结果的起始单元格（示例为Sheet2的A1）
    Set 目标单元格 = ThisWorkbook.Sheets("Sheet2").Range("A1")
    
    ' 遍历每一行数据
    For Each 源行 In 源区域.Rows
        ' 遍历当前行的每个单元格
        For Each 单元格 In 源行.Cells
            目标单元格.Value = 单元格.Value
            ' 目标单元格下移一行，准备存下一个值
            Set 目标单元格 = 目标单元格.Offset(1, 0)
        Next 单元格
    Next 源行
    
    MsgBox "转换完成！"
End Sub

4. 按F5运行宏，或者回到Excel界面，点击「开发工具」→「宏」，选择「转单列」执行。

二、无VBA公式方案 #

适合不想用宏的新手，操作简单：

假设你的数据在A-E列，在空白列（比如F列）的F1单元格输入以下公式：

=IFERROR(INDEX($A:$E,INT((ROW(A1)-1)/5)+1,MOD(ROW(A1)-1,5)+1),"")

然后按住鼠标左键下拉F1单元格的填充柄，直到出现空值为止，所有数据就会按行内列顺序转成单列。

公式说明： #

• INT((ROW(A1)-1)/5)+1：计算当前结果对应的源数据行号（因为每5个单元格对应源数据的一行）；
• MOD(ROW(A1)-1,5)+1：计算当前结果对应的源数据列号（循环取1-5列）；
• IFERROR(...)：避免源数据有空单元格时显示0，改成显示空白。

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