VBA循环函数开发：实现数据转换并解决跳行执行问题

目标是构建VBA循环函数，将Sheet1的数据转换为Sheet3的目标格式。已编写部分代码，核心疑问：如何在VBA中实现处理3行数据后跳至第6行继续处理？

数据与格式说明 #

Sheet1（数据源） #

当前Sheet2输出 #

目标Sheet3输出 #

已编写代码 #

Sub Fill_Data()
    
    Sheet2.Activate
    Set ws = Sheets("Sheet1")
    Set ws2 = Sheets("Sheet2")
    emptyrow = Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    Dim i As Integer
    
    For i = 1 To 3
      ws.Cells(i, 1).Copy
      ws2.Cells(emptyrow, i).PasteSpecial
    Next i
    emptyrow = emptyrow + 1
    
    
End Sub

利用步长循环控制每组数据的起始行，同时优化代码效率（避免不必要的工作表激活操作），即可实现需求。

修改后的代码如下：

Sub Fill_Data_To_Sheet3()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim startRow As Integer
    Dim targetRow As Integer
    
    ' 绑定数据源和目标工作表
    Set wsSource = Sheets("Sheet1")
    Set wsTarget = Sheets("Sheet3")
    
    ' 初始化目标行：表头行下第一行（假设Sheet3已提前设置好表头）
    targetRow = 2
    
    ' 按每组5行的步长循环（3行有效数据+2行空行）
    For startRow = 1 To wsSource.Cells(Rows.Count, 1).End(xlUp).Row Step 5
        ' 跳过空起始行，避免无效处理
        If wsSource.Cells(startRow, 1).Value <> "" Then
            ' 直接赋值写入目标列，替代复制粘贴提升效率
            wsTarget.Cells(targetRow, 1).Value = wsSource.Cells(startRow, 1).Value
            wsTarget.Cells(targetRow, 2).Value = wsSource.Cells(startRow + 1, 1).Value
            wsTarget.Cells(targetRow, 3).Value = wsSource.Cells(startRow + 2, 1).Value
            
            ' 目标行下移，准备写入下一组数据
            targetRow = targetRow + 1
        End If
    Next startRow
End Sub

关键说明 #

1. 步长控制：Step 5 让循环从第1行处理后直接跳到第6行，完美匹配你的数据分组结构；
2. 高效操作：直接给单元格赋值替代Copy/PasteSpecial，同时避免Activate操作，提升代码运行速度和稳定性；
3. 空值判断：过滤掉数据源末尾的空行，防止无效写入。

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