Здравствуйте.Есть рабочий макрос смущает,что получился большой.  
 
Sub Del_VCE()  
Dim iLastRow As Long  
 
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
For i = iLastRow To 2 Step -1  
If Cells(i, 3) Like "0" Then Rows(i).Delete  
If Cells(i, 1) Like "*/*" Then Rows(i).Delete  
If Cells(i, 1) Like "####-*" Then Rows(i).Delete  
If Cells(i, 1) Like "###-*" Then Rows(i).Delete  
If Cells(i, 1) Like "99-*" Then Rows(i).Delete  
If Cells(i, 1) Like "98-*" Then Rows(i).Delete  
If Cells(i, 1) Like "97-*" Then Rows(i).Delete  
If Cells(i, 1) Like "96-*" Then Rows(i).Delete  
If Cells(i, 1) Like "95-*" Then Rows(i).Delete  
If Cells(i, 1) Like "94-*" Then Rows(i).Delete  
If Cells(i, 1) Like "93-*" Then Rows(i).Delete  
If Cells(i, 1) Like "92-*" Then Rows(i).Delete  
If Cells(i, 1) Like "91-*" Then Rows(i).Delete  
If Cells(i, 1) Like "S-*" Then Rows(i).Delete  
If Cells(i, 2) Like "SPK-*" Then Rows(i).Delete  
 
 
Next  
End Sub  
 
 
Может быть возможно значения с 91 To 99 выразить через переменную    
оставив таким образом лишь одну строку вместо девяти.  
Например:  
If Cells(i, 1) Like "n-*" Then Rows(i).Delete  
 
Пример

Здравствуйте.  
Пожалуйста подскажите как мне сравнить в строке две рядом стоящие ячейки и если значение следующей больше предыдущей на 1  
как вырезать всю строку и перенести на Лист2 пример прилагаю.Проверить нужно порядка 30000 строк.

Люди добрые, помогите!  
 
Есть диаграмма, в неё нужно всего-лишь добавить 2 линии - красную и зелёную (пока нарисовал палками экселевскими).  
Тупка полная, не могу сделать. Прошу помощи! Если не сложно, в 2 словах напишите, как получилось))  
 
Спасибо!

Добрый день! Люди добрые, подскажите, как упорядочить значения во всплывающем окне автофильтра по возрастанию? Чтобы даты были в хронологическом порядке, а не вразброс...  
Заранее спс!!!