|
|
|
Вопрос по коду VBA
|
|||
|---|---|---|---|
|
#18+
With Sheets(1).Cells Set c = .Find("2", LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do Rows(c.Row).Delete shift:=xlUp Set c = .FindNext(c) '????????????? Loop While Not c Is Nothing And c.Address <> firstAddress End If End With Удаляю строку с найденным значением, выдает ошибку - невозможно получить свойство FindNext класса Range. Мне нужно удалить все строки с искомым значением, как быть? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.02.2007, 04:09 |
|
||
|
Вопрос по коду VBA
|
|||
|---|---|---|---|
|
#18+
Она же уже удалена! Или в цикле Find и Delete (без FindNext) или с FindNext записать номера строк в массив и в следующем цикле удалять строки отсортировав массив по убыванию, от последней до первой Posted via ActualForum NNTP Server 1.3 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.02.2007, 14:00 |
|
||
|
|
start [/forum/topic.php?fid=16&tid=1346269]: |
0ms |
get settings: |
9ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
156ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
33ms |
get tp. blocked users: |
1ms |
| others: | 199ms |
| total: | 422ms |
| 0 / 0 |
