Страницы: 1
RSS
Удаление строк с повторяющимися значениями в первом и во втором столбце, Удаление строк с повторяющимися значениями в первом и во втором столбце
 
Добрый день!
Есть таблица с двумя столбцами (см. пример ниже). Есть строки с одинаковым смыслом, но разными данными. Такая строка должна остаться одна, чтобы не было дубля. Возможно ли это сделать в Excel или Power Query? Пыталась отметить дубли через ВПР - из-за повторяющихся значения не работает (т.к. впр останавливается на первом найденном).
 
an.gribova, вариант, если правильно понял
Код
Sub f()
Dim i As Long
Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = lr To 2 Step -1
x1 = Application.WorksheetFunction.CountIfs(Columns(1), Cells(i, 1), Columns(2), Cells(i, 2))
x2 = Application.WorksheetFunction.CountIfs(Columns(1), Cells(i, 2), Columns(2), Cells(i, 1))
    If x1 + x2 >= 2 Then Rows(i).Delete
Next i
End Sub
Изменено: Mershik - 12.08.2020 16:35:51 (заменил мак)
Не бойтесь совершенства. Вам его не достичь.
 
Да, именно то, что нужно! Огромное спасибо.

Не знаете как можно решить проблему, когда запускаешь этот скрипт на 90 тыс. строк? (виснет и отваливается Excel)
 
an.gribova, не виснет а считает долг, нужно в массив засунуть если никто не поможет сейчас то завтра попробую...
а может в PQ кто-то сделает, ждите)
Не бойтесь совершенства. Вам его не достичь.
Страницы: 1
Наверх