Excel VBA宏按钮开发：点击切换至下一行，遍历完成后提示

原代码问题分析 #

• 循环逻辑错误：原代码用For i=2 To lastRow会一次性遍历所有行，不符合「点击一次切换一行」的交互需求
• 行判断逻辑错误：rng.Row = "A" & i是数字与字符串的无效比较，永远不会成立
• 工作表名称不匹配：原代码调用Sheets("PersonalRet")，实际目标工作表名为PersonRet
• 状态未持久化：每次点击按钮时notFirst和rng变量会被重置，无法记住上次操作的行位置
• 最后一行计算错误：原代码错误读取Merge工作表的最后一行，实际应读取数据所在的PersonRet表

修复后的代码 #

首先在VBA模块的最顶部声明模块级变量，用于持久化当前行状态：

' 模块级变量，保存当前选中的行号，跨点击操作保留状态
Private currentRow As Integer

然后替换按钮绑定的子过程：

Sub Next_Click()
    Dim wsPersonRet As Worksheet
    Dim lastRow As Integer
    
    ' 直接引用目标工作表，避免使用Select操作提升稳定性
    Set wsPersonRet = ThisWorkbook.Worksheets("PersonRet")
    
    ' 获取PersonRet表A列的最后数据行号
    lastRow = wsPersonRet.Cells(wsPersonRet.Rows.Count, "A").End(xlUp).Row
    
    ' 初始化：第一次点击从第2行开始
    If currentRow = 0 Then
        currentRow = 2
    Else
        ' 每次点击推进一行
        currentRow = currentRow + 1
    End If
    
    ' 判断是否到达最后一行
    If currentRow > lastRow Then
        MsgBox "Sorry: you've already reached the end"
        ' 锁定在最后一行，避免重复触发提示
        currentRow = lastRow
        Exit Sub
    End If
    
    ' 选中当前行的A-K列（可选，用于可视化当前行位置）
    wsPersonRet.Range("A" & currentRow & ":K" & currentRow).Select
    
    ' 若需触发打印，可在此调用你的打印信函子程序
    ' Call PrintLetter
End Sub

关键修改说明 #

• 用模块级变量currentRow保存行状态，确保每次点击能记住上次操作位置
• 直接引用工作表对象，摒弃Select操作，提升代码运行效率与稳定性
• 正确读取PersonRet表的最后数据行，避免逻辑错位
• 简化交互逻辑：每次点击仅推进一行，到达末尾时弹出提示并锁定状态

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