Excel VBA录入学生信息重启后重复写入 如何从上次结束位置续写

问题根源 #

• 原代码中的Static bytrow静态变量仅在Excel当前会话生效，关闭文件后变量值会完全丢失
• 代码每次触发点击事件都强制执行bytrow = 1赋值，所以每次运行都会从第二行开始写入，必然覆盖或重复写入已有条目
• 原代码存在语法错误：单独的Loop关键字没有对应的循环头，直接运行会触发编译报错

修复后的代码 #

Private Sub cmdFirst_Click()
    Dim intCode As Integer
    Dim bytGrade As Byte
    Dim bytrow As Long ' 改用Long类型避免学生数量超过Byte上限（最大255）触发溢出
    
    ' 动态查找A列最后一个非空行号，空表默认从第一行开始
    bytrow = Cells(Rows.Count, "A").End(xlUp).Row
    ' 如果表格第一行是表头，可取消下一行注释调整起始行
    ' If bytrow = 1 And IsEmpty(Cells(1, "A")) Then bytrow = 0
    bytrow = bytrow + 1 ' 跳到最后一行的下一行写入新数据
    
    ' 录入学生编号，增加校验避免空输入
    intCode = Val(InputBox("请输入学生编号", "录入编号"))
    If intCode = 0 Then Exit Sub ' 输入为空或0时直接退出
    
    ' 录入学生成绩，增加合法性校验
    bytGrade = Val(InputBox("请输入学生成绩", "录入成绩"))
    If bytGrade < 0 Or bytGrade > 100 Then
        MsgBox "成绩输入不合法，请输入0-100的数值", vbExclamation
        Exit Sub
    End If
    
    ' 写入对应单元格
    Cells(bytrow, "A") = intCode
    Cells(bytrow, "B") = bytGrade
End Sub

修改说明 #

• 移除了无意义的bytrow = 1强制赋值逻辑，改为每次运行时自动识别已有数据的最后一行，从下一行写入，关闭文件重新打开也能正确识别已有内容不会重复写入
• 删除了无效的Loop关键字，解决语法报错问题
• 变量类型从Byte改为Long，适配更多学生数量的场景
• 增加输入合法性校验，避免无效数据写入表格
• 兼容空表和已有数据的场景，无需手动调整起始行号

可选：连续循环录入版本 #

如果需要一次录入多条数据不用重复点击按钮，可以使用以下版本：

Private Sub cmdFirst_Click()
    Dim intCode As Variant
    Dim bytGrade As Variant
    Dim bytrow As Long
    
    Do
        ' 录入编号，点击取消直接结束录入
        intCode = InputBox("请输入学生编号（点击取消结束录入）", "录入编号")
        If intCode = "" Then Exit Do
        If Not IsNumeric(intCode) Then
            MsgBox "编号必须为数字", vbExclamation
            GoTo continueLoop
        End If
        
        ' 录入成绩
        bytGrade = InputBox("请输入学生成绩", "录入成绩")
        If Not IsNumeric(bytGrade) Or bytGrade < 0 Or bytGrade > 100 Then
            MsgBox "成绩必须为0-100的数值", vbExclamation
            GoTo continueLoop
        End If
        
        ' 写入数据
        bytrow = Cells(Rows.Count, "A").End(xlUp).Row + 1
        Cells(bytrow, "A") = Val(intCode)
        Cells(bytrow, "B") = Val(bytGrade)
continueLoop:
    Loop
End Sub

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