Подсчет повторных

[supergood]

Добрый день.
Просьба к спецам помочь автоматизировать файл. Цель подсчет повторных.Если оставить как есть формулами и забросить массив на 10 000 строк книга начинает долго висеть да и объемы ее значительно увеличиваются. Просьба помочь в написании макроса. Логика записана в столбцах y,z,aa.

[Hugo121]

С этим не перекликается? Там как раз монстров обрабатывали...

http://www.programmersforum.ru/showthread.php?t=112444

[supergood]

Похоже, но не совсем.

[Hugo121]

Если похоже - может можно тот код переделать.
Просто по Вашему примеру я не понял, что конкретно надо, и по каким ячейкам смотреть повторы.

[Serge 007]

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

Добрый день.
Просьба к спецам помочь автоматизировать файл. Цель подсчет повторных.Если оставить как есть формулами и забросить массив на 10 000 строк книга начинает долго висеть да и объемы ее значительно увеличиваются. Просьба помочь в написании макроса. Логика записана в столбцах y,z,aa.

Здравствуйте.
Автоматизировать можно тремя способами:
1. Изменить формулы на более "быстрые".
2. Применить макрос
3. Применить сводную таблицу.

Я выбрал третий (см. вложение) из-за простоты в применении и быстродействия.
Если удалить из Вашего файла все формулы и заполнить информацией 10000 строк, то пересчёт сводной визуально не заметен. Так же будет и на целом листе.

[supergood]

Логика следующая.
1. В первую очередь идет округление времени до 5 мин. То есть если дата регистрации 12:27:30 округляем до 12:30. Если дата регистрации 12:27:29 округляем до 12:25.
2.Дальше если адрес+сервис+время совпадает в дальнейший анализ берем только один из этих адресов.
3.Следующий этап подсчет повторных обращений по данным полученным по алгоритму описанному в п2.
4.Если адрес опредилен как повторный то в столбец АА нужно вывести значение столбца содержание, но толькодо точки "."

[supergood]

Однозначно нужен макрос. Помогите

[Hugo121]

Половину сделал. Подрихтовал тот код по ссылке выше. Пока сделал отбор уникальных с учётом времени в другой файл, посмотрите, может так будет удобнее. Но можно и в этот же рядом выгрузить - так же слитно или как с формулами - с пустотами.
Вторая часть вопроса пока откладывается, может вечером будет время. Только поясните - пометку о сверке надо в первое упоминание адреса писать? Тогда может сделать ещё один аналогичный список уникальных адресов?
Вот с Улица1 6 30 непонятно - встречается 5 раз, пометка стоит 2 раза, но не у первого упоминания...

Option Explicit

Sub FindUnique()

    Dim i As Long, ind As Long
    Dim d As Scripting.Dictionary
    Dim arr1, arr2, rng As Range, x As Long, temp As String
    Dim tm, ttime, sec_, time_, z
    
        tm = Timer

    Set d = New Dictionary
    Set rng = Range("A2:N" & Cells(Rows.Count, 1).End(xlUp).Row)
    arr1 = rng.Value
    ReDim arr2(1 To UBound(arr1), 1 To 5)
    x = UBound(arr1, 1)
    For i = 1 To x
    ttime = arr1(i, 10)
    If Val(Format(ttime, "ss")) >= 30 Then sec_ = 1 Else sec_ = 0
    z = Round((Val(Format(ttime, "nn")) + sec_) / 5) * 5
    time_ = Format(ttime, "hh") & z
    temp = UCase(CStr(arr1(i, 4) & arr1(i, 5) & arr1(i, 6) & time_ & arr1(i, 14)))
        If d.Exists(temp) Then
            'arr2(d.Item(temp), 3) = arr2(d.Item(temp), 3) + 1' это пока не нужно
        Else
            ind = ind + 1
            d.Add temp, ind
            arr2(ind, 1) = arr1(i, 4)
            arr2(ind, 2) = arr1(i, 5)
            arr2(ind, 3) = arr1(i, 6)
            arr2(ind, 4) = arr1(i, 10)
            arr2(ind, 5) = arr1(i, 14)
        End If
    Next i
'    rng.Offset(, 7) = arr2
With Workbooks.Add
With .Sheets(1)
.[a1].Resize(UBound(arr2, 1), UBound(arr2, 2)).Value = arr2
End With
End With
    MsgBox "Время выполнения макроса составило " & Timer - tm & " сек.", vbExclamation, ""

End Sub

P.S. Исправил чуть код - про сервис забыл...

[supergood]

Выгрузить желательно туда же как и показано в примере с формулами. По второму вопросу:
По вложенному примеру, первый раз я не отсортировал по времени, прошу прощения.Выложил исправленный вариант

[Hugo121]

Опять непонятно - почему теперь все "в анализ попадают"?
И опять Улица1 6 30 четыре раза на сверке платежей... Не пойму логику.