Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удалить из колонки все кроме дублей
 
#1
05.05.2015 14:47:57
Нужно удалить из колонки все кроме дублей. Или отсортировать дубли так, чтобы они были вначале или в другой колонке. Пробовал через условное форматирование выделять дубли, а дальше как быть?
 
 
 
#2
05.05.2015 15:09:33
Выдели дубли, сделай фильтр по цвету заливки дублей, скопируй их в соседний столбец, удали дубли (вкладка "данные" -> удалить дубликаты) , сними заливку. Вот тебе и список повторяющихся значений в уникальном виде.
 
 
 
#3
05.05.2015 15:09:41
Примените расширенный фильтр и отберите уникальные в нужный столбец
 
 
 
#4
05.05.2015 15:09:48
сортировать по цвету
Живи и дай жить..
 
 
 
#5
05.05.2015 15:15:13
Я вообще задачу не понял.
Вот что должно получится из например такого:
1
2
3
2
4
3
5
2
3
 
 
 
#6
05.05.2015 15:35:38
Цитата
Kuzmich написал: Примените расширенный фильтр и отберите уникальные в нужный столбец
Жму фильтр -> Дополнительно, исходный диапазон $A$1:$A$67473, условия $A$1:$A$67473, поместить результат в B (указал колонку), поставил галку только уникальные. Как я понял это должно было перекинуть все уникальные значения в колонку B, а в A оставить дубли, но у меня он просто скопировал всю колонку. ЧТо я не так сделал?
Цитата
Hugo написал: Я вообще задачу не понял.
2
2
3
3
Или просто хаотично разбросанные дубли, без фильтра. Но у меня значения повторяться могут максимум 2 раза.
Изменено: MobileLord - 05.05.2015 16:02:37
 
 
 
#7
05.05.2015 15:49:51
Так кажется получилось через фильтры ячеек отсортировать. Всем спасибо за помощь.
 
 
 
#8
05.05.2015 15:56:33
Код
Sub Макрос1()
Application.ScreenUpdating = False
    Columns("M:M").Select
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("M1").Select
    Selection.AutoFilter
    ActiveSheet.Range("M:M").AutoFilter Field:=1, Criteria1:=RGB(255, _
        199, 206), Operator:=xlFilterCellColor
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("N1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Range("M:M").AutoFilter Field:=1
    Columns("M:M").Select
    Selection.FormatConditions.Delete
    Selection.AutoFilter
End Sub
В виде кода для столбца "M" и вставка в "N1"
 
 
 
#9
05.05.2015 16:17:12
Ну так тады СЧЕТЕСЛИ() каждому значению по всему диапазону, и фильтр или сортировка - у кого 1, тот не дубль, того под нож. Вручную.
 
 
 
Страницы: 1
Читают тему
Наверх