求大神帮助使用vba跨表在范围内查询制定值所在行的首列数据

zjlh19872

之前使用=INDEX(A:A,SUMPRODUCT(($B$2:$ARX$42297=A42300)*ROW($2:$42297))) 来查找某单元格所在行的首列数据，但是总是会卡死。
求大神帮忙看看能否使用vba来实现，在sheet2的B列中查询A列数据在sheet1表中所在行的第一个单元格。（如果查找不到就返回0或者N/A）
如：

liulang0808

欢迎新朋友

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     For J = 1 To Cells(Rows.Count, 1).End(3).Row
   
4.         Set Rng = Sheet1.UsedRange.Find(Cells(J, 1).Value, lookat:=xlWhole)
   
5.         If Rng Is Nothing Then
   
6.             Cells(J, 2) = "N/A"
   
7.         Else
   
8.             Cells(J, 2) = Sheet1.Cells(Rng.Row, 1)
   
9.         End If
   
10.     Next J
    
11.     Application.ScreenUpdating = True
    
12. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。