如何在多行转单列的VBA代码中为每个插入区域添加间隔空行？

当然可以在每个区域之间插入空行！我先帮你修正原代码里的几处小问题，再实现你要的分隔效果～

首先说下原代码里的明显问题：For j = 5 To j + 1这个循环条件是错误的，这样循环根本没法正常执行，应该改成从第5列遍历到当前行的最后一列。

下面是修改后的完整代码，已经加入了区域间空行的逻辑：

Sub RangetoColumnWithBlankRows()
    Dim LastRow As Long, LastColumn As Long
    Dim CurrentSheet As Worksheet, TargetSheet As Worksheet
    Dim i As Long, j As Long, Count As Long
    
    Set CurrentSheet = ThisWorkbook.Worksheets("sheet1")
    Set TargetSheet = ThisWorkbook.Worksheets("sheet2")
    
    ' 先清空目标列，避免旧数据干扰
    TargetSheet.Range("A:A").ClearContents
    
    LastRow = CurrentSheet.Cells(Rows.Count, "A").End(xlUp).Row
    Count = 1
    
    ' 遍历Sheet1从第2行开始的每一行（对应你原代码的1+1）
    For i = 2 To LastRow
        LastColumn = CurrentSheet.Cells(i, Columns.Count).End(xlToLeft).Column
        
        ' 把当前行第5列到最后一列的内容逐行复制到Sheet2的A列
        For j = 5 To LastColumn
            TargetSheet.Range("A" & Count).Value = CurrentSheet.Cells(i, j).Value
            Count = Count + 1
        Next j
        
        ' 除了最后一行，每处理完一个区域就插入一个空行
        If i <> LastRow Then
            Count = Count + 1
        End If
    Next i
End Sub

关键改动说明： #

• 修正了列循环的条件，确保能正确遍历当前行的所有目标列
• 增加了清空Sheet2 A列的步骤，避免之前的残留数据影响结果
• 在每一行（原Sheet1的行对应一个区域）处理完成后，通过Count = Count + 1插入空行，同时加了判断，避免最后一行处理完后多出来一个多余的空行
• 把原代码里的1 + 1简化为2，让代码更易读

你直接运行这个修改后的宏，就能得到带空行分隔的单列数据啦～

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