VBA查找行号报错：下标越界问题求助

让我们一步步拆解你的问题，找出问题所在并修复：

核心错误点分析 #

1. 变量类型不匹配：你把lrow定义为String类型，但Range.Find()方法返回的是一个Range对象（找到的目标单元格），找不到时会返回Nothing。用字符串类型接收这个结果，后续操作必然出错。
2. 参数拼写错误：LookIn:=x1Values里的x1是数字1，正确的参数应该是xlValues（小写字母L），这个拼写错误会直接导致Find方法无法正常执行查找逻辑，返回空值。
3. 缺少空值判断：即便目标值存在，一旦Find因参数错误返回Nothing，后续访问Range(lrow,8)就会触发“下标越界”错误，必须先判断是否找到有效结果。

修正后的完整代码 #

Private Sub CommandButton1_Click()
    Dim answer As Integer
    Dim foundCell As Range ' 改为Range类型接收查找结果
    answer = MsgBox("Do you wish to amend this absence?", vbYesNo, "Proceed?")
    
    If answer = vbYes Then
        ' 修正参数拼写，同时添加精准匹配参数确保查找准确性
        Set foundCell = Sheets("Log").Range("A:A").Find( _
            What:=UserForm3.TextBox2.Value, _
            LookIn:=xlValues, _
            LookAt:=xlWhole ' 可选：如果需要完全匹配单元格内容，保留该参数；模糊匹配则改为xlPart
        )
        
        ' 先判断是否找到目标单元格，避免空值操作报错
        If Not foundCell Is Nothing Then
            ' 通过找到的单元格行号定位第8列（H列）并赋值
            Sheets("Log").Cells(foundCell.Row, 8).Value = UserForm3.TextBox1.Value
            MsgBox "记录修改成功！" ' 可选：添加操作反馈提升体验
        Else
            MsgBox "未找到匹配的记录，请检查输入内容！"
        End If
    End If
End Sub

额外优化说明 #

• LookAt:=xlWhole参数：如果你的A列存储的是需要精确匹配的内容（比如员工ID、唯一编号），这个参数可以避免部分匹配导致的错误查找；如果需要模糊匹配（比如包含某段文本），可以改成xlPart。
• 变量命名优化：把lrow改成foundCell，更直观地表达变量的用途，便于后续维护代码。

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