Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/сравнение двух списков - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » сравнение двух списков (Формулы/Formulas)
сравнение двух списков
GGR Дата: Суббота, 30.04.2022, 17:30 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Добрый вечер уважаемые форумчане. Помогите пожалуйста поправить код макроса. Не помню кто автор макроса,взяла его на форуме. Мне надо , чтобы поcле запуcка макроса формировались данные из столбцов AB и EF. ( лист как должно быть во вложении.)В данном макросе формируются данные из столбцов A и E.Сама в макросах не сильна.
К сообщению приложен файл: ___.xlsm(26.5 Kb)
 
Ответить
СообщениеДобрый вечер уважаемые форумчане. Помогите пожалуйста поправить код макроса. Не помню кто автор макроса,взяла его на форуме. Мне надо , чтобы поcле запуcка макроса формировались данные из столбцов AB и EF. ( лист как должно быть во вложении.)В данном макросе формируются данные из столбцов A и E.Сама в макросах не сильна.

Автор - GGR
Дата добавления - 30.04.2022 в 17:30
DrMini Дата: Воскресенье, 01.05.2022, 10:14 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 835
Репутация: 47 ±
Замечаний: 0% ±

Excel LTSC 2021 RUS
чтобы поcле запуcка макроса формировались данные из столбцов AB и EF

Я в макросах тоже ноль но попробовал методом "научного тыка" и вроде работает.
было:
[vba]
Код
arr = Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row).Value
arr = Range("E2:F" & Cells(Rows.Count, 5).End(xlUp).Row).Value
[/vba]
изменил на:
[vba]
Код
arr = Range("AB2:AC" & Cells(Rows.Count, 1).End(xlUp).Row).Value
arr = Range("AF2:AG" & Cells(Rows.Count, 5).End(xlUp).Row).Value
[/vba]
А вдруг?!
:)
 
Ответить
Сообщение
чтобы поcле запуcка макроса формировались данные из столбцов AB и EF

Я в макросах тоже ноль но попробовал методом "научного тыка" и вроде работает.
было:
[vba]
Код
arr = Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row).Value
arr = Range("E2:F" & Cells(Rows.Count, 5).End(xlUp).Row).Value
[/vba]
изменил на:
[vba]
Код
arr = Range("AB2:AC" & Cells(Rows.Count, 1).End(xlUp).Row).Value
arr = Range("AF2:AG" & Cells(Rows.Count, 5).End(xlUp).Row).Value
[/vba]
А вдруг?!
:)

Автор - DrMini
Дата добавления - 01.05.2022 в 10:14
GGR Дата: Воскресенье, 01.05.2022, 11:36 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
DrMini, к сожалению не работает. Выдает пустые значения.
 
Ответить
СообщениеDrMini, к сожалению не работает. Выдает пустые значения.

Автор - GGR
Дата добавления - 01.05.2022 в 11:36
DrMini Дата: Понедельник, 02.05.2022, 08:15 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 835
Репутация: 47 ±
Замечаний: 0% ±

Excel LTSC 2021 RUS
формировались данные из столбцов AB и EF.

Из этого описания я подумал, что Вам нужно таблицы на листе Пример переместить столбцы A:C и E:G вправо до AB:AD и AF:AH.
[p.s.]прошу прощения[/p.s.]
 
Ответить
Сообщение
формировались данные из столбцов AB и EF.

Из этого описания я подумал, что Вам нужно таблицы на листе Пример переместить столбцы A:C и E:G вправо до AB:AD и AF:AH.
[p.s.]прошу прощения[/p.s.]

Автор - DrMini
Дата добавления - 02.05.2022 в 08:15
Pelena Дата: Вторник, 03.05.2022, 15:55 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 18555
Репутация: 4202 ±
Замечаний: ±

