如何编写查找功能中在工作簿范围内查找特定字符串的代码？

作者：绿色风分类：时间：2022-08-17 浏览：115

楼主水星钓鱼	Q：如何编写查找功能中在工作簿范围内查找特定字符串的代码？ A：由于Range对象的Find方法相当于Excel用户界面中的“查找”功能，但是这个方法不能指定一个参数为“在工作簿中查找特定字符串”，一次只能指定一个工作表区域内查找。当需要遍历在工作簿范围内查找到的所有结果时，可以使用如下的代码： '本代码查找工作簿中所有包含“产品料号”字符串的单元格地址 Sub xyf() 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 附件如下：查找工作簿内包含特定字符串的所有单元格.rar
2楼 bluexuemei	学习FIND方法。
3楼老糊涂

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表

楼主水星钓鱼	Q：如何编写查找功能中在工作簿范围内查找特定字符串的代码？ A：由于Range对象的Find方法相当于Excel用户界面中的“查找”功能，但是这个方法不能指定一个参数为“在工作簿中查找特定字符串”，一次只能指定一个工作表区域内查找。当需要遍历在工作簿范围内查找到的所有结果时，可以使用如下的代码： '本代码查找工作簿中所有包含“产品料号”字符串的单元格地址 Sub xyf() 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 附件如下：查找工作簿内包含特定字符串的所有单元格.rar
2楼 bluexuemei	学习FIND方法。
3楼老糊涂