Как сократить время? МАКРОС!

[slan]

Сообщение от jungo

Привет!

Очень большой список где-то 61000 строк. нужно стереть полностью строки где во второй строке (В) есть цифра 2 (их большинство). Использую код:

Set ws = ActiveSheet
    For i = ws.UsedRange.Rows.Count To 1 Step -1
        If Cells(i, "B") = "2" Then ws.Rows(i).Delete
    Next i
End Sub

Оооочень долго! Как сделать быстрей?

отсортировать, удалить диапазон строк, отсортировать обратно

есс-но должна быть нумерация строк..

[yourself]

У меня странная проблема. Написан макрос:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For i = 4 To 40
If Cells(i, 1) <> "" Then
For j = 2 To 20 Step 2
Cells(i, j) = (Cells(1, 2) \ 10)
Next
Else
For j = 2 To 20 Step 2
Cells(i, j) = ""
Next
End If
Next
End Sub

Когда он запускается, то резвенько выполняет все действия, которые от него требуются, но потом зависает в непонятной конвульсии до тех пор, пока вручную не прервешь выполнение. Я специально заполнял 50строк - он быстро просчитывает все до 40 строки включительно, потом зависает. Причем еще вчера тот же макрос был привязан к открытию книги - все работало на ура. Сегодня - вот такая кракозябра. Посмотрите, может быть, это только у меня глючит?

[SAS888]

1) Если необходимо обрабатывать событие Change, происходящее на 1 листе, то нужно перенести код из модуля "Эта книга" в модуль нужного листа, тогда вместо

Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

использовать

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

2) Ваш код выполняется при изменении значения любой ячейки листа. Так и нужно? Если нет, то надо задать диапазон ячеек, при изменении которых нужно запускать процедуру. Например:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim MyRange As Range
    Set MyRange = Range("A1:D10") ' Это контролируемый диапазон
    If Not Intersect(Target, MyRange) Is Nothing Then
        Application.EnableEvents = False ' Запрет обработки всех событий

        ' Здесь Ваш код будет выполняться
        ' только тогда,
        ' когда событие Worksheet_Change
        ' происходит в диапазоне MyRange

        Application.EnableEvents = True ' Разрешение обработки всех событий
    End If
End Sub

3) Но скорее всего Ваша проблема в том, что при выполнении процедуры обработки события изменения ячейки Вы снова изменяете значения ячеек, контролируемых событием Change, тем самым запуская процедуру еще раз и т.д. Для того, чтобы этого не происходило, необходимо перед выполнением макроса запретить события, а после завершения - разрешить. В коде выше эти строки есть.

[дмидми]

Сообщение от jungo

что-то в моём массиве тормозит... Но что???

Ну, и где же таблица, отдохнувший вы наш?

Не вся, конечно. Достаточно тормозящего макроса и всех значимых вариантов заполнения столбца B с нужной пропорцией индикаторов удаления (двоек).

ИМХО, вряд ли вариантов наберется больше десятка, а уж (ещё раз ИМХО) размножить их желающие сумеют.

[yourself]

SAS888, очень признателен Вам за помощь
Кстати, у меня-таки тупит интерпретатор VBA. Иногда эта скотина вовсе перестает обрабатывать событие Worksheet_Change. Помогает перезапуск Excel.

[jungo]

Сообщение от дмидми

Ну, и где же таблица, отдохнувший вы наш?

Не вся, конечно. Достаточно тормозящего макроса и всех значимых вариантов заполнения столбца B с нужной пропорцией индикаторов удаления (двоек).

ИМХО, вряд ли вариантов наберется больше десятка, а уж (ещё раз ИМХО) размножить их желающие сумеют.

Я дико извиняюсь, "зад" в том, что у меня все данные на иврите, поэтому не могу прикрепить пример. Изменил на English (как я делаю обычно)только макрос. Заранее спасибо!

дмидми

Отдельный Respect за Жванецкого!

Sub Jungo()

    AL = [a65536].End(xlUp).Row
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "A"
    Range("B2:B" & AL).FormulaR1C1 _
    = "=IF(OR(RC[4]=""baba"",RC[4]=""zhaba"",RC[4]=""mama"",RC[4]=""kolya"",RC[4]=""miya"",RC[4]=""amok""),1,2)"
    Range("B1").Select
    Columns("B:B").Select
    Columns("B:B").Copy
    Columns("B:B").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

End Sub

[дмидми]

По порядку ведения

Сообщение от jungo

данные на иврите, поэтому не могу прикрепить пример.

Язык не важен. Пример нужен для того, чтобы разобраться с

• - распределением по листу тех типов данных, которые различает на листе Excel (текстовые данные, числа, даты и булевы значения);
• - формулами листа;
• - форматами;
• - условиями на значения;
• - etc. etc.

По повестке дня
Приведённый вами макрос - одноразовый, поскольку не убирает за собой добавленную (временную?) колонку.

Но если вы собираетесь его доработать и использовать часто, то он, несомненно, будет заметно тормозить процесс, поскольку содержит (по доработке) три медленные операции: вставку колонки, заполнение её формулами, удаление колонки. Причём все три операции совершенно не нужны

Постановили
Собственно заявленной вами проблемы (торможение при удалении строк) не наблюдается, поскольку не наблюдается даже попыток удаления строк.

Разное
1. Зашивать в код константы, которые будут разыскиваться на листе, - очень и очень не комильфо. Перечень подобных значений лучше хранить в отдельной зоне на том же листе, а лучше - на другом.
2. Пока разбирался с макросом, самую малость его причесал (как обычно после макрорекордера), ничего не меняя в его работе. Если интересно - модуль в прищепке.

[jungo]

Огромное спасибо! Упростил по вашему примеру и всё заработало!!!