如何将Excel中5列可变数据按结构合并为单列？

以下是直接可用的VBA宏代码，能帮你把每行的主干项（第1列）和后续4个响应项（第2-5列）按顺序合并到单列中：

Sub ConvertToSingleColumn()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long, targetRow As Long
    
    ' 指定源数据所在工作表，替换成你的表名
    Set sourceSheet = ThisWorkbook.Worksheets("Sheet1")
    ' 新建工作表存放结果
    Set targetSheet = ThisWorkbook.Worksheets.Add
    targetSheet.Name = "Result"
    
    ' 获取源表最后一行数据行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    targetRow = 1 ' 结果表起始行
    
    ' 逐行处理源数据
    For i = 1 To lastRow
        ' 写入主干项
        targetSheet.Cells(targetRow, 1).Value = sourceSheet.Cells(i, 1).Value
        targetRow = targetRow + 1
        
        ' 依次写入4个响应项
        For j = 2 To 5
            targetSheet.Cells(targetRow, 1).Value = sourceSheet.Cells(i, j).Value
            targetRow = targetRow + 1
        Next j
    Next i
    
    MsgBox "转换完成！结果已保存到工作表""Result""中。"
End Sub

操作步骤： #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧导航栏右键点击你的工作簿名称，选择【插入】→【模块】
3. 将上述代码粘贴到弹出的模块代码窗口中
4. 把代码里的"Sheet1"改成你实际存放数据的工作表名称
5. 按下F5运行宏，或者回到Excel界面，点击【开发工具】→【宏】，选中ConvertToSingleColumn执行

注意事项： #

• 代码会自动新建名为Result的工作表存放结果，不会覆盖原数据
• 如果你的主干项不在第1列、响应项不是第2-5列，修改代码里的列号即可（比如主干项在C列就把1改成3，响应项从D到G列就把2 To 5改成4 To 7）

内容的提问来源于stack exchange，提问作者Ed the Analyst