VBA中For循环无法遍历全部列范围的问题求助

核心问题 #

代码提前终止遍历的原因是：初始定义的Rng是固定的初始列范围，但每次执行Cut操作后，原工作表的列被移除，导致Rng中后续的单元格引用失效，循环无法继续遍历剩余列。

代码优化建议 #

1. 改用列号循环，避免依赖动态变化的Range

先获取初始总列数，然后按3列一组的步长循环处理，这样不会因列被删除而中断循环：

Sub ProcessColumns()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim totalCols As Integer
    Dim i As Integer
    Dim lastRow As Long
    
    ' 定义工作表对象，避免ActiveSheet的不确定性
    Set wsSource = ThisWorkbook.ActiveSheet ' 可替换为你的源工作表名称
    Set wsDest = ThisWorkbook.Sheets("ConData")
    
    ' 获取第一行最后一列的列号
    totalCols = wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column
    
    ' 处理前3列（A-C）
    lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(lastRow, 3)).Cut _
        wsDest.Cells(wsDest.Rows.Count, 1).End(xlUp).Offset(1, 0)
    
    ' 从第4列开始，每3列一组循环处理
    For i = 4 To totalCols Step 3
        ' 获取当前组第一列的最后一行
        lastRow = wsSource.Cells(wsSource.Rows.Count, i).End(xlUp).Row
        ' 处理当前3列
        wsSource.Range(wsSource.Cells(1, i), wsSource.Cells(lastRow, i + 2)).Cut _
            wsDest.Cells(wsDest.Rows.Count, 1).End(xlUp).Offset(1, 0)
    Next i
End Sub

2. 关键优化点

• 去掉Select操作：直接通过工作表对象引用Range，减少错误且提升运行效率
• 用Rows.Count+End(xlUp)获取最后一行：比End(xlDown)更可靠，不会因中间空行导致数据遗漏
• 固定总列数：初始就获取所有列数，循环时基于列号而非动态变化的Range，确保遍历所有列

3. 额外注意事项

• 确保ConData工作表已存在，且目标区域有足够空间
• 如果原数据中存在空列，初始的totalCols可能不准确，可先清理空列再执行代码

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