sotnikov (Все сообщения пользователя)

Перенос данных с одной таблицы в другую

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

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

27.06.2025 08:48:43

pq
let f=each((x)=>x&List.Repeat({null},50-List.Count(x)))({[Сотрудник]{0}}&[Клиент]), from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], to = List.Combine(Table.Group(from,"Сотрудник",{"tmp",f})[tmp]) in to

Перейти

Извлечь строку текста из ячейки

sotnikov Пользователь Сообщений: 548 Регистрация: 29.01.2016	# 26.06.2025 20:31:59 Holms, =ТЕКСТПОСЛЕ(A1;" ";-1)
	Перейти

Добавление строк в таблицу по кнопке, что бы не сбивались итоги, Добавление строк в таблицу по кнопке, что бы не сбивались итоги

sotnikov Пользователь Сообщений: 548 Регистрация: 29.01.2016	# 26.06.2025 18:04:16 ~~Пишу в ЛС.~~ Выполнено. Изменено: sotnikov - 27.06.2025 19:36:21
	Перейти

Переработка рабочего времени

sotnikov Пользователь Сообщений: 548 Регистрация: 29.01.2016	# 25.06.2025 08:21:44 =ЕСЛИ(C11>=--"17:00";C11-"17:00";0) =ЕСЛИ(C11>=--"16:42";C11-"16:42";0)
	Перейти

Сопоставление строк между списками

sotnikov

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

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

24.06.2025 19:52:14

pq
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], tr = Table.ToColumns(Table.TransformColumns(from,{},Text.From)), lst = List.Transform(tr,List.RemoveNulls), buf = List.Buffer(lst{1}), to = List.Combine(List.Transform(lst{0},(x)=>List.Transform(buf,(y)=>x&" "&y))) in to

Перейти

Устройство позиций план-факт в графике производства работ Ганта, Имеется график производства работ по типу Ганта и все работы выстроены в виде таблицы сверху вниз построчно. Требуется часть каждой строки разделить на 2 строки и выполнить это для более чем 1000 строк

sotnikov

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

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

23.06.2025 12:01:35

Сделать в столбце повторяющуюся последовательность из 2 разных значений > Найти и выделить второе значение > ПКМ по любой выделенной > Вставить > Строку > Скопировать формат ячеек из подготовленного блока из двух в строки ниже.
Поторопился, некорректно работает. Надо по другому...

Аналог варианта из сообщения ниже...

pq
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], lst = List.Combine(Table.ToList(from,(x)=>{x,{null}})), to = Table.FromList(lst,(x)=>x,Value.Type(from)) in to

...Множим строки, условным форматированием убираем границу.

Изменено: sotnikov - 23.06.2025 14:03:29

Перейти

Список продуктов по плану меню

sotnikov Пользователь Сообщений: 548 Регистрация: 29.01.2016	# 19.06.2025 11:58:10 Полагаю речь обо мне. Написал в ЛС вчера, не занимая очередь тут. Выполнено, обменялись. Изменено: sotnikov - 19.06.2025 16:52:26
	Перейти

Суммирование значений по примеру другой ячейки, Подстановка значений строк для расчетного столбца

sotnikov Пользователь Сообщений: 548 Регистрация: 29.01.2016	# 19.06.2025 10:31:59 =СМЕЩ(D22;;4) =СМЕЩ(D22;;5)
	Перейти

Необходимо показать возрастную группу лица и поменяет ли оно группу в ближайшие 6 месяцев.

sotnikov Пользователь Сообщений: 548 Регистрация: 29.01.2016	# 18.06.2025 22:01:33 =ЕСНД(ЕСЛИМН(C7<6;6;C7<14;5;C7<18;4);3) =ЕСЛИ(C7=РАЗНДАТ(C6;ДАТАМЕС(C4;6);"Y");"Нет";"Да")
	Перейти

ВПР: сумма всех соответствующих значений в одной ячейке

sotnikov Пользователь Сообщений: 548 Регистрация: 29.01.2016	# 18.06.2025 20:08:39 Для последних версий Excel: =СУММ(ФИЛЬТР($C$2:$C$21;$B$2:$B$21=E2)) =ГРУПППО(B2:B21;C2:C21;СУММ;;0)
	Перейти

Разделение информации с одной строки на отдельные строки

sotnikov

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

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

18.06.2025 10:09:12

=ТЕКСТРАЗД(ОБЪЕДИНИТЬ(", ";;A1:A3);;", ")

pq
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], to = List.Combine(Table.ToList(from,(x)=>Text.Split(x{0},", "))) in to

