ListBox记录更新报错求助：点击保存修改时出错（附VBA代码）

让我帮你排查一下代码里的问题，这些应该就是导致保存出错的核心原因：

代码里的关键问题 #

• 行索引完全错位：你的ListBox索引i从0开始，对应工作表的第i+1行（因为你写了Rows(i + 1).Select），但给Sheet.Cells(i, 1)赋值时却用了i作为行号，这会把数据写到上一行，直接导致数据位置错误，必然引发问题。
• 工作表引用模糊：直接用Sheet是不明确的引用，Excel无法确定你指向的是哪个工作表，很容易触发对象引用错误，必须指定具体的工作表（比如Sheet1或者ThisWorkbook.Worksheets("你的数据表名")）。
• 循环范围兼容性差：Range("A65356").End(xlUp).Row是旧版Excel的写法，新版Excel最大行数是1048576，换成Rows.Count能适配所有版本。
• 缺少选中状态判断：如果用户没选中ListBox里的任何记录，循环会空跑，还可能出现无意义的错误，最好先检查是否有选中项。

修正后的完整代码 #

Private Sub cmdSave_Click()
    Dim i As Integer
    Dim ws As Worksheet
    ' 指定具体工作表，替换成你实际使用的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 先检查是否选中了记录
    If lstDisplay.ListIndex = -1 Then
        MsgBox "请先选中一条记录再保存！", vbExclamation
        Exit Sub
    End If
    
    ' 遍历ListBox项，找到选中的那条
    For i = 0 To lstDisplay.ListCount - 1
        If lstDisplay.Selected(i) Then
            ' 行号用i+1，和Rows(i+1)保持一致，修正索引错位问题
            ws.Cells(i + 1, 1) = txtSearch.Text
            ws.Cells(i + 1, 2) = txtLname.Text
            ws.Cells(i + 1, 3) = txtFname.Text
            ws.Cells(i + 1, 4) = txtCourse.Value
            ws.Cells(i + 1, 5) = txtYear.Value
            ' 单选模式下，找到选中项后直接退出循环，提升效率
            Exit For
        End If
    Next i
    
    ' 刷新ListBox，让修改后的记录立刻显示
    lstDisplay.Requery
    MsgBox "记录已成功更新！", vbInformation
End Sub

额外优化说明 #

• 因为你是单选记录，找到选中项后用Exit For跳出循环，不用遍历所有项，操作更高效。
• 增加了提示框，让用户清楚当前操作的结果，交互更友好。
• 最后调用lstDisplay.Requery刷新ListBox，确保修改后的记录能立刻在列表中显示出来。

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