Извлечение повторяющихся элементов по нескольким условиям

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

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

06.07.2024 18:29:26

Привет, Форумчане. Нужна помощь в извлечении дубликатов по нескольким условиям. Есть два столбца Имя и Отчество, нужно извлечь Все дубликаты в отдельный столбец по Имени и Фамилии. Во вложении пример. Получилось извлекать дубликаты только по именам, но когда пытаюсь извлечь Дубликаты Имен с разными дубликатами отчеств, не получается. К примеру ниже Таблица, извлечь дубликаты только имена без критерия отчество получается, когда добавляется критерий отчество тоже от части получается, с одним но если у имен разные дубликаты отчеств оно выводит только одно имя. Что имею в виду, используя данную формулу массива {=ЕСЛИОШИБКА(ИНДЕКС($A$2:$A$15;ПОИСКПОЗ(0;СЧЁТЕСЛИ($D$1:D1;$A$2:$A$15)+ЕСЛИ(СЧЁТЕСЛИМН($A$2:$A$15;$A$2:$A$15;$B$2:$B$15;$B$2:$B$15)>1;0;1);0));"")}
Формула извлекает Иван, потом Максим, и потом Андрей. Но так как у Максим разные отчества и отчества у обоих дублируется, надо чтобы извлекалось в следующем порядке - Иван, Максим (с одним отчеством), Максим ( с другим отчеством), Андрей.

Имена	Отчество
Иван	Михайлович
Александр	Сергеевич
Максим	Алексеевич
Рамиль	Юсупович
Максим	Михайлович
Андрей	Васильевич
Никита	Игоревич
Андрей	Васильевич
Валерий	Алабаевич
Иван	Михайлович
Максим	Михайлович
Мина	Ара
Тан	Уруевич
Максим	Алексеевич

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

Прим1.xlsx (9.31 КБ)

Hugo

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

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

06.07.2024 19:15:10

Если цель - выявить, то можно протянуть

Код
=СУММПРОИЗВ(($A$2:$A$15=A2)*($B$2:$B$15=B2))

Затем можно фильтр, копипаст, удалить дубликаты.
Дёшево и сердито:

Иван Михайлович
Максим Алексеевич
Максим Михайлович
Андрей Васильевич

Изменено: Hugo - 06.07.2024 19:17:07

txxt

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

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

06.07.2024 19:29:50

В PQ - простой группировкой + фильтр

Код

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Имена", type text}, {"Отчества", type text}}),
    #"Сгруппированные строки" = Table.Group(#"Измененный тип", {"Имена"}, {{"Количество", each _, type table [Имена=nullable text, Отчества=nullable text]}, {"счет", each Table.RowCount(_), Int64.Type}}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Сгруппированные строки", "Пользовательский", each Table.Distinct([Количество])),
    #"Развернутый элемент Пользовательский" = Table.ExpandTableColumn(#"Добавлен пользовательский объект", "Пользовательский", {"Отчества"}, {"Отчества"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Развернутый элемент Пользовательский", each ([счет] <> 1)),
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Строки с примененным фильтром",{"Имена", "Отчества"})
in
    #"Другие удаленные столбцы"

Изменено: txxt - 07.07.2024 00:09:57

Hugo Пользователь Сообщений: 25109 Регистрация: 22.12.2012	#4 06.07.2024 19:32:58 Можно ещё несложным макросом в новый лист или куда угодно их всех выгрузить. Или по месту удалить лишнее - смотря в чём задача/процесс

sotnikov

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

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

06.07.2024 23:00:56

pq
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], gr = Table.Group(from,Table.ColumnNames(from),{"t",(x)=>x{1}?}), to = Table.FromRecords(List.RemoveNulls(gr[t])) in to

txxt Пользователь Сообщений: 15 Регистрация: 23.10.2023	#6 07.07.2024 00:11:24 либо еще вариант - просто выделить и сделать сводную таблицу Прикрепленные файлы Cvod.jpg (87.49 КБ)

jakim

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

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

07.07.2024 13:11:43

Код

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Grouped Rows" = Table.Group(Source, {"Имена"}, {{"Count", each Table.RowCount(_), type number}}),
    #"Filtered Rows" = Table.SelectRows(#"Grouped Rows", each ([Count] <> 1))
in
    #"Filtered Rows"

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

Прим1.xlsx (17.81 КБ)

Изменено: jakim - 07.07.2024 13:15:00

Павел \Ʌ/

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

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

excel 2007, 2016

08.07.2024 11:39:49

21-й эксель:
=УНИК(ФИЛЬТР(A2:B15;СЧЁТЕСЛИМН(A$2:A$15;A$2:A$15;B$2:B$15;B$2:B$15)>1))
постарше:
{ }
=ЕСЛИОШИБКА(ИНДЕКС(A$2:A$15;НАИМЕНЬШИЙ(ЕСЛИ((СЧЁТЕСЛИМН(A$2:A$15;A$2:A$15;B$2:B$15;B$2:B$15)>1)*(ПОИСКПОЗ(A$2:A$15&B$2:B$15;A$2:A$15&B$2:B$15;)=СТРОКА(A$2:A$15)-СТРОКА(A$1));СТРОКА(A$2:A$15)-СТРОКА(A$1));СТРОКА(A1)));"")

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

Прим1_.xlsx (11.03 КБ)

Carbonxander

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

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

10.07.2024 17:43:42

Павел \Ʌ/, спасибо за формулу. А как сделать то же самое, только если есть еще таблица и извлечь дубли между первой и второй. Пробовал преобразовать формулу, что указана выше, но ничего не получается.

Имена	Отчества	Имя	Отчество
Иван	Михайлович	Иван	Михайлович
Александр	Сергеевич	Александр	Сергеевич
Максим	Алексеевич	Максим	Алексеевич
Рамиль	Юсупович	Рамиль	Юсупович
Максим	Михайлович	Максим	Михайлович
Андрей	Васильевич	Андрей	Васильевич
Никита	Игоревич	Никита	Игоревич
Андрей	Васильевич	Олег	Алексеевич
Валерий	Алабаевич	Андрей	Васильевич
Иван	Михайлович	Иван	Михайлович
Максим	Михайлович	Максим	Алексеевич
Мина	Ара	Мина	Ара
Тан	Уруевич	Максим	Михайлович
Максим	Алексеевич	Крык	Манович

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

Прим1_.xlsx (12.72 КБ)