Макрос для посчета повторов и уникальных

[Shkoda]

Здравствуйте.
Есть макрос для подсчета повторных обращений и уникальных обращений. Проблема в том что, данных 50 тыс. строк, просчитывает очень долго. Можно оптимизировать макрос?
Пример прилагаю.

[Skif-F]

В первую очередь отключи обновление экрана:

Application.ScreenUpdating = False

[Skif-F]

А ещё постарайся заменять обращения к ячейкам на работу с переменными:

Do While Cells(u, 25) <> ""
    y = 2
    x = 0
    z = 0
    t1 = Cells(u, 25) 'Используем временную переменную'
    t2 = Cells(u, 29) 'Используем временную переменную'
    Do While Cells(y, 25) <> ""
        If t1 = Cells(y, 25) Then x = x + 1 'В цикле обращений к ячейкам'
        If t2 = Cells(y, 29) Then z = z + 1 'будет меньше'
        y = y + 1
    Loop
    Cells(u, 26) = x 
    Cells(u, 30) = z 
    If x <> 0 Then Cells(u, 27) = 1 / x 'Обращение к Cells(u, 26) заменяем на х'
    If (Cells(u, 28) - z) > 0 Then Cells(u, 31) = Cells(u, 12)
    u = u + 1
Loop

[EducatedFool]

Для начала, не помешает оптимизировать сам файл - там слишком много лишнего форматирования...

(убрал лишнее форматирование - файл в архиве стал весить 24 кБ)

К сожалению, ваш макрос оптимизировать не удастся - его надо переписывать "с нуля"

В принципе, это не очень сложно, но надо понять, что вы хотите получить в итоге.

Прикрепите пример файла из 2 листов:
1 - то, что есть сейчас
2 - то, что должно получиться после нажатия волшебной кнопочки

(ну или на словах объясните, что должен делать макрос)

[IgorGO]

я использую две таких процедуры:

Sub ExlDead() 
  Application.EnableEvents = False
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
End Sub

Sub ExlLive() 
  Application.EnableEvents = True
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
End Sub

Главное не забывать после всего "оживить" Excel. За ошибками надо следить, чтобы Ваша процедура не вылетела, а то до выполнения ExlLive не дойдет, и Excel останется замерзшим.

[Shkoda]

Файл во вложении.

Изначально все было прописано формулами, можно посмореть по формулам, краткое описания в примечаниях. Красным цветом отмечены данные которые нужно получить.

За ранее благодарю.

[supergood]

Всем привет.
Вопрос к IgorGO.
А куда выше описанные процедуры необходимо добавить?
Просьба подсказать поподробней.

[supergood]

Всем привет.
Вопрос к IgorGO.
А куда выше описанные процедуры необходимо добавить?
Просьба подсказать поподробней.

[Shkoda]

Кто смотрел, просьба ответить, возможно это сделать?

[Shkoda]

Народ помогите, очень нужно. Ато зашиваюсь.
Не могу работать покамисть просчитывает!