вопрос по циклу for each..in..next

[kooleer]

Всем привет
у меня возникла проблемка с цыклом for each..in..next, чёт не могу разобраться.
Суть:
есль файлик эксель, по столбцу идёт G фильтрация.
далее в зависимости от значения в стобце A, необходимо вывести значение стобца F в той же сроке, где определено значение стобца A.
Если значение одно, то проблем нет, всё выводится, но если в А два или более значения,повторяются в разных стороках,то выводится последнее.А вот msgbox выводит все значения.
подскажите как сделать, чтобы в стобец допустим К, если 2 и более одинаковых значений,отображались они и соответствующие им значения стобца F в допустим L.
Перепробовал кучу всего, остановился на DO while loop, но нет результата((((
Формула впр() тут не подойдёт.
прикрепляю файлик с данными и моим кодом внутри.
помогите плз.

[Дмит]

Не до конца понял, что нужно. Но второй цикл там ни к чему. Что-то типа:

Код: Выделить всё

Sub tst()
  Dim i As Long
    i = 1: Columns("J:K").ClearContents
    For Each poz In Range("A2:A100").SpecialCells(xlVisible)
        If poz = 7421 Then
            Cells(i, 10) = poz
            Cells(i, 11) = poz.Offset(0, 5)
            i = i + 1
        End If
    Next
End Sub

[kooleer]

Огромное Вам спасибо Дмит за помощь это то,что надо.
что то похожее у меня было.Да, ещё пока я плохо знаю кодописание на VBA.