Здравствуйте. Выкладываю файл. Нужны советы по оптимизации скорости работы макроса. У меня есть подозрение что алгоритм написан неверно что плохо сказывается на скорости работы.
Основная претензия к этому участку кода
Основная претензия к этому участку кода
Код |
---|
For i = LBound(f) To UBound(f) For j = 1 To rr x = InStr(x + 1, f(i), "/") Next j If x <> 0 Then f(i) = Mid(f(i), 1, x - 1) End If x = 0 If k = f(i) Then n = n + 1 ReDim Preserve arr(n) arr(n) = tb.Cells(i, 13 + rr) End If Next i |