Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Нужен макрос для удаления строк
 
ой, сама проглядела.. в первом столбце на одной из строк случайно пусто оказалось.. и поэтому и непонятно ничего было. а когда все правильно заполнено - все работает отлично!  
 
СПАСИБО, k61!
Нужен макрос для удаления строк
 
Есть файлик с двумя листами. на первом - таблица из двух столбцов, кол-во строк может быть любым, пустых нет. на втором листе только один столбец. Нужно, сравнивая значения всех ячеек единственного столбца второго листа со значениями второго столбца первого листа, удалить строки на первом листе с совпадающими значениями.  
 
что-то так накидала, программист из меня не оч..  
и строки не удаляются.. и перепрыгивает даже если условие не выполняется.  
 
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
Страницы: 1
Наверх