| Вопрос: Удаление строки, содержащей определенное слово | Добавлено: 30.10.03 15:06 |
Автор вопроса:  Boom
|
| Как удалить все строки, содеждащие в тексте слово "X"? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа: valentinvb Вопросов: 0 Ответов: 5 |
Профиль | | #1 | Добавлено: 02.11.03 03:53 |
|
Sub DelRows() 'удаление строк с текстом xxx DelText = "xxx" ' xxx - текст, строки с которым надо удалить DT = "=*" & DelText & "*" 'формируем строку критерия для автофильтра Fld = 1 ' 1 - номер колонки таблицы, в которой содержится текст xxx 'Cells(1, 1) - любая ячейка в заголовке таблицы '(первая 1 - номер строки, вторая - номер столбца) 'вместо Cells(1, 1) можно написать Range("A1") With Sheets("Лист1").Cells(1, 1).CurrentRegion ' фильтруем строки с удаляемым текстом .AutoFilter Field:=Fld, Criteria1:=DT ' удаляем отфильтрованные строки .Offset(1, 0).Resize(.Rows.Count - 1, _ .Columns.Count).SpecialCells(xlCellTypeVisible).EntireRow.Delete End With ' выключаем автофильтр Sheets("Лист1").AutoFilterMode = False End Sub |
||
|
Номер ответа: 2 Автор ответа: dedtolya Вопросов: 0 Ответов: 39 |
Профиль | | #2 | Добавлено: 02.11.03 10:02 |
|
Для проверки строки на наличие в ней других строк имеется ф-ция InStr Ситаксис Intloc=IntStr(Number,BasText,MeText,ModeComparare) Number нач пооз поиска BasText исходн. текст MeText искомый текст ModeComparare способ сравнения Подробней смотри справку. Дальше цикл с проверкой условия и удаление строк . Думаю, что окончальное решение Вам прияно будет найти самому. Ответ valentinvb не работает.Заковыка в формаировании критерия.Символ "*" не работае, в данном случае, как это задумано valentinovb dedtolya valentinvb |
||
|
Номер ответа: 3 Автор ответа: valentinvbВопросов: 0 Ответов: 5 |
Профиль | | #3 | Добавлено: 03.11.03 00:32 |
|
К сожалению, вопрос поставлен не конкретно. Если речь идет об "Excel" (видно по тексту процедуры), то все работает хорошо. |
||
Страница: 1 |