Excel VBA数据录入用户窗体搜索命令误报‘Invalid Data’

核心问题分析 #

你的代码出现输入有效数据仍提示Invalid Data的问题，主要源于两个逻辑缺陷：

1. 判断时机错误：原代码在循环的每一步都检查「当前行不匹配且是最后一行」，这种逻辑不严谨——虽然正常找到匹配后会Exit For跳出循环，但如果数据所在行的后续有特殊情况（比如单元格格式异常），可能触发误判；更关键的是，这种写法无法清晰区分「遍历完所有行都未找到匹配」的场景。

2. CurrentRegion的局限性：Range("A1").CurrentRegion只会识别A1周围连续的非空单元格区域，如果A列中间有空行，后续行的数据会被排除在搜索范围外，此时输入这些行的内容会被误判为无效数据。

修复后的代码 #

Private Sub cmdSearch_Click()
    Dim lastRow As Long, i As Long
    Dim isFound As Boolean
    
    ' 初始化标记为未找到
    isFound = False
    ' 获取A列最后一个非空行的行号（替代CurrentRegion，避免空行导致的范围遗漏）
    lastRow = Worksheets("Sheet2").Cells(Worksheets("Sheet2").Rows.Count, "A").End(xlUp).Row
    
    ' 遍历所有数据行
    For i = 1 To lastRow
        ' 精确匹配（Trim去除前后空格，StrComp确保大小写/格式一致）
        If StrComp(Trim(Sheet2.Cells(i, 1).Value), Trim(TxtSearch.Text), vbTextCompare) = 0 Then
            ' 填充文本框
            TxtLast.Text = Sheet2.Cells(i, 1).Value
            TxtFirst.Text = Sheet2.Cells(i, 2).Value
            ' 这里补充其他10个文本框的填充代码
            isFound = True
            Exit For ' 找到匹配后立即跳出循环
        End If
    Next i
    
    ' 循环结束后统一判断是否找到匹配
    If Not isFound Then
        MsgBox "Invalid data"
        TxtSearch.Text = ""
        TxtSearch.SetFocus
    End If
End Sub

额外优化点 #

• 使用StrComp函数进行比较，通过vbTextCompare参数忽略大小写差异，匹配更灵活。
• 改用Cells(Rows.Count, "A").End(xlUp).Row获取最后一行，彻底避免空行导致的搜索范围缺失问题。
• 增加isFound标记，逻辑更清晰，只有当遍历完所有行都未找到匹配时，才提示无效数据。

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