Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.10.2010, 21:41   #1
Zirat
Пользователь
 
Регистрация: 01.08.2009
Сообщений: 17
По умолчанию Удалить строки от n до m

Добрый вечер!

Уважаемы форумчане, помогите, пожалуйста с кодом VBA. В таблице Excel нужно удалить все строки между строкой 11 и некой строкой n. Строка n - плавающая и определяется по содержимому ячейки во втором столбце. Т.е. если в ячейке второго столбца встречается слово "Прайс-лист" (это только часть содержимого ячейки) или "ФССЦ" то это и будет строка n.
Заранее спасибо!


Файл во вложении:
Вложения
Тип файла: rar 1.rar (6.6 Кб, 21 просмотров)
Zirat вне форума Ответить с цитированием
Старый 01.10.2010, 22:04   #2
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

Вот такой вот код:
Код:
Sub DeleteRows
For i = 12 To 65536
If Left(Cells(i, 2).Value, 4) = "ФССЦ" Or Left(Cells(i, 2).Value, 10) = "Прайс-лист" Then
Rows("11:" & i).Delete
Exit Sub


End If


Next i

End Sub

Последний раз редактировалось motorway; 01.10.2010 в 22:08.
motorway вне форума Ответить с цитированием
Старый 01.10.2010, 22:17   #3
Zirat
Пользователь
 
Регистрация: 01.08.2009
Сообщений: 17
По умолчанию

motorway, спасибо большое! Очень оперативно.

Все работает как надо.)))

Заменил только

Rows("11:" & i).Delete на

Rows("11:" & i-1).Delete

Последний раз редактировалось Zirat; 01.10.2010 в 22:26.
Zirat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удалить из состава строки последовательности bingooo Паскаль, Turbo Pascal, PascalABC.NET 18 05.04.2010 14:28
Удалить лишние пустые строки vfv Microsoft Office Excel 2 09.03.2010 11:05
Не получается удалить строки из TMemo RIO Общие вопросы Delphi 2 03.12.2009 01:07
Удалить строки из RichEdit спаситепомогите Помощь студентам 1 08.08.2009 03:00
удалить похожие строки ZORRO2005 Microsoft Office Excel 0 28.11.2006 22:03