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

Вход

Регистрация

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

 

= Мир MS Excel/Транспонирование строк в столбец - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Транспонирование строк в столбец (Макросы/Sub)
Транспонирование строк в столбец
Nikita085 Дата: Пятница, 01.05.2020, 16:08 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день!)
Прошу вашей помощи в решении проблемы:
Есть таблица с данными (количество строк и столбцов может меняться), необходимо эту таблицу с помощью макроса переформатировать в один столбец.
Сначала первая строка преобразуется в столбец за ней вторая и так далее.
Заранее спасибо!)
К сообщению приложен файл: 1587.xlsx(13.5 Kb)
 
Ответить
СообщениеДобрый день!)
Прошу вашей помощи в решении проблемы:
Есть таблица с данными (количество строк и столбцов может меняться), необходимо эту таблицу с помощью макроса переформатировать в один столбец.
Сначала первая строка преобразуется в столбец за ней вторая и так далее.
Заранее спасибо!)

Автор - Nikita085
Дата добавления - 01.05.2020 в 16:08
Kuzmich Дата: Пятница, 01.05.2020, 16:49 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 523
Репутация: 106 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim iLastCol As Long
Dim iLR As Long
Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
iLR = Cells(Rows.Count, "E").End(xlUp).Row
    iLastRow = 1
  For i = 1 To iLR
    iLastCol = Cells(i, Columns.Count).End(xlToLeft).Column
    Range(Cells(i, "E"), Cells(i, iLastCol)).Copy
    Cells(iLastRow, "A").PasteSpecial xlPasteValues, Transpose:=True
    iLastRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
  Next
    Application.CutCopyMode = False
    Range("A1").Select
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim iLastCol As Long
Dim iLR As Long
Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
iLR = Cells(Rows.Count, "E").End(xlUp).Row
    iLastRow = 1
  For i = 1 To iLR
    iLastCol = Cells(i, Columns.Count).End(xlToLeft).Column
    Range(Cells(i, "E"), Cells(i, iLastCol)).Copy
    Cells(iLastRow, "A").PasteSpecial xlPasteValues, Transpose:=True
    iLastRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
  Next
    Application.CutCopyMode = False
    Range("A1").Select
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 01.05.2020 в 16:49
Nikita085 Дата: Суббота, 02.05.2020, 19:41 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Kuzmich, Благодарю за помощь
 
Ответить
СообщениеKuzmich, Благодарю за помощь

Автор - Nikita085
Дата добавления - 02.05.2020 в 19:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Транспонирование строк в столбец (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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