Страницы: 1
RSS
Макрос разложить строки по столбцам, Нужно строки раскидать по строкам
 
Всем привет!

Ребята нужна помощь в написание или же дописания макроса. Суть в том что нужно разложить строки из 1С в столбцы как в примере лист "Result". Для дальнейшей работы в сводных таблицах. Помогите пожалуйста. Вроде бы ничего сложного. Но что то пытаюсь написать макрос все никак вообще.  
 
Здрасьте.
Попробуйте привязаться к свойству текущей строки "уровень группировки", а не к шрифту. Выделите в вашем примере на листе TDSheet первую группу (где 04.01.2024 и далее вниз строк на 5) и запустите такой простенький макрос:
Код
Sub t()
Dim oCell As Range
    For Each oCell In Selection
        Debug.Print oCell.EntireRow.OutlineLevel
    Next
End Sub
при его выполнении будет видно, какой уровень группировки у даты, какой у контрагента и т.д. Используя эти данные (умело используя!) можно будет раскидать данные в итоговую таблицу.
Кому решение нужно - тот пример и рисует.
 
Спасибо,

Но что то не работает, так как мне нужно) Может быть ещё кто нибудь поможет)
 
Chingiz Xan, добрый день!
Вариант на листе с именем tmp (потом измените на нужное)
Скрытый текст
В коде добавил комментарии для изменения имен листов с исходными данными и результатом
Изменено: artemkau88 - 25.02.2024 12:51:20 (Забыл точку во вспомогательном макросе. Обновил файл)
 
Убрал лишние массивы и переменные
Код:
Скрытый текст
Изменено: artemkau88 - 28.02.2024 10:29:53
 
Добрый день!

То что нужно! Самое то! Спасибо большое!  
 
Chingiz Xan, сегодня добавил подробные комментарии в код (см. моё сообщение выше #5) и обновил файл.
Изменено: artemkau88 - 28.02.2024 10:30:56
 
Третий вариант. Вынес выгрузку на лист за цикл и добавил форматирование таблицы с результатом.
 
Спасибо тебе большое Мужик!  
Страницы: 1
Наверх