查找属于单元格值的文本。查找函数VBA excel

Question

我有类似下面的代码，但我遇到了问题，我不知道如何查找其中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) 

Answer 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)