Excel VBA列复制至后续12列循环受阻，多工作表数据同步求助

我明白你现在卡在VBA循环的环节了，这种复制列内容到后续多列的需求其实很常见，但如果循环条件没设对或者操作逻辑有问题，很容易陷入停滞。结合你描述的工作表结构和需求，我整理了一份可行的代码方案，帮你解决这个问题：

完整VBA代码示例 #

Sub SyncChaptersToMcqResults()
    Dim wsMcq As Worksheet, wsChapters As Worksheet
    Dim lastRowMcq As Long, i As Long, colOffset As Integer
    
    ' 定义工作表对象，避免重复引用
    Set wsMcq = ThisWorkbook.Worksheets("Mcq Results")
    Set wsChapters = ThisWorkbook.Worksheets("Chapters")
    
    ' 获取Mcq Results中Operator_Name列的最后数据行（假设在D列，可根据实际调整）
    lastRowMcq = wsMcq.Cells(wsMcq.Rows.Count, "D").End(xlUp).Row
    
    ' 循环处理固定区域的章节行（A2:A13），复制到后续12列
    For i = 2 To 13
        ' 逐组复制章节编号、名称、项目编号到后续列
        For colOffset = 1 To 12
            ' 直接赋值替代Copy/Paste，避免卡顿和循环异常
            wsMcq.Cells(i, "A").Offset(0, colOffset * 3).Value = wsMcq.Cells(i, "A").Value
            wsMcq.Cells(i, "B").Offset(0, colOffset * 3).Value = wsMcq.Cells(i, "B").Value
            wsMcq.Cells(i, "C").Offset(0, colOffset * 3).Value = wsMcq.Cells(i, "C").Value
        Next colOffset
    Next i
    
    ' 同步Chapters工作表的最新章节信息到Mcq Results
    Dim matchRow As Variant
    For i = 2 To lastRowMcq
        ' 在Chapters中匹配对应章节编号
        matchRow = Application.Match(wsMcq.Cells(i, "A").Value, wsChapters.Columns("A"), 0)
        If Not IsError(matchRow) Then
            ' 更新章节名称（可根据需求添加其他同步字段）
            wsMcq.Cells(i, "B").Value = wsChapters.Cells(matchRow, "B").Value
        End If
    Next i
    
    MsgBox "章节信息同步完成！", vbInformation
End Sub

代码关键说明（避免循环停滞的核心） #

• 明确循环边界：
  • 针对固定的章节行（A2:A13），直接用For i = 2 To 13限定循环次数，从根源避免无限循环。
  • 针对Operator_Name的批量处理，通过lastRowMcq获取实际数据的最后一行，确保循环只处理有效行，不会无意义遍历空行。
• 高效数据操作：
  放弃Select、Copy、Paste这类易引发卡顿和循环异常的操作，直接用单元格赋值wsMcq.Cells(...).Value = ...，不仅速度更快，还能避免剪贴板操作导致的循环停滞。
• 容错处理：
  用IsError(matchRow)判断章节编号匹配是否成功，避免因找不到匹配项导致代码中断，保证循环能完整执行完毕。

注意事项 #

1. 如果你的Operator_Name不在D列，请修改代码中lastRowMcq = wsMcq.Cells(wsMcq.Rows.Count, "D").End(xlUp).Row里的列标识（比如改为"E"）。
2. 如果后续12列的排列逻辑不是每3列一组（编号、名称、项目编号），可以调整colOffset * 3的计算方式，比如改为colOffset直接对应列偏移量。
3. 运行代码前建议先备份工作簿，避免数据意外覆盖。

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