请高手指点:用excel vba 如何用find在一列内进行精确判断。也就是在一列内精确判断一字符

Question

请高手指点:用excel vba 如何用find在一列内进行精确判断。也就是在一列内精确判断一字符串是否存在。我想用这一结果作为下一步的分支条件

Answer 1

FIND里面有个参数是单元格匹配，设置这个参数就可以精确匹配了。追问

能具体举例吗，谢谢

追答

Sub 扣1722187970()
Dim oWS As Worksheet
Dim oRng As Range
Dim s1st As String
'遍历当前工作簿的所有工作表
For Each oWS In ThisWorkbook.Worksheets
'在每个工作表的使用区域查找
With oWS.UsedRange
'将第一个查找到的结果单元格赋值给oRng变量
Set oRng = .Find(what:="产品料号")
'判断是否找到要查找的单元格，如果是才继续执行
If Not oRng Is Nothing Then
'提取第一个查找到的结果单元格的地址
s1st = oRng.Address
Do
'这里输入要对每个查找到的单元格执行的操作，这里是弹出查找到单元格的地址
MsgBox oRng.Address(, , , True)
'在一个工作表内遍历所有要查找的单元格
Set oRng = .FindNext(oRng)
'如果查找重头开始，则退出此次查找
Loop While oRng.Address s1st
End If
End With
Next oWS
End Sub

本回答被提问者采纳