Доброго дня,
Есть вот такое "чудо-юдо". 1k строк обрабатывает без труда. 10k - уже достаточно медленно.
Подскажите, как можно ускорить и/или переделать то, что делает данный макрос.
Всем спасибо кто откликнется.
Есть вот такое "чудо-юдо". 1k строк обрабатывает без труда. 10k - уже достаточно медленно.
Подскажите, как можно ускорить и/или переделать то, что делает данный макрос.
Всем спасибо кто откликнется.
Код |
---|
Sub test() Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.Calculation = xlCalculationManual Range("A1").Select Do While (Selection.Offset(1, 0) <> "") Selection.Offset(1, 0).Select Debug.Print Selection.Address Cells(ActiveCell.Row, "B").FormulaR1C1 = "=COUNTIF(C[-1],RC[-1])" Loop Application.DisplayStatusBar = True End Sub |