перебор значений и перенос в другие ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » перебор значений и перенос в другие ячейки (Формулы/Formulas)

nespica2012

Дата: Среда, 01.06.2022, 21:30 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 53

Репутация: 0 ±

Замечаний: 20% ±

2017

вечер добрый уважаемые форумчане! hands

возможно ли средствами эксель создать перебор значений (текстовых и числовых) и перенести в другие ячейки (или лист) все возможные варианты.

во вложении таблица. В столбце А перечислены изделия, а в соседнем столбце В -номера партий данных изделий.
необходимо создать в столбце Е и F все возможные варианты, встречающихся в столбцах А и В.
возможно ли такое? :book:

К сообщению приложен файл: 0711176.xlsx (182.4 Kb)

Ответить

jakim

Дата: Четверг, 02.06.2022, 06:55 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1199

Репутация: 313 ±

Замечаний: 0% ±

Excel 2010

Power Query

[vba]

Код

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    #"Removed Duplicates" = Table.Distinct(Source),
    #"Filtered Rows" = Table.SelectRows(#"Removed Duplicates", each ([изделие] <> null)),
    #"Sorted Rows" = Table.Sort(#"Filtered Rows",{{"изделие", Order.Ascending}})
in
    #"Sorted Rows"

[/vba]

К сообщению приложен файл: 2636594.xlsx (176.8 Kb)

Сообщение отредактировал jakim - Четверг, 02.06.2022, 06:56

Ответить

прохожий2019

Дата: Четверг, 02.06.2022, 07:30 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 1244

Репутация: 317 ±

Замечаний: 0% ±

365 Beta Channel

PQ - я бы сортировку подправил:
[vba]

Код

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    rem = Table.Distinct(Source),
    filtr = Table.SelectRows(rem, each ([изделие] <> null)),
    sort = Table.Sort(filtr,{{(x)=>Number.From(Text.AfterDelimiter(x[изделие]," ")),Order.Ascending},
    {(x)=>try Number.From(Text.BeforeDelimiter(x[партия],"-")) otherwise x[партия],Order.Ascending}})
in
    sort

[/vba]
List.Sort – пользовательская сортировка и её альтернативы

К сообщению приложен файл: 0394173.xlsx (176.2 Kb)

Сообщение отредактировал прохожий2019 - Четверг, 02.06.2022, 07:47

Ответить

msi2102

Дата: Четверг, 02.06.2022, 11:45 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 413

Репутация: 129 ±

Замечаний: 0% ±

Excel 2007

Можно ещё так:
1. Скопировать данные в столбец Е и F (или куда вам нужно) и выделяем не столбец полностью, а только данные (см. картинку);
2. Переходим на вкладку ДАННЫЕ --> РАБОТА С ДАННЫМИ --> УДАЛИТЬ ДУБЛИКАТЫ (выделяем как на картинке) --> ОК;
3. Так как у Вас безумное количество пустых строк , то в конце остается одна. ЕЁ можно просто удалить или сразу не копировать;
4. Если у Вас записи в столбце Изделия идут именно такие, то отсортировать (чтобы было как в примере) можно добавив столбец с формулой:

Код

=--ПОДСТАВИТЬ([@изделие];"изд ";"")

К сообщению приложен файл: 6487901.png (109.3 Kb) · 9028033.png (14.1 Kb)

Сообщение отредактировал msi2102 - Четверг, 02.06.2022, 11:51

Ответить

nespica2012

Дата: Четверг, 02.06.2022, 20:13 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 53

Репутация: 0 ±

Замечаний: 20% ±

2017

спасибо всем отозвавшимся,
но к сожалению, я не знаком с Power Query, да и не будет возможности использовать данный функционал на любой машине.
буду пытаться решить задачу какими ли другими способами, хотел попробовать разбить задачу на мелкие, видимо не так просто.
необходимо автоматизировать процесс сбора данных с различных файлов, с одинаковыми таблицами.