在.Find函数VBA excel中查找作为单元格值一部分的文本

时间:2015-08-19 13:47:06

标签: excel vba excel-vba

我有类似下面的代码,但我有问题,我不知道如何找到SomeText包含在单元格值中的行。如果我的解释不清楚示例:SomeText = 1200并且想获得行索引,其中单元格值如下:1200.0和1200.1。在此先感谢您的帮助。

Set cell1 = Selection.Find(What:=SomeText, After:=ActiveCell, LookIn:=xlValues, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)

1 个答案:

答案 0 :(得分:1)

只需将LookAt:=xlWhole更改为LookAt:=xlPart

即可
Set cell1 = Selection.Find(What:=SomeText, After:=ActiveCell, LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)