Как удалить пары одинаковых значений в разных столбцах

Пользователь

Сообщений: 2 Регистрация: 06.08.2018

06.08.2018 05:41:18

Здравствуйте, форумчане! Подскажите, пожалуйста, по поводу сравнения столбцов. Есть акт свертки, в котором нужно найти расхождения, для этого нужно сравнить два столбца дебет/кредит и попарно удалить совпадающие значения. Удаление дубликатов и условное форматирование не помогает (по крайней мере мне) т.к. количество совпадающих значений в столбцах разное(В примере сумма 18302,71 встречается 8 раз в столбце дебет и 10 раз в столбце кредит). Т.е. нужно попарно удалять совпадающие ячейки из разных столбцов. Как можно решить данную проблему и решаема ли она в excel вообще?

Прикрепленные файлы

primer.xlsx (31.25 КБ)

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

06.08.2018 11:07:46

Puzo,

Код

Sub Pu()
Dim i&, j
  Application.ScreenUpdating = False
  i = 2
  Do
    If Cells(i, "C") Then
      j = Application.Match(Cells(i, "C"), Columns("D"), 0)
      If Not IsError(j) Then
        Rows(j).Delete
        If j < i Then i = i - 1
        Rows(i).Delete
      Else: i = i + 1
      End If
    Else: i = i + 1
    End If
  Loop Until IsEmpty(Cells(i, "A"))
  Application.ScreenUpdating = True
End Sub

Puzo Пользователь Сообщений: 2 Регистрация: 06.08.2018	#3 06.08.2018 17:07:37 Казанский, Огромное вам спасибо!