Макрос в эксел или PHP обработчик данных для формата .xls

[panashka]

Нужен макрос, который оставлял бы одинаковые строки и удалял бы строки, которые в файле не повторяются.

например


Тут нужно, чтоб макрос убрал строку с кодом 316 и 31612 в первом столбце, который в файле один, и оставил повторяющиеся коды

31
31610
31611

Заранее спасибо откликнувшимся, оплату гарантирую

[EducatedFool]

Вот весь код:

Sub test()
    Dim cell As Range, ra As Range, delra As Range
    Application.ScreenUpdating = False
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        If WorksheetFunction.CountIf(ra, cell) = 1 Then
            If delra Is Nothing Then Set delra = cell Else Set delra = Union(delra, cell)
        End If
    Next cell
    If delra Is Nothing Then MsgBox "На листе остались только повторяющиеся строки", 64: Exit Sub
    delra.EntireRow.Delete
    Application.ScreenUpdating = True
End Sub

А вот - пример файла с макросом:

[panashka]

спасибо большое, помог невероятно. Как насчет оплаты?