Сравнение 3 столбцов и удаление уникальных значений.

[contrelesgaz]

Добрый вечер.

В столбце "A" находится урезанный список компаний. В "B" полный список, в "C" e-mailы к столбцу "B".

Требуется удалить из B и соотнесенного с ним С значения, которых нет в A.

Я уже не могу. Голову о клавиатуру разбил уже.

Заранее спасибо.

[Hugo121]

упс.......

Так, ладно - можно это приспособить:
http://www.planetaexcel.ru/forum.php?thread_id=23700
Вставляете на разные листы ваши А и B,C (со второй строки).
Вместо строки

If a(i, 1) = b(ii, 1) Then Sheets("НОВЫЙ").Rows(i).EntireRow.Delete

пишите

If a(i, 1) = b(ii, 1) Then Sheets("НОВЫЙ").Cells(i,5)="есть!"

Потом по этой метке фильтруете/сортируете и удаляете.

[Djeki]

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

Добрый вечер.
В столбце "A" находится урезанный список компаний. В "B" полный список, в "C" e-mailы к столбцу "B". Требуется удалить из B и соотнесенного с ним С значения, которых нет в A.

Автофильтром по столбцу "А" - скрыть пустые строки, а затем копируете результат на новый лист и всё..

[contrelesgaz]

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

Автофильтром по столбцу "А" - скрыть пустые строки, а затем копируете результат на новый лист и всё..

вообще не понял зачем это. и как.

я просто переводчик и с excel чуть не первый раз так общаюсь плотно..

[contrelesgaz]

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

упс.......

Так, ладно - можно это приспособить:
http://www.planetaexcel.ru/forum.php?thread_id=23700
Вставляете на разные листы ваши А и B,C (со второй строки).
Вместо строки

If a(i, 1) = b(ii, 1) Then Sheets("НОВЫЙ").Rows(i).EntireRow.Delete

пишите

If a(i, 1) = b(ii, 1) Then Sheets("НОВЫЙ").Cells(i,5)="есть!"

Потом по этой метке фильтруете/сортируете и удаляете.

Те на первом листе все как было, на втором A, на третьем B & C.

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

все плохо. я старался.

[contrelesgaz]

функция lookup или ВПР))))))))))))))

=ВПР(A79;C:D;2;0) и все.

Спасибо.

[Hugo121]

Если бы Вы показали небольшой пример в файле, мы бы на Вашем примере и сделали.
Если знать, что количество названий в пределе 1000, то конечно вполне годится ВПР() или СЧЁТЕСЛИ(), особенно если это разовая работа. Но если например нужно сверить два списка по 50000 названий, то я думаю ВПР() не поможет, или придётся долго ждать. В таком случае, или если эту работу нужно делать регулярно, удобнее макрос. Один раз написали код - потом только давайте ему данные и забирайте результат.

[contrelesgaz]

там около 4000))


эй, товарищи макрОсы, доставайте папиросы.

[SAS888]

Можно так:

Sub Main()
    Dim i As Long, j As Long, x As Object, a(), b(), c()
    a = Range([A1], Cells(Rows.Count, 1).End(xlUp)).Value
    b = Range("B1:C" & Cells(Rows.Count, 2).End(xlUp).Row).Value
    ReDim c(1 To UBound(b, 1), 1 To 2): j = 1
    Set x = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(a, 1)
        If Not x.Exists(a(i, 1)) Then x.Add a(i, 1), CStr(1)
    Next
    For i = 1 To UBound(b, 1)
        If x.Exists(b(i, 1)) Then
            c(j, 1) = b(i, 1): c(j, 2) = b(i, 2): j = j + 1
        End If
    Next
    [B1].Resize(UBound(c, 1), 2).Value = c
End Sub

Пример во вложении.