有多种办法，常用以下三种方法：
1、用Fund方法
R = Range("AX5:AX1000").Find(Range("BA2"), , , 1).Row
2、使用工作表函数容器中的Match函数
R = Application.WorksheetFunction.Match(Range("BA2"), Range("AX5:AX1000"), 0) + 4
3、用循环比较的方法（代码略）
Sub a()
Dim a
For a = 5 To 1000
If Cells(2, 53) = Cells(a, 50) Then
MsgBox a
Exit For
End If
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024