Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
При совпадении четырёх чисел из пяти в пяти столбцах, пятый столбец переносится в строку, При совпадении четырёх чисел
 
#1
02.11.2024 01:15:35
Добрый День Уважаемые форумчане!

При совпадении четырёх чисел из пяти в пяти столбцах, пятый столбец переносится в строку

Нужна Ваша помощь! Нужен макрос выполняющий эту задачу.
Лучше всего это будет выполнить при помощи макроса.
Приложил файлы примеры для хорошего понимания этой задачи.
Количество строк может быть 1.000.000 штук.
Я специально показал цветами совпадение строк.

Всем большое спасибо за помощь и советы!
 
 
 
#2
02.11.2024 02:55:52
Добрый.Так можно решить
Скрытый текст
 
 
 
#3
02.11.2024 09:47:07
Power Query
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", Int64.Type}, {"Column2", Int64.Type}, {"Column3", Int64.Type}, {"Column4", Int64.Type}, {"Column5", Int64.Type}}),
    #"Grouped Rows" = Table.Group(#"Changed Type", {"Column1", "Column2", "Column3", "Column4"}, {{"Count", each _, type table [Column1=number, Column2=number, Column3=number, Column4=number, Column5=number]}}),
    #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each Table.AddIndexColumn([Count],"Index",1,1)),
    #"Removed Columns" = Table.RemoveColumns(#"Added Custom",{"Count"}),
    #"Expanded Custom" = Table.ExpandTableColumn(#"Removed Columns", "Custom", {"Column5", "Index"}, {"Custom.Column5", "Custom.Index"}),
    #"Pivoted Column" = Table.Pivot(Table.TransformColumnTypes(#"Expanded Custom", {{"Custom.Index", type text}}, "lt-LT"), List.Distinct(Table.TransformColumnTypes(#"Expanded Custom", {{"Custom.Index", type text}}, "lt-LT")[Custom.Index]), "Custom.Index", "Custom.Column5")
in
    #"Pivoted Column"
 
 
 
#4
02.11.2024 11:06:17
doober,
Большое Вам спасибо! Чувствуется рука профессионала.
Ваш код макроса делает свою работу на все 100%.
Успехов Вам дорогой человек я желаю.

Спасибо также jakim! Но для меня Power Query остаётся пока тёмным лесом.
Буду изучать также Power Query. Удобней для меня работать макросом.

Всем огромное спасибо! Хорошая команда на этом сайте и хорошие люди
 
 
 
Страницы: 1
Наверх