Удаление строк столбца совпадающих со строками другого столбца

[ShamanGood]

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

Нужно из столбца В поубирать все значения, которые есть уже в столбце А не зависимо от его местоположения в строке.

gsg, ваш скрипт хорош, я не знал куда себя девать от радости -спасибо, но он действительно сравнивает по-строчно. Hugo121 прав.
В предложении Hugo121, я так понял, нужно пометить все совпадающие ячейки столбцов из разных файлов, а потом создать фильтр (пометка > 0) и удалить эти строки (ну или в ручную удалить если не много). Уже начинаю, что-то соображать

[nilem]

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

gsg, ваш скрипт хорош ...

Можно немного дополнить:

Option Explicit
Option Compare Text

Sub repl()
Dim i As Integer, j As Integer, lr As Integer
lr = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To lr
    For j = 1 To lr
        If Cells(i, 1) = Cells(j, 2) Then
        Cells(j, 2).Cut Cells(j, 3)
        Exit For
        End If
    Next j
Next i
Application.ScreenUpdating = True
End Sub

[Hugo121]

Да, так. Пометки можно в обоих или в одном файле ставить. Потом можно отобрать фильтром или просто отсортировать (эти строки встанут рядом) и этот блок скопировать/удалить.

[Hugo121]

Николай, на 5000 запускали? Я запустил пару минут назад сдуру... 5 минут 100% загрузка процессора.
Чего не на массивах?

[nilem]

Ну, нет, это только строчек на 20 годится. На 5000 и, наверное, с дубликатами, - массивы/словари и все такое.

Можно только массивы, но надо выяснить насчет повторяющихся значений - возможны они или нет?

[Hugo121]

Вот поэтому я универсальный код себе и написал. Пусть не на массивах, а через Find, но зато все такие задачи решаются без головной боли, написания похожих, но всё же разных кодов, сочинения и тормозов с ВПР()... Оно ещё и копировать может!

[ShamanGood]

Дубликаты я заранее все поудалял в обоих столбцах

[nilem]

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

...универсальный код ... Оно ещё и копировать может!

Игорь, а вышивать умеет?

Вот это можно запустить на 5000 строк:

Sub repl()
'Dim tm As Single
'tm = Timer
Dim i As Integer, j As Integer, lr As Integer
Dim x, y()
lr = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False

x = Range("A1:B" & lr).Value
ReDim y(1 To lr, 1 To 1)

With New Collection
On Error Resume Next
For i = 1 To lr: .Add Item:=0, Key:=CStr(x(i, 1)): Next i

For i = 1 To lr
    .Add Item:=0, Key:=CStr(x(i, 2))
If Err <> 0 Then: y(i, 1) = x(i, 2): x(i, 2) = "": Err.Clear
Next i
End With

Range("B1:B" & lr).Value = WorksheetFunction.Index(x, 0, 2)
Range("C1:C" & lr).Value = y
Application.ScreenUpdating = True
'MsgBox Timer - tm
End Sub

[Hugo121]

Николай, а что эта строка делает?
Range("B1:B" & lr).Value = WorksheetFunction.Index(x, 0, 2)

По идее, должна из массива второй столбец извлекать, что-ли... Но у меня ничего не делает.

[nilem]

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

... у меня ничего не делает.

Должна делать, посмотри в файле.