VBA里如何可以显示查找到的字符所在的行号

TRUEZHANG

例如我在A列有很多行数据，期中“我”这个字符只可能出现一次或完全没有，我想模糊查找A列的这个字符，如果找到就在B1返回所在行号，如果没有就返回无,不知这样的查找怎样编写？

杨建营

1. Sub finda()
   
2. Dim i&
   
3. i = Columns("a").Find("*我*").Row
   
4. If i Then
   
5.     MsgBox "该字在第" & i & "行。"
   
6. Else
   
7.     MsgBox "未发现该字。"
   
8. End If
   
9. End Sub
   

复制代码

大概是这样吧。请楼主参考。

cyq4896

参与一下...

hourhand

对3楼的代码稍加修改供参考，如下：

1. Sub test()
   
2.     Dim Rng As Range
   
3.     Set Rng = [a:a].Find("*我*")
   
4.     If Not Rng Is Nothing Then
   
5.         [b1] = Rng.Row
   
6.     Else
   
7.         [b1] = "无"
   
8.     End If
   
9. End Sub

复制代码

djp1018

请老师帮忙写个VBA代码，感谢！sheet1中为原始数据，sheet2中只要需要查询的数据（B2单元格）一变动，立马将符合要求的数据提取到D2:G1000区域。