Отбор повторяющихся значений из таблицы

ALEX1985

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

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

20.03.2018 10:15:36

Здравствуйте! В таблице с несколькими столбцами (более двух) занесены данные, которые могут дублироваться в других столбцах. Необходимо вывести в отдельный столбец все повторяющиеся значения! Прикладываю файл с примером! Буду очень признателен, кто может помочь!

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

Tablica.xlsx (9.31 КБ)

Изменено: ALEX1985 - 20.03.2018 10:33:15

a.i.mershik Пользователь Сообщений: 8277 Регистрация: 03.12.2015	#2 20.03.2018 10:24:29 ALEX1985, Добрый день, Вы бы для приличия заполнили что должно получится... Не бойтесь совершенства. Вам его не достичь.

Bema

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

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

20.03.2018 10:29:38

Вот такая фигня получилась:
=ИНДЕКС(НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ($A$2:$E$11;$A$2:$E$11)>1;$A$2:$E$11);СТРОКА($1:$100));НАИМЕНЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПОИСКПОЗ(НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ($A$2:$E$11;$A$2:$E$11)>1;$A$2:$E$11);СТРОКА($1:$100));НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ($A$2:$E$11;$A$2:$E$11)>1;$A$2:$E$11);СТРОКА($1:$100));0)=СТРОКА($1:$100);СТРОКА($1:$100));"");СТРОКА()-1))
Вводить как формулу массива.

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

Tablica.xlsx (9.91 КБ)

Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл

кузя1972

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

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

21.03.2018 00:16:34

вариант макроса,кнопки test и очистка

Код

 Sub test()
Dim z, z1, i&, j&, m&: z = Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row).Value
ReDim z1(1 To UBound(z) * 5, 1 To 1)
    With CreateObject("scripting.dictionary"): .CompareMode = 1
    For j = 1 To UBound(z, 2)
     For i = 1 To UBound(z)
     .Item(z(i, j)) = .Item(z(i, j)) + 1
    Next i, j
   For j = 1 To UBound(z, 2)
    For i = 1 To UBound(z)
     If .Item(z(i, j)) > 1 Then: m = m + 1: z1(m, 1) = z(i, j)
    Next i, j
  unic z1
  sort
End With
End Sub

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

example_21_03_2018_pl_Кузя.xls (45.5 КБ)

Изменено: кузя1972 - 21.03.2018 00:16:55