VBA宏开发需求：将单列数据按3单元格一组转成行并循环执行

我明白你的需求：要把N列里每3个连续单元格作为一条记录，按N1→A2、N2→D2、N3→C2的规则复制到同一行，并且自动循环直到N列没有数据为止。

先说说你现有代码的小问题：依赖Select和Paste操作不仅运行效率低，还容易因为工作表切换等情况出错。咱们直接用更高效稳定的单元格赋值方式来实现循环逻辑，代码如下：

Sub CopyNColumnToRows()
    Dim lastRow As Long
    Dim i As Long
    Dim targetRow As Long
    
    ' 获取N列最后一行的行号
    lastRow = Cells(Rows.Count, "N").End(xlUp).Row
    
    ' 初始化目标行从第2行开始
    targetRow = 2
    
    ' 循环处理每3个N列单元格为一组，步长设为3
    For i = 1 To lastRow Step 3
        ' 检查当前组的第一个单元格是否有数据（避免最后一组不足3个的情况）
        If Cells(i, "N").Value <> "" Then
            ' 直接赋值替代复制粘贴，更高效
            Cells(targetRow, "A").Value = Cells(i, "N").Value
            Cells(targetRow, "D").Value = Cells(i + 1, "N").Value
            Cells(targetRow, "C").Value = Cells(i + 2, "N").Value
            
            ' 目标行下移一行，准备下一组数据
            targetRow = targetRow + 1
        End If
    Next i
End Sub

代码逻辑拆解： #

• 自动检测数据边界：lastRow = Cells(Rows.Count, "N").End(xlUp).Row 会自动定位N列最后一个有数据的单元格，不用你手动指定循环结束位置。
• 分组循环处理：For i = 1 To lastRow Step 3 以3为步长循环，刚好把每3个N列单元格划分为一条记录。
• 高效赋值替代复制粘贴：直接通过Cells(targetRow, "A").Value = Cells(i, "N").Value完成值传递，比Select+Paste快得多，也不会因为工作表激活状态变化而出错。
• 目标行自动下移：每处理完一组数据，targetRow自动加1，确保下一组数据放到新的一行里。

如果N列最后一组不足3个单元格，代码会自动跳过空值的情况，避免报错。

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