Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Редактирование иерархической группировки в линейную, выгрузка из 1с БИТ Финанс
 
#1
01.02.2021 11:09:07
Добрый день,
прошу помочь с адаптацией иерархическое группировки выгрузки в линейную.
Если предложите макрос буду очень благодарна.
Пример во вложении.
 
 
 
#2
01.02.2021 11:31:30
Екатерина, а можете файл показать несколько разных вариантов контрагентов/договоров в файле...
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
02.02.2021 12:13:58
Mershik, документ во вложении.
 
 
 
#4
02.02.2021 14:25:00
У меня вот так получилось. Прочитайте комментарии в файле
 
 
 
#5
02.02.2021 17:17:09
вариант на pq
Код
let
    Source = Table.DemoteHeaders(Excel.Workbook(File.Contents(Excel.CurrentWorkbook(){[Name="qq"]}[Content]{0}[Column1]), true){[Item="Лист1",Kind="Sheet"]}[Data]),
    a = Table.LastN(Source, each [Column1] <> "Счет"),
    b = Table.AddColumn(a, "Контрагенты", each if Text.Length([Column1]) > 4 and Text.Length([Column1]) - Text.Length(Text.Remove([Column1], {"0".."9"})) < 4 then [Column1] else null),
    c = Table.FillDown(b,{"Контрагенты"}),
    d = Table.SelectRows(c, each Text.Length([Column1]) > 6 and [Column1]<>[Контрагенты]),
    #"Renamed Columns" = Table.RenameColumns(d,{{"Column1", "Договор"}, {"Column7", "Дебет"}, {"Column8", "Кредит"}}),
    f = Table.SelectColumns(#"Renamed Columns",{"Контрагенты", "Договор", "Дебет", "Кредит"})
in
    f
 
 
 
#6
02.02.2021 17:18:48
Волшебство, спасибо большое.
 
 
 
#7
04.02.2021 10:41:38
Цитата
Антон написал:
pq
не совсем поняла как с этим работать, можете расписать пожалуйста?
 
 
 
#8
05.02.2021 05:33:39
Проще привести данные в необходимую форму в  программе 1с выборкой из регистров бухгалтерии либо через консоль отчета, либо через произвольные отчеты, а затем обрабатывать в excel
 
 
 
#9
05.02.2021 09:30:46
Можно ещё так

ЗЫ
Начинает обработку с 4 строки
Результат на листе "Результат"
Определяет:
- контрагента если отступ = 0;
- договор если отступ = 1.
Если не будет отступов или вместо них будут пробелы работать не будет.  
Изменено: msi2102 - 05.02.2021 09:31:05
 
 
 
#10
09.02.2021 12:36:00
Благодарю.

Цитата
LubovR написал: Проще привести данные в необходимую форму в  программе 1с ... а затем обрабатывать в excel
Нет такой возможности!
 
 
 
#11
09.02.2021 13:07:22
Цитата
Екатерина написал:
как с этим работать, можете расписать пожалуйста?
Начните изучать- не пожалеете
 
 
 
Страницы: 1
Наверх