[已解决]请问如何通过一个包含通配符的字符串定位到对应内容单元格？

vividboy

大家好。我在一个Sheet中希望能找到包含内容，诸如：“川消牌SXF5070GXFPM30W型泡沫消防车图片"
由于我已经知道型号，想通过“*SXF5070GXFPM30W*图片”的方式对应单元格对象。

但是好像在VBA中，Find方法不支持通配符。不知道如何实现这个功能。谢谢！

demo.rar (29.96 KB, 下载次数: 4)

2015-4-1 16:02 上传

点击文件名下载附件

附件是我的测试数据，我要找到“川消牌SXF5070GXFPM30W型泡沫消防车图片”所在的单元格。
如果不通过循环，有好的方法吗？谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2015-4-1 16:19

Sub test()
    Dim x As Range
    Dim str As String

    str = "SXF5070GXFPM30W"
    Set x = Range("a:a").Find("*" & str & "*图片")
    If x Is Nothing Then MsgBox "没找到" Else MsgBox x.Address
End Sub

demo2.rar (37.71 KB, 下载次数: 22)

2015-4-1 16:19 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

InStr 函数

返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

vividboy

爱疯 发表于 2015-4-1 15:38
InStr 函数

返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

爱疯，你好！

这个函数我看了下帮助。

我想再说明下，我是一个Sheet中的第一列包含了很多信息。
我想找到包含我所需要信息的【单元格对象】。

我原来是用Find函数查找的。我现在还没想到InStr如何实现此功能。

爱疯

最好上传附件，提供部分数据及结果，才好理解题目的需求。

vividboy

爱疯 发表于 2015-4-1 15:58
最好上传附件，提供部分数据及结果，才好理解题目的需求。

爱疯，我上传了附件（增加了说明）。麻烦啦。

爱疯

Sub test()
    Dim x As Range
    Dim str As String

    str = "SXF5070GXFPM30W"
    Set x = Range("a:a").Find("*" & str & "*图片")
    If x Is Nothing Then MsgBox "没找到" Else MsgBox x.Address
End Sub

demo2.rar (37.71 KB, 下载次数: 22)

2015-4-1 16:19 上传

点击文件名下载附件

vividboy

爱疯 发表于 2015-4-1 16:19
Sub test()
    Dim x As Range
    Dim str As String

感谢爱疯。看来Find是可以用通配符的。