удаление дубликатов и группировка строк

[Serglen]

Необходимо удалить дубликаты в каждой из групп (группировать нужно строки между пустыми ячейками), так чтобы из 1.jpg получилось 2.jpg.К сожалению в VBA не силен Заранее спасибо!

[дмидми]

Вообще-то за готовыми решениями полагается обращаться во Фриланс

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

Option Explicit

Sub KillDoublesInColumn()
    Const START_ADDR = "A1"
    Dim r1 As Range, r2 As Range

    Set r1 = Range(START_ADDR)
    Set r2 = r1.End(xlDown)
    Do While Not IsEmpty(r2) And r1.Row <> r2.Row
        KillDoublesInArea Range(r1, r2)
        Set r1 = r1.End(xlDown).End(xlDown)
        Set r2 = r1.End(xlDown)
    Loop
End Sub

Private Sub KillDoublesInArea(r As Range)
    Dim i As Long, iMax As Long

    r.Sort key1:=r.Cells(1), order1:=xlAscending, Header:=xlNo
    iMax = r.Rows.Count
    For i = iMax To 2 Step -1
        If r.Cells(i, 1) = r.Cells(i - 1, 1) Then
            r.Cells(i, 1).Delete xlShiftUp
            'OR r.Cells(i, 1).EntireRow.Delete
        End If
    Next
End Sub

[Serglen]

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