Моя функция поиска для диапазона продолжает работать со 2-го экземпляра. Что я делаю не так?

Question

Я пытаюсь найти массив, затем внести коррективы в найденную строку.Поиск начинается со 2-го экземпляра того, что было найдено, как мне сделать это первым экземпляром?

val = MySheet.Range("B8")
With MySheet.Range("MyList")
Set Loc = .Find(val, LookAt:=xlWhole, SearchOrder:=xlByRows)

Do
ListPos = Loc.Row
MyVal = MySheet.Cells(ListPos, 6).Value
MsgBox ListPos

Val = x MyList = {x, z, y, f, g, x, x} (только диапазон из 1 столбца, который я назвал)

MsgBox всегда показывает значение строки 2-го экземпляра в массиве

Я пытался использовать порядок поиска и пытался использоватьПосле: = 0, это не помогло

Я ожидал, что ListPos будет 1, вместо этого он всегда будет 6

Answer 1

Я думаю, вам нужен After:= пример ниже.

Set foundMatch = .Find(What:=cellCriteria, After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False) 'finds a match