Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Макрос удаления строк
 
#1
01.09.2011 10:33:42
Добрый день. Помогите написать макрос, который будет удалять строки начиная с первой, до той, в которой в столбце А имеется фраза "Строительные материалы, изделия и конструкции" - в данном случае это строка 44, но обрабатывать надо будет много файлов, где эта строка может быть любой.  
Спасибо.
 
 
 
#2
01.09.2011 10:39:32
Не пробовали сначала поискать? Окошко над темой, "удаление строк по условию".
 
 
 
#3
01.09.2011 10:55:54
Пользовал поиск: там в основном примеры удаления пустых/непустых строк. Если бы я в макросах небыл слаб, то может и подфигачил что-нить под себя, а так приходится просить о помощи.
 
 
 
#4
01.09.2011 11:03:04
Вы только до двух умеете считать?  
 
Ссылка 3: "Надо оставить строки только с одной звездочкой."  
Ссылка 4: "может ли эксел удалить строки, не содержащие ключевое слово..."  
Ссылка 5: "Существует реестр по а\м. Эти строки в листе необходимо удалить"  
Ссылка 6; "Необходимо макросом удалить строку, при условии что в столбце пустая ячейка."  
Ссылка 7: "Необходимо удалить данные строк, при условии что в этом столбце данные больше нуля"  
И т.д.
 
 
 
#5
01.09.2011 11:17:34
Эти темы я видел, до того, как написал предпоследнее сообщение. Если бы не срочность вопроса, то разбирался бы сам не открывая эту тему. А так, пока шерстю похожие вопросы в поиске решения, может кто-то подскажет быстрее, нежели я сам во всем разберусь.
 
 
 
#6
01.09.2011 11:35:18
Sub tt()  
Dim x As Range  
Set x = Columns(1).Find("Строительные материалы, изделия и конструкции", , xlValues, xlWhole)  
If Not x Is Nothing Then Range([a1], x).EntireRow.Delete
End Sub
 
 
 
#7
01.09.2011 11:37:43
"До той" -    
 
Sub tt()  
Dim x As Range  
Set x = Columns(1).Find("Строительные материалы, изделия и конструкции", , xlValues, xlWhole)  
If Not x Is Nothing Then Range([a1], x.Offset(-1)).EntireRow.Delete
End Sub
 
 
 
#8
01.09.2011 11:37:57
Спасибо.
 
 
 
#9
01.09.2011 11:47:21
10  
ud=inputbox("Введите название строки - барьера после которой строки не удаляются. Вводить название точно.")  
if ud="" then  
msgbox("Вы не ввели название строки, повторите ввод")  
goto 10  
end if  
st=range("A15").currentregion.rows.count  
for x=1 to st  
range("A15").select  
selection.offset(x,0).select  
d=activecell.value  
if ud=d then  
selection.entierrows.delete  
exit for  
elseif ud <> d  
end if  
next x
 
 
 
#10
01.09.2011 11:59:12
{quote}{login=}{date=01.09.2011 11:47}{thema=}{post}10  
ud=inputbox("Введите название строки - барьера после которой строки не удаляются. Вводить название точно.")  
if ud="" then  
msgbox("Вы не ввели название строки, повторите ввод")  
goto 10  
end if  
st=range("A15").currentregion.rows.count  
for x=1 to st  
range("A15").select  
selection.offset(x,0).select  
d=activecell.value  
if ud<>d then  
selection.entierrows.delete  
exit for  
elseif ud = d  
end if  
next x{/post}{/quote}
 
 
 
#11
01.09.2011 12:50:55
Благодарствую.
 
 
 
#12
21.09.2011 11:04:16
Такая же проблема, только удалять надо на всех листах в файле, а не на одном, можете помочь?
 
 
 
#13
21.09.2011 12:10:14
Sub УдалениеСтрок()  
   Dim myWorksheet As Worksheet  
   For Each myWorksheet In Worksheets  
   Dim x As Range  
Set x = Columns(1).Find("РУБЛЬ", , xlValues, xlWhole)  
If Not x Is Nothing Then Range([a1], x.Offset(-1)).EntireRow.Delete
Next  
End Sub  
 
Вот, что получилось. Если без нескольких листов, то все работает, а с несколькими никак. Подскажите, пожалуйста, решение
 
 
 
#14
21.09.2011 12:32:43
Правильно будет так:  
 
Sub УдалениеСтрок()  
Dim myWorksheet As Worksheet, x As Range  
For Each myWorksheet In Worksheets  
Set x = myWorksheet.Columns(1).Find("РУБЛЬ", , xlValues, xlWhole)  
If Not x Is Nothing Then myWorksheet.Range(myWorksheet.[a1], x.Offset(-1)).EntireRow.Delete
Next  
End Sub  
 
 
И ещё здесь посмотрите:  
http://excelvba.ru/code/ConditionalRowsDeleting
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#15
21.09.2011 13:16:04
Большое спасибо, вы мне очень помогли!
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...