如何用VBA将100+列8行表格转为单列且列间空两行？

以下是实现需求的VBA代码，可将源工作表中的多列数据（每列8行）合并到新工作表的单列中，每列数据之间保留两行空行：

Sub ConsolidateColumnsToSingle()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceDataRange As Range
    Dim col As Range
    Dim lastCol As Long
    Dim lastRow As Long
    Dim outputRow As Long
    
    ' 设置源工作表为当前活动工作表（可修改为指定工作表名称，如Sheets("数据源")）
    Set sourceSheet = ActiveSheet
    
    ' 创建或获取目标工作表（名为"合并结果"）
    On Error Resume Next
    Set targetSheet = ThisWorkbook.Worksheets("合并结果")
    On Error GoTo 0
    If targetSheet Is Nothing Then
        Set targetSheet = ThisWorkbook.Worksheets.Add(After:=sourceSheet)
        targetSheet.Name = "合并结果"
    End If
    
    ' 清空目标工作表原有内容
    targetSheet.Cells.Clear
    
    ' 获取源数据的最后一列和最后一行
    lastCol = sourceSheet.Cells(1, sourceSheet.Columns.Count).End(xlToLeft).Column
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, 1).End(xlUp).Row
    
    ' 检查源数据是否符合每列8行的要求（含表头则为9行）
    If lastRow - 1 <> 8 Then
        MsgBox "源数据每列需包含8行数据（表头算1行），当前数据行数不符！", vbExclamation
        Exit Sub
    End If
    
    ' 设置源数据范围（跳过表头行，取第2行到最后一行的数据）
    Set sourceDataRange = sourceSheet.Range(sourceSheet.Cells(2, 1), sourceSheet.Cells(lastRow, lastCol))
    
    ' 设置目标工作表的表头（取源表第一列的表头）
    targetSheet.Cells(1, 1).Value = sourceSheet.Cells(1, 1).Value
    targetSheet.Cells(1, 1).Font.Bold = True ' 加粗表头
    
    outputRow = 2 ' 数据从目标表第2行开始
    
    ' 遍历每一列数据
    For Each col In sourceDataRange.Columns
        ' 将当前列数据复制到目标表
        col.Copy targetSheet.Cells(outputRow, 1)
        
        ' 更新输出行位置：当前列数据行数 + 2行空行
        outputRow = outputRow + col.Rows.Count + 2
    Next col
    
    ' 自动调整目标列宽度
    targetSheet.Columns(1).AutoFit
    
    MsgBox "合并完成！结果已保存到""合并结果""工作表。", vbInformation
End Sub

代码说明： #

• 源工作表：默认使用当前活动工作表，若需指定特定工作表，可将Set sourceSheet = ActiveSheet修改为Set sourceSheet = ThisWorkbook.Worksheets("你的工作表名称")。
• 目标工作表：自动创建名为"合并结果"的工作表，若已存在则直接使用。
• 数据检查：代码会验证源数据是否为每列8行（含表头则总行数为9），若不符合会弹出提示并终止运行。
• 表头处理：目标工作表的表头取自源表第一列的表头，若不需要表头可删除相关代码行。
• 空行分隔：每列数据复制完成后，自动预留两行空行，再继续下一列数据的复制。
• 格式优化：自动调整目标列宽度，提升可读性。

使用方法： #

1. 打开包含目标表格的Excel文件。
2. 按下Alt + F11打开VBA编辑器。
3. 插入新模块：右键点击项目资源管理器中的工作簿名称 → 插入 → 模块。
4. 将上述代码粘贴到模块窗口中。
5. 返回Excel界面，按下Alt + F8选择ConsolidateColumnsToSingle宏并执行。

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