vba用find查找并返回行值

在 VBA 中使用 Find 方法可以在指定的范围内查找一个特定的值或者字符串，并返回匹配到的单元格或者区域。如果你需要查找并返回某个值所在的行号，可以在 Find 方法的基础上进行一些扩展。以下是一种实现方式：

Sub FindRow()
    Dim searchRange As Range
    Dim findValue As Variant
    Dim foundCell As Range
    Dim foundRow As Long
    '设置查找范围和查找值
    Set searchRange = Range("A1:A100")
    findValue = "search_value"
    '使用Find方法查找
    Set foundCell = searchRange.Find(what:=findValue, LookIn:=xlValues, lookat:=xlWhole)
    '判断是否找到
    If Not foundCell Is Nothing Then
        '如果找到，获取该单元格所在的行号
        foundRow = foundCell.Row
        MsgBox "找到了" & findValue & "在第" & foundRow & "行"
        MsgBox findValue & "未找到"
    End If
End Sub
在上面的代码中，我们首先定义了一个 searchRange 变量，该变量表示需要在哪个范围内进行查找。然后，我们定义了一个 findValue 变量，该变量表示需要查找的值。在 Find 方法中，我们使用了这两个变量，并指定了需要查找的值的匹配方式。如果找到了匹配的单元格，我们就可以获取它所在的行号并将其存储在 foundRow 变量中。最后，我们可以将行号输出到消息框中，或者将其用于其他用途。
需要注意的是，在使用 Find 方法查找字符串时，需要将 LookIn 参数设置为 xlValues，将 lookat 参数设置为 xlWhole，以确保只有当完全匹配时才会返回匹配的单元格。如果查找的是数值，可以将 LookIn 参数设置为 xlFormulas，以便查找公式中的数值。
希望这个例子对你有所帮助！