Excel 2016 & Mac Excel
GGR, так хотели?
К сообщению приложен файл: 0362087.xlsm(28.4 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеGGR, так хотели?

Автор - Pelena
Дата добавления - 03.05.2022 в 15:55
jakim Дата: Вторник, 03.05.2022, 16:44 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1116
Репутация: 295 ±
Замечаний: 0% ±

Excel 2010
Power Query

l[vba]
Код
et
    Source = Table.NestedJoin(Table2,{"Номенклатура Список 2"},Table1,{"Номенклатура Список 1"},"Table1",JoinKind.LeftOuter),
    #"Expanded {0}" = Table.ExpandTableColumn(Source, "Table1", {"Номенклатура Список 1"}, {"Table1.Номенклатура Список 1"}),
    #"Filtered Rows" = Table.SelectRows(#"Expanded {0}", each ([Table1.Номенклатура Список 1] = null)),
    #"Renamed Columns" = Table.RenameColumns(#"Filtered Rows",{{"Номенклатура Список 2", "расхождения"}}),
    #"Replaced Value" = Table.ReplaceValue(#"Renamed Columns",null,"нет в списке1",Replacer.ReplaceValue,{"Table1.Номенклатура Список 1"}),
    #"Appended Query" = Table.Combine({#"Replaced Value", Merge2})
in
    #"Appended Query"
[/vba]
К сообщению приложен файл: 1124683.xlsm(39.9 Kb)
 
Ответить
Сообщение
Power Query

l[vba]
Код
et
    Source = Table.NestedJoin(Table2,{"Номенклатура Список 2"},Table1,{"Номенклатура Список 1"},"Table1",JoinKind.LeftOuter),
    #"Expanded {0}" = Table.ExpandTableColumn(Source, "Table1", {"Номенклатура Список 1"}, {"Table1.Номенклатура Список 1"}),
    #"Filtered Rows" = Table.SelectRows(#"Expanded {0}", each ([Table1.Номенклатура Список 1] = null)),
    #"Renamed Columns" = Table.RenameColumns(#"Filtered Rows",{{"Номенклатура Список 2", "расхождения"}}),
    #"Replaced Value" = Table.ReplaceValue(#"Renamed Columns",null,"нет в списке1",Replacer.ReplaceValue,{"Table1.Номенклатура Список 1"}),
    #"Appended Query" = Table.Combine({#"Replaced Value", Merge2})
in
    #"Appended Query"
[/vba]

Автор - jakim
Дата добавления - 03.05.2022 в 16:44
GGR Дата: Пятница, 06.05.2022, 19:35 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Pelena, благодарю сердечно.Это то что мне надо.
 
Ответить
СообщениеPelena, благодарю сердечно.Это то что мне надо.

Автор - GGR
Дата добавления - 06.05.2022 в 19:35
GGR Дата: Пятница, 06.05.2022, 19:35 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
jakim, спасибо за решение.
 
Ответить
Сообщениеjakim, спасибо за решение.

Автор - GGR
Дата добавления - 06.05.2022 в 19:35
прохожий2019 Дата: Пятница, 06.05.2022, 20:49 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 915
Репутация: 250 ±
Замечаний: 0% ±

365 Beta Channel
Power Query

можно и в один запрос:
[vba]
Код
let
    f=(x)=>if x{0}=null then {x{2},x{3},"нет в списке 1",null} else {x{0},x{1},null, "нет в списке 2"},
    
    book = Table.SelectRows(Excel.CurrentWorkbook(),each Text.Contains([Name], "Table"))[Content],
    from = Table.Join(book{0},{"Номенклатура Список 1"},Table.PrefixColumns(book{1},"2"),{"2.Номенклатура Список 2"},JoinKind.FullOuter),
    filtr = Table.SelectRows(from, each [Номенклатура Список 1] = null or [2.Номенклатура Список 2] = null ),
    tbl = Table.FromList(Table.ToRows(filtr),f,{"номенклатура","наименование","статус 1","статус 2"}),
    to = Table.TransformColumnTypes(tbl,{{"номенклатура", type text}})
in
    to
[/vba]
К сообщению приложен файл: 2016925.xlsm(42.5 Kb)
 
Ответить
Сообщение
Power Query

можно и в один запрос:
[vba]
Код
let
    f=(x)=>if x{0}=null then {x{2},x{3},"нет в списке 1",null} else {x{0},x{1},null, "нет в списке 2"},
    
    book = Table.SelectRows(Excel.CurrentWorkbook(),each Text.Contains([Name], "Table"))[Content],
    from = Table.Join(book{0},{"Номенклатура Список 1"},Table.PrefixColumns(book{1},"2"),{"2.Номенклатура Список 2"},JoinKind.FullOuter),
    filtr = Table.SelectRows(from, each [Номенклатура Список 1] = null or [2.Номенклатура Список 2] = null ),
    tbl = Table.FromList(Table.ToRows(filtr),f,{"номенклатура","наименование","статус 1","статус 2"}),
    to = Table.TransformColumnTypes(tbl,{{"номенклатура", type text}})
in
    to
[/vba]

Автор - прохожий2019
Дата добавления - 06.05.2022 в 20:49
Мир MS Excel » Вопросы и решения » Вопросы по Excel » сравнение двух списков (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!