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

我有像下面的代码，但我有问题，我不知道如何find行中的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)