Взял последний добавил  
If Cells(i, 2) Like "SPK-*" Then Rows(i).Delete  
работает  
KukLP спасибо

KukLP,Юрий М-все заработало. Запутался немного ,пример помог.  
проверил на 100 строках нежелательных не нашел. Спасибо огромное за помощь

Не получается  вставить строчки(знания закончились )  
Огласите весь список (если можно выложите макрос)

ДА все >90

А Юрий М прав когда ввел артикул с 80- удалило его, а не должно

KukLP-все работает, все удаляется,но  
If Cells(i, 1) Like "9[!0]-*" Then Rows(i).Delete
работает корректней ,есть еще строки < 90  
A с Select Case: не разобрался

KukLP-спасибо все получилось.  
Юрий М -была мысль сдалать через Select Case - не смог.Подскажите подробней если не тяжело

Здравствуйте.Есть рабочий макрос смущает,что получился большой.  
 
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  
 
Пример

Благодарю, активирую.

To Hugo.Помогите еще пож что-то произошло при запуске макроса начал выдавать "Typ mismatch"

To Hugo .Я уже немного изменил макрос все работает отлично ,Огромное спасибо  
Sub ProstojMakros()  
Dim a, b, c, i&, ii&, iii&, k As Byte, kk As Byte, flag As Boolean, WBN As Workbook  
 
a = Selection.CurrentRegion.Value  
ReDim b(1 To UBound(a), 1 To 6)  
c = b  
For i = 1 To UBound(a)  
flag = True  
For k = 1 To 5  
If a(i, k) = a(i, k + 1) - 1 Then  
ii = ii + 1  
For kk = 1 To 6: b(ii, kk) = a(i, kk): Next  
flag = False  
Exit For  
End If  
Next  
If flag Then  
iii = iii + 1  
For kk = 1 To 6: c(iii, kk) = a(i, kk): Next  
 
End If  
Next  
 
Set WBN = Workbooks.Add  
WBN.Sheets(1).[A1:F1].Resize(ii) = b
WBN.Sheets(2).[A1:F1].Resize(iii) = c
 
End Sub

Я извиняюсь,немного запутался,нужно именно отделить строки с повторяющимися цифрами.

Можно и просто скопировать. нужны только эти данные ,но в макросах я не силен.

Спасибо разобрался.Копировать правда много.

Спасибо за формулу .Я сам не додумался.

В последней строке ошибся .а вот верезать только истина не получается

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

{quote}{login=Юрий М}{date=02.09.2010 10:41}{thema=}{post}Правый клик по "коричневым вертикальным рядам" - Формат рядов данных - Ось - По основной оси. После этого меняем тип диаграммы.{/post}{/quote}  
Вот от шайтан где спрятался))  
Юрий М, Вы спаситель моих мозгов!)) Гуру, что сказать)) Ещё раз спасибо, всё получилось!))

{quote}{login=serj}{date=02.09.2010 09:44}{thema=Re: }{post}{quote}{login=Юрий М}{date=02.09.2010 08:34}{thema=}{post}2003. Клик по области построения - Исходные данные - Ряд - Добавить - показываем диапазон с данными... А как же Вы построили имеющиеся ряды? Или файл уже был?{/post}{/quote}  
У меня почему-то строится горизонтальный ряд, а вертикальную линию поставить не получается(({/post}{/quote}  
Тьфу, сорри, наоборот. Строится вертикальный ряд, а горизонтальный построить не могу.

{quote}{login=Юрий М}{date=02.09.2010 08:34}{thema=}{post}2003. Клик по области построения - Исходные данные - Ряд - Добавить - показываем диапазон с данными... А как же Вы построили имеющиеся ряды? Или файл уже был?{/post}{/quote}  
У меня почему-то строится горизонтальный ряд, а вертикальную линию поставить не получается((

{quote}{login=Юрий М}{date=02.09.2010 09:53}{thema=}{post}Так?{/post}{/quote}  
Так, как в примере))  
А32:35 и В32:35 размещены на диаграмме, хотелось бы в диаграмму добавить значения С32:35 и D32:35.    
слэн - я не смог этого сделать и у меня от этого чуть не сломался мозг)) От этого и название темы))

Числовые, такие же, как и в 32-35 строках, только другие значения.  
Можно, к примеру, так

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

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