Chelovekov
Дата: Понедельник, 06.11.2023, 12:08 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Здравствуйте уважаемые Форумчане. Прошу, Вас решить проблему, нужно из исходной таблицы выбрать данные, и разместить их в другую таблицу. Пример прилагаю. Заранее благодарен.
Здравствуйте уважаемые Форумчане. Прошу, Вас решить проблему, нужно из исходной таблицы выбрать данные, и разместить их в другую таблицу. Пример прилагаю. Заранее благодарен. Chelovekov
Ответить
Сообщение Здравствуйте уважаемые Форумчане. Прошу, Вас решить проблему, нужно из исходной таблицы выбрать данные, и разместить их в другую таблицу. Пример прилагаю. Заранее благодарен. Автор - Chelovekov Дата добавления - 06.11.2023 в 12:08
AlienSphinx
Дата: Понедельник, 06.11.2023, 19:07 |
Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация:
6
±
Замечаний:
0% ±
power query [vba]Код
let Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content][Данные], t = List.Split(Source, 4), tbls = List.Transform( t, (x) => #table( {"Дата и время", "Лига", "Результат"}, {{DateTime.FromText(Text.BeforeDelimiter(x{3}, " в "), [Culture = "ru-RU"]) + Duration.FromText(Text.AfterDelimiter(x{3}, " в ")), x{0}, x{2}}} ) ), z = Table.Combine(tbls) in z
[/vba]
power query [vba]Код
let Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content][Данные], t = List.Split(Source, 4), tbls = List.Transform( t, (x) => #table( {"Дата и время", "Лига", "Результат"}, {{DateTime.FromText(Text.BeforeDelimiter(x{3}, " в "), [Culture = "ru-RU"]) + Duration.FromText(Text.AfterDelimiter(x{3}, " в ")), x{0}, x{2}}} ) ), z = Table.Combine(tbls) in z
[/vba] AlienSphinx
Сообщение отредактировал AlienSphinx - Понедельник, 06.11.2023, 21:22
Ответить
Сообщение power query [vba]Код
let Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content][Данные], t = List.Split(Source, 4), tbls = List.Transform( t, (x) => #table( {"Дата и время", "Лига", "Результат"}, {{DateTime.FromText(Text.BeforeDelimiter(x{3}, " в "), [Culture = "ru-RU"]) + Duration.FromText(Text.AfterDelimiter(x{3}, " в ")), x{0}, x{2}}} ) ), z = Table.Combine(tbls) in z
[/vba] Автор - AlienSphinx Дата добавления - 06.11.2023 в 19:07
cmivadwot
Дата: Понедельник, 06.11.2023, 22:50 |
Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация:
94
±
Замечаний:
0% ±
365
Chelovekov , колхозный вариант.. по времени в датах упорядочивания нет... а надо
Chelovekov , колхозный вариант.. по времени в датах упорядочивания нет... а надо cmivadwot
Сообщение отредактировал cmivadwot - Понедельник, 06.11.2023, 23:21
Ответить
Сообщение Chelovekov , колхозный вариант.. по времени в датах упорядочивания нет... а надо Автор - cmivadwot Дата добавления - 06.11.2023 в 22:50