Изменено: sotnikov - 18.06.2025 10:21:39

Перейти

Создать список в столбце без повторов

sotnikov

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

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

18.06.2025 08:41:52

pq
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], gr = Table.Group(from,"Фрукт",{"tmp",Table.RowCount}), to = Table.SelectRows(gr,each [tmp]=1)[Фрукт] in to

pq (v2)
let f=(x)=>((x)=>if List.Count(x)=1 then x else {})(Table.ToList(x)), from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], to = List.Combine(Table.Group(from,"Фрукт",{"tmp",f})[tmp]) in to

Перейти

Переработка рабочего времени

sotnikov

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

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

17.06.2025 14:20:51

pq
let f=(x)=>[a=List.Max({x{0},ent}),b=List.Min({x{1},out}), c=x&{if x{1}>=up then x{1}-a else b-a}][c], from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], ent = 8/24, out = 17/24, up = 17.5/24, gr = Table.Group(from,"Дата",{"tmp",each f([Время])}), to = Table.SplitColumn(gr,"tmp",(x)=>x,{"Вход","Выход","Смена"}) in to

Перейти

объединение данных из одной таблицы в другую

sotnikov

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

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

17.06.2025 08:19:42

Согласен с тем, что пример так себе, не понятны действия с другими столбцами. Пока так:

pq
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], gr = Table.Group(from,"Том",{"ФИО",each Text.Combine([ФИО],"; ")}), to = Table.TransformColumns(gr,{"Том",(x)=>"Том "&Text.From(x)}) in to

Перейти

Подсчет количества различающихся символов, Формулой или иным способом

sotnikov

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

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

10.06.2025 13:32:20

pq
let f=each List.Count(List.Distinct(Text.ToList([pass]))), from = Excel.CurrentWorkbook(){[Name="rez"]}[Content], to = Table.AddColumn(from[[pass]],"sym",f) in to

Перейти

Динамические массивы с транспонированием

sotnikov

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

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

08.06.2025 23:13:02

pq
let f=each {[Дата]{0}}&{Text.Combine(List.Distinct([Товар])," ")}&[Цена], from = Excel.CurrentWorkbook(){[Name="Таблица13"]}[Content], gr = Table.Group(from,"№ пп",{"tmp",f},0,(s,c)=>Number.From(c=1)), to = Table.FromList(gr[tmp],(x)=>x,{"Дата","Товар"}&{"1".."5"}) in to

Перейти

Архив данных, Архив с сайта Столото

sotnikov Пользователь Сообщений: 548 Регистрация: 29.01.2016	# 08.06.2025 00:32:23 ~~Пишу в ЛС.~~ Решение не подошло, не занимаю. Изменено: sotnikov - 08.06.2025 22:17:03
	Перейти

Поиск значений по частичному совпадению

sotnikov Пользователь Сообщений: 548 Регистрация: 29.01.2016	# 06.06.2025 16:52:37 Еще как возможный вариант (в дополнение к варианту Msi2102 выше): =ЕСНД(ВПР(ПСТР(C9;9;9);'данные по принтам'!$A$2:$B$354;2;0);"")
	Перейти

Прописать в столбце номер комплекта и один артикул из его состава

sotnikov

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

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

06.06.2025 16:25:58

pq
let f=each((x)=>{{x{0}}}&List.Transform(List.Skip(x),(i)=>{i,x{0}&i}))([дано]), from = Excel.CurrentWorkbook(){[Name="rez"]}[Content], gr = Table.Group(from,"дано",{"a",f},0,(s,c)=>Number.From(Text.At(c,0)="E")), to = Table.FromList(List.Combine(gr[a]),(x)=>x,Value.Type(from)) in to

Перейти

Перенос значений

sotnikov

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

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

06.06.2025 12:25:45

pq
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], upiv = Table.UnpivotOtherColumns(from,{"1"},"","al"), gr = Table.Group(upiv,"al",{"em",each List.Distinct([1])}), max = List.Max(List.Transform(gr[em],List.Count)), to = Table.SplitColumn(gr,"em",(x)=>x,max) in to

Перейти

Поиск нескольких значений с выводом определенной ячейки, Поиск нескольких значений с выводом определенной ячейки

sotnikov

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

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

06.06.2025 10:09:39

Цитата
nedvedav написал: Не подскажите, возможно ли еще вывести столбец с кол-вом штук, проданных на этой неделе?

pq
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], upiv = Table.UnpivotOtherColumns(from,{"ПРОД"},"МЕС","a"), to = Table.Group(upiv,{"ПРОД","МЕС"},{"КОЛ",each List.Sum([a])}) in to

