如何search数据并返回行号？

我想通过一个数据表来searchx。 我想使用Match函数，但匹配函数只查find一列。 x可以在表单中的任何地方，那么任何函数或任何可以返回可以search所有数据的行号的东西？

我已经在excel中添加了代码，现在出现下标超出范围的错误。 我不确定我是否正确地查找了函数

Dim r As range With Sheets("Sheet2").Range("A:DZU") Set r = .Find(What:="U1") End With 

Answer 1

使用Find函数在下面的代码中Find列“A：DZU”中的"U1" ”。

 Option Explicit Sub FindX() Dim FndRng As Range With Sheets("Sheet2").Range("A:DZU") Set FndRng = .Find(What:="U1", LookIn:=xlValues, LookAt:=xlWhole) If Not FndRng Is Nothing Then ' <-- Find was successful MsgBox "Found `U1` at row " & FndRng.Row Else MsgBox "Unable to find `U1`" End If End With End Sub 

Answer 2

这可能会有所帮助

 Sub GetRowNum() Dim myValue As String myValue = "x" Dim wb As Workbook Dim ws As Worksheet Set wb = ActiveWorkbook Set ws = ActiveSheet Debug.Print ws.Range("A:Z").Find(myValue).Row End Sub 

编辑：添加可视化print