如何通过VBA实现Excel数据复制到指定间隔行的其他工作表？

你当前代码的核心问题是目标行的判断逻辑错误：原代码用i Mod interval = 0会选中6、12、18这类能被6整除的行，但你需要的是从第2行开始，每间隔6行的行（2、8、14...），所以判断条件不符合需求。

修正后的基础版代码 #

Sub CopyData()
    ' 定义要复制的数据区域
    Dim dataRange As Range
    Set dataRange = Range("A1:E1")

    ' 起始行与间隔行数
    Dim startRow As Integer
    Dim interval As Integer
    startRow = 2
    interval = 6

    ' 循环匹配目标行
    Dim i As Integer
    For i = startRow To 1000
        ' 关键修正：判断当前行是否为起始行+N倍间隔的目标行
        If (i - startRow) Mod interval = 0 Then
            dataRange.Copy Cells(i, 2)
        End If
    Next i
End Sub

优化版代码（更高效+避免工作表歧义） #

如果涉及多工作表操作，或需要更高执行效率，建议直接按间隔跳行循环，并明确指定源和目标工作表：

Sub CopyData_optimized()
    ' 指定源工作表和数据区域
    Dim sourceSheet As Worksheet
    Set sourceSheet = ThisWorkbook.Sheets("源数据")
    Dim dataRange As Range
    Set dataRange = sourceSheet.Range("A1:E1")

    ' 指定目标工作表
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Sheets("目标表")

    ' 起始行与间隔行数
    Dim startRow As Integer
    Dim interval As Integer
    startRow = 2
    interval = 6

    Dim currentRow As Integer
    currentRow = startRow
    ' 循环直到超过设定的最大行（可按需调整1000这个值）
    Do While currentRow <= 1000
        dataRange.Copy targetSheet.Cells(currentRow, 2)
        currentRow = currentRow + interval
    Loop
End Sub

关键说明 #

1. 基础版通过(i - startRow) Mod interval = 0确保选中startRow、startRow+interval、startRow+2*interval...的目标行；
2. 优化版直接按间隔跳行，无需逐行判断，执行效率更高；
3. 明确指定工作表可以避免因当前激活工作表变化导致的复制错误。

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