Макрос для отбора данных

[dyakon88]

Добрый вечер господа, Помогите пожалуйста, какой код или условие нужно для действия:
1. на одном листе имеются все поля и данные (например лицевой счет и фамилия)
2. на втором листе имеется только поле лицевой счет и некоторые данные (НЕ ВСЕ).
3. С помощью макроса нужно сделать так, чтобы отображались на третьем листе Данные фамилий имеющих лицевых счетов(со второго листа) и сам лицевой счет их.

Хотя бы условие или код, буду признателен Вам!
Не силен я в Excel, силен только в Delphi!
Озадачили меня!
Жду ответов и советов!

[IgorGO]

формулами, читайте функция ВПР, там все довольно доходчиво рассказано

[dyakon88]

Сообщение от IgorGO

формулами, читайте функция ВПР, там все довольно доходчиво рассказано

а поподробнее можете? Если не трудно!

[Hugo121]

Сделайте файл-пример - будет готовое решение.
Какое количество строк в оргинале? Если десятки тысяч - тогда формула может тормозить, лучше макрос на массивах.

[dyakon88]

Сообщение от Hugo121

Сделайте файл-пример - будет готовое решение.
Какое количество строк в оргинале? Если десятки тысяч - тогда формула может тормозить, лучше макрос на массивах.

количества строк не очень много, но нужен макрос.
прилагаю файл пример

[IgorGO]

допустим, у меня есть текстовый файл, где в каждой строке данные по одному адресету: индекс, почтовый адрес, фамилия получателя.
dyakon88, можете мне на Delphi процедурку набросать, которая разберет это все? не можете? я догадываюсь почему: данные надо увидеть, закономерности уловить, вот тогда...
тут аналогичная ситуация, можно убить кучу времени на раздачу абстрактных советов, а результата так и не добиться.

[Hugo121]

Так:

Option Explicit

Sub otbor()
Dim a(), b(), Lr As Long, i As Long, ii As Long

With Sheets(1)
Lr = .Cells(Rows.Count, 1).End(xlUp).Row
a = .Range("a1:b" & Lr).Value
End With

With Sheets(2)
Lr = .Cells(Rows.Count, 1).End(xlUp).Row
b = .Range("a1:b" & Lr).Value
End With

For i = 1 To UBound(b)
For ii = 1 To UBound(a)
If b(i, 1) = a(ii, 1) Then b(i, 2) = a(ii, 2)
Next ii, i

With Sheets(3)
.Range("a1:b" & UBound(b)).Value = b
End With

End Sub

[IgorGO]

см.вложение.

[Hugo121]

На больших объёмах мой код берите. Как и на 2000 ( у меня уже 10к*6к не пошло).

[dyakon88]

Спасибо Вам Большое!
Вопрос решен!!!
Дай Бог вам Здоровья!!!