Транспонирование строк в столбец

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Транспонирование строк в столбец (Макросы/Sub)

Транспонирование строк в столбец

Nikita085

Дата: Пятница, 01.05.2020, 16:08 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

К сообщению приложен файл: 1587.xlsx (13.5 Kb)

Ответить

Kuzmich

Дата: Пятница, 01.05.2020, 16:49 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 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]

Ответить

Nikita085

Дата: Суббота, 02.05.2020, 19:41 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Kuzmich, Благодарю за помощь

Ответить

Транспонирование строк в столбец (Макросы/Sub)

Страница 1 из 1
1