Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Из столбца удалить строки с определенным текстовым значением
 
#1
08.02.2011 09:32:04
Помогите пожалуйста, как из столбца удалить строки, содержащие значение КодНОНовМН?
 
 
 
#2
08.02.2011 09:40:20
вот таким циклом:  
 
For i = Последняя ячейка to Первая ячейка step -1  
if Cells(i,1).Value = "КодНОНовМН" then _  
Cells(i,1).EntireRow.Delete  
Next r
Редко но метко ...
 
 
 
#3
08.02.2011 09:42:05
Если в столбце нет пустых строк: Ctrl+H, заменить КодНОНовМН на пустоту, выделить столбец, F5 - выделить - пустые ячейки, ПКМ на одной из выделенных ячеек - удалить - строку - ОК.
 
 
 
#4
08.02.2011 09:43:42
если без макросов то так:  
 
Ctrl+F, найти "КодНОНовМН" найти все, в списке найденных Ctrl+А, закрываем поиск, Shift+пробел, Ctrl+"-", все
Редко но метко ...
 
 
 
#5
08.02.2011 09:45:55
{quote}{login=GIG_ant}{date=08.02.2011 09:40}{thema=}{post}вот таким циклом:  
 
For i = Последняя ячейка to Первая ячейка step -1  
if Cells(i,1).Value = "КодНОНовМН" then _  
Cells(i,1).EntireRow.Delete  
Next r{/post}{/quote}  
 
Не получается, это макрос? Мне желателен макрос.
 
 
 
#6
08.02.2011 09:45:58
в первом посте строку:  
 
if Cells(i,1).Value = "КодНОНовМН" then _  
 
заменить на    
 
if Cells(i,1).Value like "*КодНОНовМН*" then _
Редко но метко ...
 
 
 
#7
08.02.2011 09:47:26
С вашим примером уже давно было бы понятное решение!
Редко но метко ...
 
 
 
#8
08.02.2011 09:48:48
{quote}{login=GIG_ant}{date=08.02.2011 09:40}{thema=}{post}вот таким циклом:  
 
For i = Последняя ячейка to Первая ячейка step -1  
if Cells(i,1).Value = "КодНОНовМН" then _  
Cells(i,1).EntireRow.Delete  
Next r{/post}{/quote}  
"Next r" нужно заменить на "Next i" или на просто "Next"
 
 
 
#9
08.02.2011 10:00:33
{quote}{login=}{date=08.02.2011 09:48}{thema=Re: }{post}{quote}{login=GIG_ant}{date=08.02.2011 09:40}{thema=}{post}вот таким циклом:  
 
For i = Последняя ячейка to Первая ячейка step -1  
if Cells(i,1).Value = "КодНОНовМН" then _  
Cells(i,1).EntireRow.Delete  
Next r{/post}{/quote}  
"Next r" нужно заменить на "Next i" или на просто "Next"{/post}{/quote}  
Все равно выдает ошибку по этой строке For i = Последняя ячейка to Первая ячейка step -1
 
 
 
#10
08.02.2011 10:03:09
{quote}{login=GIG_ant}{date=08.02.2011 09:43}{thema=}{post}если без макросов то так:  
 
Ctrl+F, найти "КодНОНовМН" найти все, в списке найденных Ctrl+А, закрываем поиск, Shift+пробел, Ctrl+"-", все{/post}{/quote}  
 
Тоже не получается...выходит сообщение - Данная оманда не может быть использована с диапазонами, содержащими целые строки или столбцы, а также другие ячейки.
 
 
 
#11
08.02.2011 10:13:16
{quote}{login=Казанский}{date=08.02.2011 09:42}{thema=}{post}Если в столбце нет пустых строк: Ctrl+H, заменить КодНОНовМН на пустоту, выделить столбец, F5 - выделить - пустые ячейки, ПКМ на одной из выделенных ячеек - удалить - строку - ОК.{/post}{/quote}  
На пустоту заменить невозможно, поскольку после КодНОНовМЖ: идет в каждой строке разный текст.
 
 
 
#12
08.02.2011 10:14:33
Помогите пожалуйста может кто-нибудь напишет чайнику  макрос, пока ничего удалить выше указанными способами не получается.
 
 
 
#13
08.02.2011 10:15:38
да выложите же пример наконец, а то мы так до вечера будем гадать что там не так.
Редко но метко ...
 
 
 
#14
08.02.2011 10:19:16
> На пустоту заменить невозможно, поскольку после КодНОНовМЖ: идет в каждой строке разный текст.  
 
Нет проблем: заменить КодНОНовМ* на пустоту...
 
 
 
#15
08.02.2011 10:24:20
{quote}{login=Казанский}{date=08.02.2011 10:19}{thema=}{post}> На пустоту заменить невозможно, поскольку после КодНОНовМЖ: идет в каждой строке разный текст.  
 
Нет проблем: заменить КодНОНовМ* на пустоту...{/post}{/quote}  
 
Спасибо большое все получилось.
 
 
 
#16
08.02.2011 11:31:59
Все равно выдает ошибку по этой строке For i = Последняя ячейка to Первая ячейка step -1  
 
Так надо найти первую и последнюю ячейку    
или вставить их цифровые значения
 
 
 
Страницы: 1
Читают тему
Наверх