Отчет в excel

"Доброе время суток!<br>Очень прошу помогите.<br>Руководство дало мне задание, с которым я сижу уже 3-й день и не могу сообразить как это сделать.<br>Из 1С выгружаю отчет по контрагентам (которые приобрели определенную позицию)и вставляю в excel, второй отчет делаю в 1С по контрагентам (которые покупали вообще, когда-то что-то), выгружаю в excel.Дальше у меня есть два столбца, мне необходимо отсортировать в третий столбец следующее: чтоб из первого (где купили определенный товар) во втором (которые вообще что-то заказывали) удалились дублированные названия. Пробывала делать вот так: = ВПР (В2;А:А;1;ЛОЖЬ)..но ничего не выходит...Помогите пожалуйста, как мне сделать эту сортировку.<br>Заранее благодарю."

"> Доброе время суток!<br>> Очень прошу помогите.<br>> Руководство дало мне задание, с которым я сижу уже 3-й день и не могу сообразить как это сделать.<br>> Из 1С выгружаю отчет по контрагентам (которые приобрели определенную позицию)и вставляю в excel, второй отчет делаю в 1С по контрагентам (которые покупали вообще, когда-то что-то), выгружаю в excel.Дальше у меня есть два столбца, мне необходимо отсортировать в третий столбец следующее: чтоб из первого (где купили определенный товар) во втором (которые вообще что-то заказывали) удалились дублированные названия. Пробывала делать вот так: = ВПР (В2;А:А;1;ЛОЖЬ)..но ничего не выходит...Помогите пожалуйста, как мне сделать эту сортировку.<br>> Заранее благодарю.<br><br>не проще сначала всё корректно в 1с сформировать, а потом сохранить 1ский отчет как эксель?"

Sub проверить()<br>For i = 1 To 100<br> For c = 1 To 100<br>       If ActiveSheet.Cells(i, 1).Value = ActiveSheet.Cells(c, 2).Value Then<br>       ActiveSheet.Cells(c, 2).Font.ColorIndex = 3<br>       End If<br> Next<br>Next<br>End Sub<br>