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

[nilem]

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

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

2-й лист - это просто образец, удалите его. Строки удаляются с того листа, где находится стрелка.

[Hugo121]

Я чуть помозговал - чем в коде учитывать несортировку, так проще сперва на листе отсортировать (например по допстолбцу с номер & абсолютная_сумма) , потом твоим кодом почистить.

[Demon010]

А для файлов с количеством строк 45к не работает(

[nilem]

Оно и не должно работать, все напутал
Из предыдущего поста файл убрал, теперь смотрим здесь.
Маленькая зеленая стрелка удаляет строки на листе - можно использовать, если строк не больше 10000, например.
Для большего кол-ва строк используем большую красную стрелку - удаляет строки из массива, работает быстрее.
... А для еще большего - сиреневую стрелку (файл дополню), вот:

Sub SmartArrDoljok()    
Dim x, z(), i&, j&, k&: Application.ScreenUpdating = False
With Range("C9:M" & Cells(Rows.Count, 4).End(xlUp).Row + 1)
    x = .Value: .ClearContents
End With
ReDim z(1 To UBound(x), 1 To 11)
For i = 1 To UBound(x) - 1
    If x(i, 2) <> x(i + 1, 2) Or x(i, 8) <> -x(i + 1, 8) Then
        j = j + 1: z(j, 1) = j
        For k = 2 To 11: z(j, k) = x(i, k): Next k
    Else: i = i + 1
    End If
Next i
[c9:m9].Resize(j).Value = z
Application.ScreenUpdating = True
MsgBox "Удалено строк: " & UBound(x) - j - 1
End Sub

[Demon010]

Премного благодарен Вам за помощь)