Нужно удалить строки с одинаковыми по модулю значениями

[Demon010]

Добрый день. У меня такая проблема - дано было задание на редактирование файла задолжников. В файле имеются строки с одинаковыми значениями, если брать по модулю. Так как файл достаточно объемен - порядка 40к-50к строк - надо написать макрос или скрипт VBA.
Само задание было такое - надо чтобы при запуске макроса или скрипта удалялись одинаковые по модулю строки, которых имеются одинаковые по модулю значения долга, принадлежащие одному задолжнику. По модулю берутся значения долга из столбца J, которые принадлежат задолжнику из столбца E.
Помогите, пожалуйста, люди добрые.

[Hugo121]

Что-то похожее давно делал, но правда уже не помню, как... Не Вам делал?
По задаче - задолжников вероятно правильнее отбирать по столбцу D?

[Demon010]

Если бы мне помогли - я бы уже вряд ли обращался с одним и тем же вопросом во второй раз)
Да, Вы правы, надо отбирать по столбцу D и смотреть на значения в столбце J
Ибо там идут значения со знаком + и -, соответственн оесли у одного и того же задолжника одинаковое значение со знаком + и - , то эти строки удаляются

[Hugo121]

Вы уверены, что не будет два/три/четыре условно Иванова Ивана Ивановича? А вот нам разок попались, причём даже по одному счёту, но разные люди... Оказались отец и сын, выловили по персональному коду...

[nilem]

Вариант

Sub doljok()
Dim x, i&, rDel As Range, c&
Application.ScreenUpdating = False
x = Range("A8:M" & Cells(Rows.Count, 4).End(xlUp).Row).Value
For i = UBound(x) To 3 Step -1
    If x(i - 1, 4) = x(i, 4) Then
        If x(i - 1, 10) = -x(i, 10) Then
            If Not rDel Is Nothing Then
                Set rDel = Union(rDel, Range(Cells(i + 6, 1), Cells(i + 7, 1)))
                If rDel.Count > 500 Then
                    c = c + rDel.Count
                    rDel.EntireRow.Delete
                    Set rDel = Nothing
                End If
            Else
                Set rDel = Range(Cells(i + 6, 1), Cells(i + 7, 1))
            End If: i = i - 1
        End If
    End If
Next i
If Not rDel Is Nothing Then
    c = c + rDel.Count
    rDel.EntireRow.Delete
End If
Application.ScreenUpdating = True
MsgBox "Удалено строк: " & c
End Sub

[Demon010]

nilem, Спасибо большое за помощь)

[Hugo121]

Николай, а если данные не сортированы?
Но у меня сегодня что-то не придумывается, я пас... Да и занят по работе...

[Demon010]

А можно без использования 2 листа в книге?
Чтобы обходиться только одним листом где находятся исходные данные?

[nilem]

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

Николай, а если данные не сортированы?

Игорь, привет!
Ориентировался на пример - там все отсортировано. Ну если что, можно добавить пару строчек.

[Demon010]

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

Николай, а если данные не сортированы?

Данные изначально приходят сортированные, на всякий случай сами сортируем