Про дубликаты. В N-ый раз.

[Azz100]

Здравствуйте уважаемые гуру, как в 2007 офисе решить такую простенькую задачку:

Имеются списки строк A и B, находящиеся в соответствующих столбцах. Списки разной длины, уникальны, в каждом отдельно взятом столбце отсутствую дубликаты, но они присутствуют в другом столбце.
Необходимо удалить дублирующееся строки из списка A, сравнив его со списком B, при этом во втором столбце они должны остаться.

[Maxx]

Пример файла в студию!

[Azz100]

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

Пример файла в студию!

А чего не понятного то? Я же вроде рассосал все.

[Volodshan]

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

А чего не понятного то? Я же вроде рассосал все.

Предлагаю дальше рассосаливать функции "ВПР", "ИНДЕКС", "ПОИСКПОЗ..." и прочие. Вам помочь стараются, а вы... Нет ничего проще и ценнее: "Здравствуйте, Пожалуйста, Спасибо, До видания"...
ps Да, учтите как работают функции с текстом, числами, датами, в какой сортировке...

[SAS888]

А чего не понятного то? Я же вроде рассосал все.

Т.е. Вы настаиваете, чтобы отвечающие заполняли таблицу примера самостоятельно? Это, мягко сказать, неуважительно.

[dzv]

Или поиском воспользоваться, в таком случае...

P.S. Судя по названию темы, мог ли бы имеющимися примерами воспользоваться...

[Azz100]

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

Предлагаю дальше рассосаливать функции "ВПР", "ИНДЕКС", "ПОИСКПОЗ..." и прочие. Вам помочь стараются, а вы... Нет ничего проще и ценнее: "Здравствуйте, Пожалуйста, Спасибо, До видания"...
ps Да, учтите как работают функции с текстом, числами, датами, в какой сортировке...

Пожалуй, был не прав, но все же показалось что описал достаточно подробно.
Прикладываю к этому сообщению пример. Добавлю только, что регистр важен. "Hello World" и "Hello world" - разные строки.

[Maxx]

Проверяйте:

Sub del()
Application.ScreenUpdating = False
    For i = 1 To Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Row
        valToDel = Cells(i, 1).Value
        Range(Cells(1, 2), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 2)).Select
        
        On Error Resume Next
        Selection.Find(valToDel).Activate
        If ActiveCell.Value = Cells(i, 1).Value Then Cells(i, 1).Delete Shift:=xlUp
    Next i
Application.ScreenUpdating = True
End Sub

[SAS888]

Можно чуть проще. И методу Find добавить чувствительность к регистру

Sub Main()
    Dim i As Long: Application.ScreenUpdating = False
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Not [B:B].Find(Cells(i, 1), MatchCase:=True) Is Nothing Then Cells(i, 1).Delete Shift:=xlUp
    Next
End Sub

[Azz100]

Maxx, SAS888

Спасибо! Все работает.