Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Транспонирование больших столбцов с разбивкой по листам - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Транспонирование больших столбцов с разбивкой по листам (Макросы/Sub)
Транспонирование больших столбцов с разбивкой по листам
40_b Дата: Четверг, 03.08.2017, 17:52 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем доброго дня.
Столкнулся с непростой задачей, в настоящий момент эта работа выполняется вручную, если удастся хотя бы частично автоматизировать процесс, очень поможете.

Задача: есть 5 столбцов с большим количеством строк (более 5 000).
Для удобства отображения строки транспонируются, разбиваются по кусочкам на 20 ячеек на лист. Вторые 20 ячеек на второй лист и так далее. В итоге получаем, если взять 5000 строк, 250 листов.
Далее по некоторым параметрам объединяются значения и добавляются стили, у каждого параметр свой стиль.

В примере я постарался показать, что получается в итоге. На листе 1 кусок импровизированных данных, которые транспонированы по 20 ячеек на листы 2 и 3.

Хотелось хотя бы частично автоматизировать процесс.
Подскажите, пожалуйста.
К сообщению приложен файл: 3385959.xls(24Kb)
 
Ответить
СообщениеВсем доброго дня.
Столкнулся с непростой задачей, в настоящий момент эта работа выполняется вручную, если удастся хотя бы частично автоматизировать процесс, очень поможете.

Задача: есть 5 столбцов с большим количеством строк (более 5 000).
Для удобства отображения строки транспонируются, разбиваются по кусочкам на 20 ячеек на лист. Вторые 20 ячеек на второй лист и так далее. В итоге получаем, если взять 5000 строк, 250 листов.
Далее по некоторым параметрам объединяются значения и добавляются стили, у каждого параметр свой стиль.

В примере я постарался показать, что получается в итоге. На листе 1 кусок импровизированных данных, которые транспонированы по 20 ячеек на листы 2 и 3.

Хотелось хотя бы частично автоматизировать процесс.
Подскажите, пожалуйста.

Автор - 40_b
Дата добавления - 03.08.2017 в 17:52
Kuzmich Дата: Четверг, 03.08.2017, 19:18 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 283
Репутация: 52 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код

Sub Raznesti_20()
Dim i As Long
Dim iLastRow As Long
Dim n As Integer
iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
    n = 2
  For i = 2 To iLastRow Step 20
  With Worksheets("Лист" & n)
    Range("A1:D1").Copy
    .Range("A10").PasteSpecial Transpose:=True
    Range("A" & i & ":D" & i + 19).Copy
    .Range("B10").PasteSpecial Transpose:=True
  End With
   n = n + 1
  Next
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код

Sub Raznesti_20()
Dim i As Long
Dim iLastRow As Long
Dim n As Integer
iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
    n = 2
  For i = 2 To iLastRow Step 20
  With Worksheets("Лист" & n)
    Range("A1:D1").Copy
    .Range("A10").PasteSpecial Transpose:=True
    Range("A" & i & ":D" & i + 19).Copy
    .Range("B10").PasteSpecial Transpose:=True
  End With
   n = n + 1
  Next
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 03.08.2017 в 19:18
40_b Дата: Пятница, 04.08.2017, 09:33 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
hands блеск! спасибо!Излишнее цитирование удалено администрацией
 
Ответить
Сообщениеhands блеск! спасибо!Излишнее цитирование удалено администрацией

Автор - 40_b
Дата добавления - 04.08.2017 в 09:33
Kuzmich Дата: Пятница, 04.08.2017, 09:41 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 283
Репутация: 52 ±
Замечаний: 0% ±

Excel 2003
В макросе надо еще предусмотреть проверку наличия определенного листа
Worksheets("Лист" & n)
и, если такого нет, то добавлять в книгу
 
Ответить
СообщениеВ макросе надо еще предусмотреть проверку наличия определенного листа
Worksheets("Лист" & n)
и, если такого нет, то добавлять в книгу

Автор - Kuzmich
Дата добавления - 04.08.2017 в 09:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Транспонирование больших столбцов с разбивкой по листам (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!