Страницы: 1
RSS
Сравнить и удалить, Найти значения и удалить из списка
 
Доброго дня, гуру Excel

Такая задача у меня, в столбце A к примеру 1000 записей, а в столбце B 200 записей, надо из столбца А удалить те значения которые есть в столбце В
 
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=166251&TITLE_SEO=166251-sortirovka-spiska-soglasno-etalonnomu&MID=1307215#message1307215
 
Код
Sub CC()
Dim i As Long, IlastRow_A As Long, IlastRow_B As Long
IlastRow_A = Cells(Rows.Count, 1).End(xlUp).Row
IlastRow_B = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To IlastRow_A
      If Not Range("B1:B" & IlastRow_B).Find(Cells(i, 1).Value, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
            Cells(i, 1).ClearContents
      End If
Next i
End Sub
Не перестаю удивляться возможностям excel и VBA.
 
Вариант на массивах (для больших объемов данных)
Скрытый текст
Согласие есть продукт при полном непротивлении сторон
Страницы: 1
Наверх