![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Форумчанин
Регистрация: 30.01.2008
Сообщений: 314
|
![]()
а просто автофильтром не годится?
выделить все значения содержащие "х" - удалить видимые строки две строки(ну 3) кода, нет? |
![]() |
![]() |
![]() |
#12 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
slan
+1 !!!! Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 06.02.2009 в 05:46. |
![]() |
![]() |
![]() |
#13 |
Новичок
Джуниор
Регистрация: 10.09.2009
Сообщений: 2
|
![]()
понастроил под свою задачку,
работает отлично! спасибо!!! но нужно чтоб он из внешнего файла брал чистил его и сохранял я чё то почитал, нашёл тока как через переменную диапазон это делать, но чёто зависаетмин на 5 и потом тока снимать задачу помогите пжлста! дайте код как работать с внешним файлом вот мой код Private Sub Clear_Click() Set Sheet = ActiveSheet ' объект Sheet - это обрабатываемый лист Excel For Each Row In Sheet.UsedRange.Rows If Row.Cells(1) < 5000 Then Else: Row.delete End If Next End Sub |
![]() |
![]() |
![]() |
#14 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
По Вашему коду видно, что просматриваются только ячейки 1-го столбца. Так и нужно?
При использовании цикла For...Next при проходе сверху вниз при удалении строки будет нарушаться счетчик цикла. Можно либо формировать (не удалять сразу) диапазон, а по окончании цикла удалять его. Либо, проходить снизу вверх. Например, так: Код:
Цитата:
P.P.S Правила форума: новый вопрос - новая тема!!!
Чем шире угол зрения, тем он тупее.
|
|
![]() |
![]() |
![]() |
#15 |
Новичок
Джуниор
Регистрация: 10.09.2009
Сообщений: 2
|
![]()
[QUOTE=SAS888;341031]По Вашему коду видно, что просматриваются только ячейки 1-го столбца. Так и нужно?
При использовании цикла For...Next при проходе сверху вниз при удалении строки будет нарушаться счетчик цикла. Можно либо формировать (не удалять сразу) диапазон, а по окончании цикла удалять его. Либо, проходить снизу вверх. Например, так: Код:
потому что мне нужно было удалять ячейки и с текстом тоже) а ваш код работает значительно лучше) и быстрее а к нему я так понял несложно подкрутить указание внешнего файла Dim i As Long: Application.ScreenUpdating = False 'добавляя новый код Workbooks("список магазинов.xls").Sheets ("список магазинов") For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If Cells(i, 1) > 5000 Then Rows(i).Delete Next но так не работает если делать это файл активным (.activate) тоже не пашет(( помогайте гуру! |
![]() |
![]() |
![]() |
#16 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Например, так:
Код:
Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 11.09.2009 в 04:43. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Excel. как удалить из таблицы все гиперссылки? и запретить что бы URL ими становились | 9go | Microsoft Office Excel | 2 | 17.01.2009 10:19 |
Удалить из строки S1 первую, последнюю, все подстроки совпадающие с S2 | ТРОЯН=) | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 10.12.2008 23:28 |
Удалить из строки все группы букв вида abcd | Григорийpnz | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 27.11.2008 12:48 |
Удалить из строки все группы вида abcd | Григорийpnz | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 18.11.2008 19:40 |
Надо в RichEdit Удалить все строки между двумя пустыми | Stas))) | Компоненты Delphi | 7 | 28.05.2007 16:49 |