| Вопрос: Каким образом можно это сделать | Добавлено: 24.10.04 15:27 |
Автор вопроса:  sergtsn
|
| Не обходимо в таблице Exel произвести отбор в конкретном столбце и при обнаружении этого значения произвести удаление строки. Только пожалуйста советуйте в виде примера так как времени на изучение языка нет, а результаты нужны уже завтра, а 1000 страниц это слишком. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Дмит Вопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #1 | Добавлено: 24.10.04 18:45 |
|
Макрос:
Sub DelStroki() Dim i As Long, max As Long, lSt As Long '**********Номер Вашего столбца: lSt = 1 max = ActiveSheet.Cells(65536, lSt).End(xlUp).Row For i = max To 1 Step -1 '**********Условие отбора для удаления: If ActiveSheet.Cells(i, lSt).Value < 0 Then '**********Удалить строку i: ActiveSheet.Rows(i).Delete Shift:=xlUp End If Next End Sub удалит строки, если в столбце 1 отрицательное значение. Измени номер столбца и условие удаления необходимое для тебя. Дмит |
||
Страница: 1 |