скачать исходник 25 кбЗдравствуйте, спасибо за интересный и полезный сайт. Прошу вас помочь составить макрос для решения такой вот задачи. Имеется две таблицы Excel, обе таблицы - это списки людей, надо сформировать третий список, с людьми, которые есть во второй таблице и отсутствуют в первой. Спасибо.

IP: 194.84.8.66
Дата: 2006-02-20, 9:52 Am


Данную задачу можно решить многими способами, но мы остановимся только на одном из них и решим ее с помощью создания двух вспомогательных массивов. Для простоты решения ограничим число строк в списке 10-ю. Ну, а для того, чтоб и Вам хоть немного поломать голову, мы чуть чуть изменили условие. Формируем третий список таким образом, когда фамилия встречается и в первом и во втором списке...

Удачного решения!

Dim список1(10), список2(10)

Sub список()
Range("A1").Activate
For i = 1 To 10
список1(i) = ActiveCell.Value
ActiveCell.Cells(2).Activate
Next i
Range("C1").Activate
For i = 1 To 10
список2(i) = ActiveCell.Value
ActiveCell.Cells(2).Activate
Next i
Range("E1").Activate
For i = 1 To 10
For k = 1 To 10
If список2(i) <> Emptu And список2(i) = список1(k) Then
ActiveCell.Value = список2(i)
ActiveCell.Cells(2).Activate
End If
Next k
Next i
End Sub


Рейтинг@Mail.ru главная программы задачи карта Copyright © СОМИТ, А.Козлов, 2005 г