Господа! Есть задача в Excel (VBA) сравнение двух списков
Надо сравнить 2 списка: м0011 м0011
м0012 м0012
м0014 м0013
м0015 м0015
м0017 м0016
Короче надо найти во втором списке коды, которых нет в первом и выдернуть или скопировать их в отдельный список.
Как это сделать?
Ежели альтруистов нет, могу предложить какую-нибудь программку в обмен...
Простейший вариант: www.eliz.ur.ru/Soft.html
eliz@r66.ru
P.S. Списки в Excele
м0012 м0012
м0014 м0013
м0015 м0015
м0017 м0016
Короче надо найти во втором списке коды, которых нет в первом и выдернуть или скопировать их в отдельный список.
Как это сделать?
Ежели альтруистов нет, могу предложить какую-нибудь программку в обмен...
Простейший вариант: www.eliz.ur.ru/Soft.html
eliz@r66.ru
P.S. Списки в Excele
С
Семен
Странный Вы человек, батенька. То на все руки дизайнера за нищенский оклад ищите, теперь вот предлагаете, чтоб Вам алгоритм написали в обмен на чужой софт. Ей-богу смешно.
Держите уж :-)
Sub progon()
i = 1
n = 1
m = 1
Do While True
If Cells(i, 2) = "" Then Exit Do
Do While True
If Cells(n, 1) = "" Then Cells(m, 3) = Cells(i, 2): m = m + 1: Exit Do
If Cells(i, 2) = Cells(n, 1) Then Exit Do
n = n + 1
Loop
i = i + 1
n = 1
Loop
End Sub
Держите уж :-)
Sub progon()
i = 1
n = 1
m = 1
Do While True
If Cells(i, 2) = "" Then Exit Do
Do While True
If Cells(n, 1) = "" Then Cells(m, 3) = Cells(i, 2): m = m + 1: Exit Do
If Cells(i, 2) = Cells(n, 1) Then Exit Do
n = n + 1
Loop
i = i + 1
n = 1
Loop
End Sub
С
Семен
:-)
Авторизуйтесь, чтобы принять участие в дискуссии.