VBA For循环计数器cntr异常：初始值11首次进入循环变为102

在VBA的For循环中，计数器变量cntr初始值被设置为11，但首次进入循环时它的值却变成了102，与预期的11不符，无法理解其中的原因。

调试窗口截图：

相关代码：

Public Sub show_NNN_expenses()
    Dim StartRow As Integer, LastRow As Integer, isCamRow As Integer, ii As Integer, cntr As Integer
    
    StartRow = 11
    LastRow = 200
    ii = 0
    cntr = 11
Debug.Print ("Starting")
    'Loop through the rows
    For ii = StartRow To LastRow
Debug.Print ("StartRow " & StartRow & " Last Row: " & LastRow & " Current Row " & ii & " Cntr: " & cntr)
        'hide rows not "NNN" or "CAM"
        isCamRow = InStr(1, Cells(cntr, 1).Value, "CAM")
Debug.Print ("isCamRow " & isCamRow)

        If isCamRow > 0 Then
            'show row
           ' Cells(ii, 1).EntireRow.Hidden = False
        Else
            'hide row
           ' Cells(ii, 1).EntireRow.Hidden = True
            
        End If
        
        cntr = cntr + 1
    Next ii
        
End Sub

核心原因：变量作用域冲突 #

你代码里的cntr是过程级局部变量，但如果工作簿内存在同名的全局变量（比如模块顶部定义的Public cntr As Integer），或者其他正在运行的宏、事件过程修改了这个变量，就会出现初始值被覆盖的情况。VBA中全局变量的优先级会覆盖过程内的同名局部变量。

另外两种可能：

• 之前运行的宏残留了cntr的全局变量值（全局变量在工作簿关闭前不会自动重置）
• cntr = 11执行后，有隐藏的事件代码（比如工作表激活、单元格变更事件）修改了它的值

解决步骤 #

1. 强制变量声明：在模块顶部添加Option Explicit，VBA会强制检查所有变量的定义，避免隐式的全局变量冲突。
2. 重命名局部变量：把过程里的cntr改成独特的名字，比如rowCounter，彻底避免和全局变量重名。
3. 排查全局变量：检查所有模块的顶部，有没有定义Public cntr As Integer或Global cntr As Integer，如果有，要么修改全局变量名，要么避免在过程中使用同名变量。
4. 显式重置变量：在设置cntr = 11前先执行cntr = 0，不过这只是临时 workaround，根源还是要解决变量作用域问题。

修改后的示例代码：

Option Explicit

Public Sub show_NNN_expenses()
    Dim StartRow As Integer, LastRow As Integer, isCamRow As Integer, ii As Integer, rowCounter As Integer
    
    StartRow = 11
    LastRow = 200
    ii = 0
    rowCounter = 11
Debug.Print ("Starting")
    'Loop through the rows
    For ii = StartRow To LastRow
Debug.Print ("StartRow " & StartRow & " Last Row: " & LastRow & " Current Row " & ii & " Cntr: " & rowCounter)
        'hide rows not "NNN" or "CAM"
        isCamRow = InStr(1, Cells(rowCounter, 1).Value, "CAM")
Debug.Print ("isCamRow " & isCamRow)

        If isCamRow > 0 Then
            'show row
           ' Cells(ii, 1).EntireRow.Hidden = False
        Else
            'hide row
           ' Cells(ii, 1).EntireRow.Hidden = True
            
        End If
        
        rowCounter = rowCounter + 1
    Next ii
        
End Sub

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