为何Autocomplete_Click搭配Update_Click时VBA Match函数失效？

你的问题核心在于**Autocomplete_Click没有同步更新ListBox1的选中状态**，导致Update_Click依赖的ListBox1.ListIndex指向的不是你通过自动补全找到的那条记录，自然会出现匹配失败的情况。

具体拆解： #

1. ListBox1_DblClick为什么正常？
   当你双击ListBox时，ListIndex会自动指向你点击的那一行，所以Me.ListBox1.List(Me.ListBox1.ListIndex, 0)能准确获取到该行对应的Sheet1 A列值，Match函数自然能找到正确的行号，更新逻辑正常。

2. Autocomplete_Click+Update_Click为什么异常？
   Autocomplete_Click只更新了TextBox4、TextBox1和TextBox8（存储找到的行号），但完全没有修改ListBox1的选中状态：

   • 如果之前没有选中过ListBox，ListIndex的值是-1，此时Me.ListBox1.List(Me.ListBox1.ListIndex, 0)会直接抛出下标越界错误；
   • 如果之前选中过其他行，ListIndex指向旧的选中行，Match函数会用旧行的A列值去查找，自然找不到你当前要更新的记录，或者更新错误的行。

方案一：在Autocomplete_Click中同步选中ListBox对应行 #

修改Autocomplete_Click，找到匹配行后，让ListBox自动选中对应的条目，这样Update_Click的现有逻辑就能正常工作：

Private Sub Autocomplete_Click()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Sheet1")
    Dim Last_Row As Long
    Last_Row = Application.WorksheetFunction.CountA(sh.Range("A:A"))
    Dim w As Long, i As Long ' 新增i变量用于遍历ListBox
    
    For w = 2 To Last_Row
        If sh.Cells(w, 2).Value = Me.TextBox1.Value Then
            Me.TextBox4.Value = sh.Cells(w, 1).Value
            Me.TextBox1.Value = sh.Cells(w, 2).Value
            Me.TextBox8.Value = w
            
            ' 同步选中ListBox中对应的行（假设ListBox第0列对应Sheet1的A列）
            For i = 0 To Me.ListBox1.ListCount - 1
                If Me.ListBox1.List(i, 0) = sh.Cells(w, 1).Value Then
                    Me.ListBox1.ListIndex = i
                    Exit For
                End If
            Next i
            
            Exit Sub
        End If
    Next w
End Sub

方案二：修改Update_Click，不再依赖ListBox的选中状态 #

既然Autocomplete_Click已经把找到的行号存在了TextBox8，或者TextBox4里存了A列的唯一值，我们可以直接用这些值来定位行，彻底摆脱对ListBox的依赖：

Private Sub Update_Click()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Sheet1")
    Dim Selected_Row As Long
    
    ' 优先使用TextBox8中存储的行号（最可靠）
    If IsNumeric(Me.TextBox8.Value) And CLng(Me.TextBox8.Value) >= 2 Then
        Selected_Row = CLng(Me.TextBox8.Value)
        sh.Range("B" & Selected_Row).Value = Me.TextBox1.Value
    Else
        ' 备选：用TextBox4的值做匹配，同时添加错误处理
        On Error Resume Next ' 捕获Match找不到的情况
        Selected_Row = Application.WorksheetFunction.Match(Me.TextBox4.Value, sh.Range("A:A"), 0)
        On Error GoTo 0
        
        If Selected_Row > 0 Then
            sh.Range("B" & Selected_Row).Value = Me.TextBox1.Value
        Else
            MsgBox "未找到对应记录，请检查输入！"
        End If
    End If
End Sub

额外建议 #

• 给Match函数添加错误处理很重要，避免因为找不到匹配值导致程序崩溃；
• 如果Sheet1的A列值可能重复，建议使用行号（TextBox8）来定位，比用Match更准确。

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