Есть файлик с двумя листами. на первом - таблица из двух столбцов, кол-во строк может быть любым, пустых нет. на втором листе только один столбец. Нужно, сравнивая значения всех ячеек единственного столбца второго листа со значениями второго столбца первого листа, удалить строки на первом листе с совпадающими значениями.
что-то так накидала, программист из меня не оч..
и строки не удаляются.. и перепрыгивает даже если условие не выполняется.
Sub macros()
Dim i As Long
Dim r As Long
i = 1
r = 1
While Not IsEmpty(Sheets("list2").Cells(i, 1))
st2 = Sheets("list2").Cells(i, 1).Value
While Not IsEmpty(Sheets("list1").Cells(r, 1))
st1 = Sheets("list1").Cells(r, 2).Value
If StrComp(st1, st2) = 0 Then
Rows("r:r").Select
Selection.Delete Shift:=xlUp
End If
r = r + 1
Wend
r = 1
i = i + 1
Wend
End Sub
