求助：基于计数器切换条件的Excel VBA For循环实现

需求概述 #

要实现的功能：

• 遍历Excel工作表的指定列，按固定间隔提取数据并写入目标表
• 通过计数器控制每提取固定数量数据后切换行/列
• 当遍历到指定列时，直接退出整个循环

现有代码的问题 #

你写的代码思路方向是对的，但存在几个容易引发bug的问题：

1. WsFromColNumCrnt、Count等变量未声明，VBA若未开启强制声明，很容易因变量名拼写错误导致隐性问题
2. 计算最后一行的方式不严谨，Range("C100000:Z100000").End(xlUp).Row如果数据行数超过100000会漏统计，且多列取最后一行应该取最大行号
3. 切换源列后，目标列的起始位置未重置，会导致后续列的数据写到之前列的末尾，而非新行开头
4. X = X是无效代码，且切换列后源行的起始位置未重置，会导致下一列提取的起始行偏移

修复优化后的代码 #

Option Explicit

Sub PayRollCleans()
    Dim i As Long, icount As Long
    Dim ilastrow As Long
    Dim wsFrom As Worksheet, wsTo As Worksheet
    Dim WsFromColNumCrnt As Long, WsToColNumCrnt As Long
    Dim Count As Long, X As Long
    
    ' 指定源工作表和目标工作表
    Set wsFrom = ThisWorkbook.Sheets("Model Sheet")
    Set wsTo = ThisWorkbook.Sheets("Sheet1")
    
    ' 精准获取C到Z列的最后一行（定位最后一个非空单元格的行号）
    ilastrow = wsFrom.Range("C:Z").Find(What:="*", _
        SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    ' 初始化变量
    icount = 1 ' 目标表的起始行
    WsFromColNumCrnt = 3 ' 源表起始列（C列）
    WsToColNumCrnt = 1 ' 目标表起始列（A列）
    Count = 0 ' 数据计数
    X = 11 ' 源表起始行
    
    ' 循环处理每一列，直到Z列（26）停止
    Do While WsFromColNumCrnt <= 26
        ' 按22行的间隔提取当前列的数据
        For i = X To ilastrow Step 22
            ' 将源表数据写入目标表对应位置
            wsTo.Cells(icount, WsToColNumCrnt) = wsFrom.Cells(i, WsFromColNumCrnt)
            
            WsToColNumCrnt = WsToColNumCrnt + 1
            Count = Count + 1
            
            ' 每写入70个数据就切换到目标表的下一行
            If Count = 70 Then
                icount = icount + 1
                Count = 0
            End If
        Next i
        
        ' 切换到源表的下一列
        WsFromColNumCrnt = WsFromColNumCrnt + 1
        ' 重置目标表的起始列回到A列
        WsToColNumCrnt = 1
        ' 重置源表的起始行回到11行
        X = 11
    Loop
End Sub

优化说明 #

• 添加Option Explicit强制声明所有变量，避免因拼写错误导致的隐性bug
• 改用Find方法获取最后一行，比固定行号的方式更可靠，适配任意数据行数
• 将列切换与行内数据提取拆分为两层循环，逻辑更清晰，降低混乱概率
• 切换列时重置目标列和源行的起始位置，确保数据写入位置准确
• 移除无效代码，简化逻辑结构

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