Страницы: 1
RSS
Удаление дубликатов строк по двум значениям в двух столбцах
 
Добрый день!

Подскажите, а  каким образом можно оставить/выделить уникальные строки если значения повторяются в столбце А и B. Сортировать нельзя, значения в столбцах между А  и В необходимо сохранить.

Т.е строка помидор1 ----- оггурец1 и строка огурец1 ----помидор1 это одно и тоже - нужно оставить что-то одно.
 
LDS, если строго по примеру то, так
Код
Sub csg()
Dim iCell As Range, mCell As Range
Application.ScreenUpdating = False
    For Each iCell In Range(Cells(2, "A"), Cells(Rows.Count, "A").End(xlUp))
        For Each mCell In Range(Cells(2, "E"), Cells(Rows.Count, "E").End(xlUp))
            If iCell <> "" Then
                If iCell = mCell And iCell.Offset(0, 4) = mCell.Offset(0, -4) Then
                    Rows(mCell.Row).Delete
                End If
            End If
        Next
    Next
Application.ScreenUpdating = True
End Sub
 
Можно в любом свободном столбце строки например с помощью UDF получить отсортированную сцепку значений этих двух ячеек, и затем уже удалять дубли используя этот столбец.
 
И Вам здравствовать! Вариант в файле, то что не нужно скрыто фильтром.
Изменено: gling - 11.11.2019 22:01:55
 
casag, Спасибо) работает

gling, Прекрасное решение, простое и эффективное. Спасибо.
Страницы: 1
Наверх