Перейти

sotnikov

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

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

05.06.2025 15:16:12

pq
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], upiv = Table.UnpivotOtherColumns(from,{"ПРОД"},"МЕС","a"), to = Table.Distinct(Table.RemoveColumns(upiv,"a")) in to

Перейти

Поиск позиции первого значения

sotnikov Пользователь Сообщений: 548 Регистрация: 29.01.2016	# 04.06.2025 21:36:47 =ПОИСКПОЗ("?";A2:E2;0)-1 =ПОИСКПОЗ(ЛОЖЬ;A2:E2="";0)-1 Изменено: sotnikov - 04.06.2025 21:53:06
	Перейти

Вписать в одну ячейку название комплекта и его состав из длинного списка таковых., Есть комплекты и их состав. Все артикулы вписаны в один столб.

sotnikov

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

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

04.06.2025 20:01:10

pq
let f=each List.Zip({[дано],{Text.Combine([дано],",")}}), from = Excel.CurrentWorkbook(){[Name="rez"]}[Content], gr = Table.Group(from,"дано",{"a",f},0,(s,c)=>Number.From(Text.At(c,0)="E")), to = Table.FromList(List.Combine(gr[a]),(x)=>x,Value.Type(from)) in to

Перейти

СчетЕсли по определенным столбцам в PQ

sotnikov

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

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

03.06.2025 20:18:44

Еще вариант:

pq
let f=(x)=>List.Count(List.Select(List.Range(Record.ToList(x),2,4),(x)=>x>0)), from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content], to = Table.AddColumn(from,"Кол-во",f) in to

pq (v2)
let f=each List.Count(List.Select({[П1],[П2],[П3],[П4]},(x)=>x>0)), from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content], to = Table.AddColumn(from,"Кол-во",f) in to

Изменено: sotnikov - 04.06.2025 19:21:23

Перейти

Мульти ВПР с одновременным выполнением нескольких условий

sotnikov

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

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

02.06.2025 08:36:18

pq
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], slct = Table.SelectRows(from,each[Признак включения]<>0), gr = Table.Group(slct,"№ Месяца",{"a",each[Полная дата]}), to = Table.FromColumns(gr[a],List.Transform(gr[#"№ Месяца"],Text.From)) in to

Перейти

Вывод определенное количество строк по значению

sotnikov Пользователь Сообщений: 548 Регистрация: 29.01.2016	# 01.06.2025 02:42:35 =ФИЛЬТР('Нормы СИЗ'!C2:F179;'Нормы СИЗ'!A2:A179=AS2) =СМЕЩ('Нормы СИЗ'!A1;ПОИСКПОЗ(AS2;'Нормы СИЗ'!A:A;0)-1;2;СЧЁТЕСЛИ('Нормы СИЗ'!A:A;AS2);4)
	Перейти

Объединение таблиц с учетом дат

sotnikov

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

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

30.05.2025 19:36:04

Еще вариант PQ

pq
let from = Excel.CurrentWorkbook(), f=(x)=>try Date.From(x) otherwise x, slct = Table.SelectRows(from,each [Name]<>"svod")[Content], tr = Table.Combine(List.Transform(slct,Table.PromoteHeaders)), nms = [a=Table.ColumnNames(tr),b={{a{0},a{1}},List.Skip(a,2)}][b], ord = Table.ReorderColumns(tr,nms{0}&List.Sort(nms{1},f)), to = Table.RenameColumns(ord,{"Column2","Сотрудники"}) in to

Перейти

Преобразование широкой таблицы в длинную, Как получить список уникальных пересечений полей таблицы

sotnikov

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

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

29.05.2025 14:29:02

pq
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], tr = Table.TransformColumns(from,{},(x)=>if x=0 then null else x), upiv = Table.UnpivotOtherColumns(tr,{"ФИО","Адрес"},"Продукты","a"), to = Table.Distinct(Table.RemoveColumns(upiv,"a"),{"ФИО","Продукты"}) in to

Перейти

Просуммировать значения в заголовок

sotnikov

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

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

28.05.2025 21:34:23

pq
let f=(x)=>Table.ToList(x,(y)=>{y{0},y{1}??List.Sum(x[КОЛ])}), from = Excel.CurrentWorkbook(){[Name="fromto"]}[Content], gr = Table.Group(from,"КОЛ",{"tmp",f},0,(s,c)=>Number.From(c=null)), to = Table.FromList(List.Combine(gr[tmp]),(x)=>x,Value.Type(from)) in to

Перейти