justice85там не указан "второй по счету findnext"
если запустить два раза - будет второй по счету.

а вообще - давай конкретику, что не получается, а то писать за тебя всю программу, как видно, ни у кого желание не возникло.

justice85нужно именно без "запустить два раза "это что, такое условие задачи? Почему нельзя?

justice85правильные(работающие) коды:
Range("a1:a10").Find("2", LookIn:=xlFormulas).Activate
Cells.FindNext(After:=ActiveCell).Activate
__
comment: при "бегущем" Worksheets(i) наш activate не уместен
Ну правильно - так правильно. Просто не надо использовать Activate

justice85Спасибо за After:=found "Shocker.Pro

как теперь понимать то что он находит т.е. как понимать found (англ.перевод знаю)
как скорректировать?:
found.cut
found.Paste Destination:=Worksheets(i).Range("B1")

еррор: object required

Может следовало бы сначала изучить основы программирования и языка?
found - это переменная, которую я сам и объявил. Я мог назвать ее "хрен" - это не меняет сути дела.
Тип этой переменной диапазон ячеек. В данном случае - найденный.

Copy/Paste не стоит использовать для таких целей - зачем буфер обмена забивать?

justice85по поводу found, вообще хотел написать: "как глубже понять объект found, что можно с ней "натворить" "(ну ладно, я сам ее точнее изучу)

еще раз - found - это произвольное название переменной.
Изучать надо Range - это основной объект при работе с экселем. Он представляет собой диапазон ячеек (в частном случае - одну ячейку).
В данном случае ссылку на ячейку возвращает метод Find[Next] - то есть после выполнения Find[Next] в переменной оказывается ссылка на найденную ячейку.

justice85мне таки нужно узнать при, скажем, findnext(четвертый по счету) то будет так?:

Set found = Worksheets(i).Range("a1:a10").Find("2", LookIn:=xlFormulas)
Set found = Worksheets(i).Cells.FindNext(After:=found)
Set found = Worksheets(i).Cells.FindNext(After:=found)
Set found = Worksheets(i).Cells.FindNext(After:=found)
да, в простом случае
можно использовать всякие изощрения, но в данном случае в них нет смысла

justice85Sub SP()
Dim found As Range
Set found = Worksheets(1).Range("a1:a10").Find("2", LookIn:=xlFormulas)
Set found = Worksheets(1).Cells.FindNext(After:=found)
Worksheets(1).Range("B1") = found
End Sub

А не пора ли уже прочитать правила форума и наконец начать оформлять правильно код (ну хотя бы посмотреть, как я это делаю)

justice85F5
run-time error 5
invalid procedure call or argument
причем если этот же 4-х строчный код запустить в новом 1.xls файле, то действительно переставляет в B1 вторую двойку
Стало быть код правильный.
при F5 курсор должен стоять внутри процедуры
ну или выложи файл, в котором не работает.

Так это.
В твоем файле двойки нет вообще.
Первый поиск ее не находит.
Соответственно, на втором поиске возникает ошибка, так как found=Nothing в этот момент.
Если предполагаются такие ситуации, естественно, нужно вводить проверки после поисков, а нашлось ли чего либо.

justice85Ну все вроде:
Ну не все. Код так и не научился правильно оформлять, неужели так сложно нажать кнопку "цитировать"?

justice85
Оригинальный ход.
А для чего это, поделись опытом ))

justice85авторWorksheets(i).Cells(a, b).Cut
Worksheets(i).Range("B1").Select
ActiveSheet.Paste

т.к. мне в действительности нужно через параметры a,b где(a = found.Row, b = found.Column)

ну и кто мешает?

justice85еще один вопрос:как поставить на "B1" при "бегущем" Worksheets(i) ?
что поставить?

скукотищаShocker.Pro,
загляни под крышечку спойлер
заглядывал, это не прояснило мне суть вопроса автора.

Ты меня вообще запутал.
Я оставил на совести автора доделки, дав ему только удочку (ибо я - не Скукотища)
Ты ему сделал нормальную законченную функцию, которая возвращает Row.

Но что ТЫ хотел сказать МНЕ я не понял.