Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удаление дубликатов
 
#1
02.02.2017 17:21:07
Доброго дня!
Вопрос такой. Есть две очень большие колонки с данными(по несколько тысяч строк). Допустим, А и В. В колонку С нужно записать все данные из колонок А и В, отсеяв дубликаты.
Пробовала это сделать вручную, покрасив дубликаты цветом. Но на процессе сортировки (сдвинуть дубликаты вверх) компьютер зависает.
Может, есть другой способ?
Заранее спасибо.
 
 
 
#2
02.02.2017 17:26:11
посмотрите Настройка Plex
Изменено: grigju - 02.02.2017 17:26:21
 
 
 
#3
02.02.2017 18:03:15
Спасибо. Установила Plex демо версию.К сожалению, в ней нет действия "объединить диапазоны без дубликатов"
 
 
 
#4
02.02.2017 18:12:47
А где ваш пример в Excel?
 
 
 
#5
02.02.2017 19:56:06
Вариант (в первой строке заголовки):
Код
Sub Macro1()
Dim LastRow As Long, i As Long, Arr(), Uniq As New Collection, x
    LastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Arr = Range(Cells(2, 1), Cells(LastRow, 2)).Value
    For Each x In Arr
        On Error Resume Next
        If Not IsEmpty(x) Then Uniq.Add x, CStr(x)
    Next
    ReDim Arr(1 To Uniq.Count, 1 To 1)
    For Each x In Uniq
        i = i + 1
        Arr(i, 1) = x
    Next
    [C2].Resize(i, 1).Value = Arr
End Sub
 
 
 
#6
15.02.2017 00:33:21
Нашёл такой вариант:
Код
Sub RemoveDuplicat()
    Dim rCell As Range
    Dim rRange As Range
    Dim lCount As Long
Application.ScreenUpdating = False
    Set rRange = Selection '= Range("A1", Range("A" & Rows.Count).End(xlUp)) - для столбца
    lCount = rRange.Rows.Count
     
    For lCount = lCount To 1 Step -1
        With rRange.Cells(lCount, 1)
            If WorksheetFunction.CountIf(rRange, .Value) > 1 Then
                .EntireRow.Delete
            End If
        End With
    Next lCount
Application.ScreenUpdating = True
End Sub
- находит дубликаты в выделенном диапазоне активного столбца и удаляет эти строки.
 
 
 
#7
15.02.2017 08:48:53
Единственное, этот вариант (#6) медленно работает, когда выделяешь весь столбец...
Может кто подсказать как его ускорить?? :)
Сама логика кода вполне устраивает.
 
 
 
#8
15.02.2017 12:23:09
По-моему это просто делается. Копируете колонку один в колонку три, далее колонку вторую в опять же третью (ниже). Далее закладка "данные" - "удалить дубликаты" для третьей колонки. Все без макросов.
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
#9
15.02.2017 12:28:58
Цитата
Владимир Самара написал:
подсказать как его ускорить?
Код
Set rRange = intersect(Selection, selection.parent.usedrange)
 
 
 
#10
15.02.2017 23:00:57
Hugo, то, что нужно! Сказка!!! :) Благодарю!

Кстати, если задать:
Код
Set rRange = Application.Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns(ActiveCell.Column))
то будут удаляться дубликаты во всём активном столбце (определяется по активной ячейке) и тоже без тормозов :))
Но вариант Hugo более универсальный, так как если выделить столбец, то эффект будет таким же, плюс можно чистить тока выделенный диапазон!
 
 
 
Страницы: 1
Наверх