求助在不同工作表中查找并定位的宏代码

取名真难

求助查找并定位单元格的宏代码.rar (9.23 KB, 下载次数: 3)

2023-2-24 13:41 上传

点击文件名下载附件

盼盼198310

.............

tanglf188

1. Sub findstr()
   
2.     If Sheet1.[B2] = "" Then Exit Sub
   
3.     Set findcell = Sheet2.Range("A:A").Find(Sheet1.[B2], LookAt:=xlWhole)
   
4.     If Not findcell Is Nothing Then
   
5.         Sheet2.Range("A" & findcell.Row).Select
   
6.     Else
   
7.         MsgBox "没找到符合条件的单元格!", 48, "提示信息"
   
8.     End If
   
9. End Sub

复制代码

sxbjzjf110