Макрос транспонирование в excel

В предыдущих статьях мы с вами уже рассматривали вопрос о том, как в Excel преобразовать строку в столбец, то есть транспонировать данные. Так как на практике данная необходимость может встречается довольно часто, мы рассмотрели создание шаблона для транспонирования данных из строки в столбец с использованием функции ТРАНСП (ТРАНСП — Автоматическое транспонироване данных в Excel).

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

Допустим у нас есть данные на одном листе книги для транспонирования и мы хотим перевести все строки в столбцы (т.е. выполнить транспонирование). Если мы просто выделим весь лист, то при попытке транспонирования через специальную вставку (как в первой статье) мы получим ОШИБКУ. Ошибка появится из-за того, что лист Excel не квадратный, т.е. строк в нем гораздо больше чем столбцов. Отсюда мы получили ограничение для данных которые могут быть транспонированы: ширина и длина таблицы данных для транспонирования не может превышать ширины листа Excel, а именно 16 384 ячейки для MS Excel 2010.

Но для столь большого диапазона данных операция транспонирования будет проходить крайне долго (хотя, конечно, зависит от компьютера).

Если требуется выполнять операцию постоянно, то мы имеем представление о размере таблицы данных для транспонирования и потому, для ускорения операции мы можем сократить диапазон. В нашем примере до A1:X1000. Запишем вышеизложенное макросом:

Макрос Транспонирования (для тех, кто часто транспонирует)

Макрос Транспонирования

Макрос копирует диапазон A1:X1000 на активном листе, создает новый лист в книге и транспонирует данные уже в новый лист.

Теперь Вы можете изменить диапазон на свой (необходимый) и использовать Макрос в работе.

он же текстом:

Sub Макрос1()
Range("A1:X1000").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

Очень надеемся, что наша статья помогла Вам в решении Вашей проблемы. Будем благодарны, если Вы нажмете +1 и/или Мне нравится внизу данной статьи или поделитесь с друзьями с помощью кнопок расположенных ниже.

Спасибо за внимание.

SirExcel.ru – Безграничные возможности Excel

Транспонирование диапазонов и двумерных массивов в VBA Excel с помощью метода WorksheetFunction.Transpose. Синтаксис метода, примеры транспонирования.

WorksheetFunction.Transpose – это метод, который преобразует вертикальный диапазон ячеек (или двумерный массив) в горизонтальный, или наоборот, и возвращает его.

Метод WorksheetFunction.Transpose работает следующим образом: первая строка исходного диапазона (массива) становится первым столбцом нового диапазона (массива), вторая строка становится вторым столбцом и т.д.

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

Если транспонированный диапазон присваивается массиву, размерность определяется автоматически.

Синтаксис и параметры

WorksheetFunction.Transpose(Arg1)

Параметры Описание
Arg1 Обязательный параметр. Диапазон ячеек рабочего листа или двумерный массив, который необходимо транспонировать.

Примеры транспонирования

В примерах ниже транспонируется диапазон «A1:C8» в «A11:H13», как на изображении:

Транспонированный диапазон

Транспонирование диапазона

Простое транспонирование диапазона:

Sub Primer1()

    Range(«A11:H13») = WorksheetFunction.Transpose(Range(«A1:C8»))

End Sub

Транспонирование диапазона, когда размеры исходного диапазона неизвестны, а известно, что он начинается с ячейки «A1» и новый диапазон следует разместить ниже исходного через две пустые строки:

Sub Primer2()

Dim r As Long, c As Long

    ‘Определяем количество строк в исходном диапазоне

    r = Range(«A1»).CurrentRegion.Rows.Count

    ‘Определяем количество столбцов в исходном диапазоне

    c = Range(«A1»).CurrentRegion.Columns.Count

    ‘В первой половине выражения вычисляем координаты нового диапазона

    Range(Cells(r + 3, 1), Cells(r + 2 + c, r)) = WorksheetFunction.Transpose(Range(Cells(1, 1), Cells(r, c)))

End Sub

Транспонирование массива

В этом примере двумерный массив создается на основе диапазона ячеек на рабочем листе, и новый массив выгружается на рабочий лист исключительно для наглядности, чтобы результат транспонирования можно было увидеть сразу:

Sub primer3()

Dim myArr1, myArr2

    myArr1 = Range(«A1:C8»)

    myArr2 = WorksheetFunction.Transpose(myArr1)

    Range(«A11:H13») = myArr2

End Sub

 

che

Пользователь

Сообщений: 47
Регистрация: 21.03.2014

Добрый день.
Может кто нибудь поделиться макросом для транспонирования двумерного массива данных в один столбец, в одну строку.
Пример прилагаю.
Пока не нужно в работе, но может быть есть и макрос который транспонирует одномерный вертикальный или горизонтальный массив в двумерный  с предварительным указанием количества столбцов ?
Всем спасибо за помощь.

 

Сергей

Пользователь

Сообщений: 11251
Регистрация: 01.01.1970

Эт не совсем транспонирование на данном утрированом примере (структура данных думаю в реальности не такая и начнутся вопросы), можно использовать просто функцию НАИМЕНЬШИЙ

Лень двигатель прогресса, доказано!!!

 

che

Пользователь

Сообщений: 47
Регистрация: 21.03.2014

Разумеется это только пример. Размер и содержание массива (текстовые или числовые значения) могут быть разные.
Если это можно сделать не макросом, а штатными инструментами excel — тоже неплохо. Только дайте наводку )

Изменено: che11.03.2015 09:49:53

 

Сергей

Пользователь

Сообщений: 11251
Регистрация: 01.01.1970

наводки можно найти поиском тут на сайте например вываливается

такая тема

Лень двигатель прогресса, доказано!!!

 

Казанский

Пользователь

Сообщений: 8839
Регистрация: 11.01.2013

#5

11.03.2015 10:09:31

Это в тему

http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=64423&TITLE_SEO=64423-makros-dlya-transponirovaniya-dvumernogo-massiva-dannykh

Туда отправить никак не получается!

Код
Sub Che()
Dim i&, c As Range, rIn As Range, rOut As Range
Set rIn = Selection.Areas(1)
If rIn.Count < 2 Then
  MsgBox "Выделите прямоугольный диапазон и запустите снова", vbInformation
  Exit Sub
End If
Set rOut = Application.InputBox("Выделите ДВЕ первые ячейки столбца или строки для вставки", Type:=8)
If rOut.Columns.Count = 1 Then
  Set rOut = rOut.Cells(1)
  i = rIn.Rows.Count
  For Each c In rIn.Columns
    c.Copy rOut
    Set rOut = rOut.Offset(i)
  Next
ElseIf rOut.Rows.Count = 1 Then
  Set rOut = rOut.Cells(1)
  i = rIn.Columns.Count
  For Each c In rIn.Rows
    c.Copy rOut
    Set rOut = rOut.Offset(, i)
  Next
Else
  MsgBox "Было выделено более одной строки и столбца", vbCritical
End If
End Sub

Изменено: Казанский11.03.2015 10:58:15

 

Михаил С.

Пользователь

Сообщений: 10514
Регистрация: 21.12.2012

#6

11.03.2015 10:28:16

Цитата
che написал: Только дайте наводку )

мы вам наводку, и вы нам НаВодку…
:)

 

Максим Зеленский

Пользователь

Сообщений: 4646
Регистрация: 11.06.2014

Microsoft MVP

#7

11.03.2015 10:35:52

если нужен именно макрос, то вот этот работает с выделением:

Скрытый текст

Изменено: Максим Зеленский11.03.2015 10:36:15

F1 творит чудеса

 

Max Zh

Пользователь

Сообщений: 97
Регистрация: 01.01.1970

 

SAS888

Пользователь

Сообщений: 757
Регистрация: 01.01.1970

#9

11.03.2015 11:56:04

Еще вариант.
Выделить прямоугольный диапазон с данными и выполнить макрос:

Код
Sub TransMass()
    Dim x As Range, i As Long, s As String, a(), b, c(): a = Selection.Value
    For i = 1 To UBound(a): s = s & "|" & Join(Application.Index(a, i, 0), "|"): Next
    b = Split(s, "|"): ReDim c(1 To UBound(b) + 1, 1 To 1)
    For i = 1 To UBound(b): c(i, 1) = b(i): Next
    Set x = Application.InputBox("Укажите начальную ячейку для вставки", Type:=8)
    If MsgBox("В столбец?", vbYesNo, "Ориентация") = vbNo Then
        x.Resize(, UBound(c)).Value = Application.Transpose(c)
    Else: x.Resize(UBound(c)).Value = c
    End If
End Sub

Изменено: SAS88811.03.2015 11:57:53

Чем шире угол зрения, тем он тупее.

 

che

Пользователь

Сообщений: 47
Регистрация: 21.03.2014

Большое всем спасибо. Все макросы и вариант с формулами — просто в самую точку. Вообще пока не нужно, но появилась мысль: транспонировать при помощи макроса не значения, а ссылки на ячейки. Как на счет такого варианта, есть какие нибудь решения на примете ?

 

Vitallic

Пользователь

Сообщений: 239
Регистрация: 23.07.2013

#11

11.03.2015 15:15:09

Добрый день, еще один вариант транспонирования значений
Работает с выделеной областью:

Код
Sub test()
Dim a(), i%: ReDim a(Selection.Count)
For i = 1 To UBound(a): a(i) = Selection.Cells(i): Next i
' тут спрашиваем в столбец или строку транспонировать
[k10].Resize(UBound(a), 1) = Application.Transpose(a) ' в столбец
[k10].Resize(, UBound(a)) = a ' в строку
End Sub

 

che

Пользователь

Сообщений: 47
Регистрация: 21.03.2014

#12

12.03.2015 07:28:38

Цитата
Vitallic написал: Добрый день, еще один вариант транспонирования значения

Макрос работает некорректно.

Изменено: che06.04.2015 12:53:43

 

Vitallic

Пользователь

Сообщений: 239
Регистрация: 23.07.2013

#13

12.03.2015 09:01:02

Цитата
che написал: Макрос работает некорректно.

Специально сравнил работу макросов Казанский, Максим Зеленский, SAS888, так как:

Цитата
che написал: Большое всем спасибо. Все макросы и вариант с формулами — просто в самую точку.

результаты аналогичные с результатом работы моего макроса.
Единственный нюанс я использую Option Base 1, в их макросах по умолчанию этот параметр 0 что в принципе влияет на количество выводимых
элементов в итоговом массиве (на один меньше), а не на правильность его содержимого.
Или некорректность заключается в чем то другом?

 

che

Пользователь

Сообщений: 47
Регистрация: 21.03.2014

#14

12.03.2015 17:47:38

Цитата
Vitallic написал: количество выводимых элементов в итоговом массиве (на один меньше)

только в этом проблема.

 

Vitallic

Пользователь

Сообщений: 239
Регистрация: 23.07.2013

#15

12.03.2015 20:30:31

Цитата
che написал: итолько в этом проблема.

решение
установить Option Base 1перед макросом

 

che

Пользователь

Сообщений: 47
Регистрация: 21.03.2014

Всем добрый день.
Как то без внимания остались еще два моих вопроса в этой теме, поэтому наберусь смелости задать их еще раз:
первый — транспонировать в одномерный массив не значения двумерного массива, а ссылки на ячейки?
второй —  может быть есть и макрос который транспонирует одномерный вертикальный или горизонтальный массив в двумерный  с предварительным указанием
количества столбцов или строк (смотря как транспонировать по вертикали или горизонтали)..

 

Vitallic

Пользователь

Сообщений: 239
Регистрация: 23.07.2013

#17

13.03.2015 09:16:12

Цитата
che написал: Как то без внимания остались еще два моих вопроса в этой теме

так там по аналогии (результат вывел в окно отладки):

Код
Sub ttt()
Dim a(), x As Range, y%
ReDim a(Selection.Count)
For Each x In Selection
y = 1
a(y) = x.Cells.Address: y = y + 1
Debug.Print a(y - 1)
Next
End Sub

Цитата
che написал: второй —  может быть есть и макрос

давеча решал похожий вопрос вот

ссылка

, там сама логика, если что не сложно переделать под конкретную задачу

Изменено: Vitallic15.05.2015 11:48:19
(очепятка)

 

che

Пользователь

Сообщений: 47
Регистрация: 21.03.2014

Vitallic

, извините, я обычный пользователь и к сожалению информация от Вас для меня бесполезна.

 

Vitallic

Пользователь

Сообщений: 239
Регистрация: 23.07.2013

#19

13.03.2015 11:07:39

Цитата
che написал: и к сожалению информация от Вас для меня бесполезна

пример к первому вопросу из поста #16 (с инструкцией что нажимать внутри файла)

Прикрепленные файлы

  • 11.xlsm (15.3 КБ)

 

che

Пользователь

Сообщений: 47
Регистрация: 21.03.2014

Vitallic,

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

 

Vitallic

Пользователь

Сообщений: 239
Регистрация: 23.07.2013

#21

13.03.2015 11:34:31

Цитата
che написал: чтобы в ячейке было видно значение, но через ссылки на дв. массив

вот теперь я не понимаю про какие ссылки идет речь
можете приложить пример как надо

 

che

Пользователь

Сообщений: 47
Регистрация: 21.03.2014

Прикрепленные файлы

  • 11(1).xlsm (18.6 КБ)
 

Vitallic

Пользователь

Сообщений: 239
Регистрация: 23.07.2013

#23

13.03.2015 13:31:00

Код
Sub ttt()
Dim a(), x As Range, y%: ReDim a(Selection.Count): y = 1
For Each x In Selection
a(y) = "=" & x.Cells.Address: y = y + 1
Next
Set x = Application.InputBox("Укажите начальную ячейку для вставки", Type:=8)
If MsgBox("В столбец?", vbYesNo, "Ориентация") = vbNo Then
x.Resize(, UBound(a) + 1).Value = a
Else
x.Resize(UBound(a) + 1).Value = Application.Transpose(a)
End If
End Sub


изменения в 4 строке

 

che

Пользователь

Сообщений: 47
Регистрация: 21.03.2014

Vitallic

,
спасибо. то что нужно.
а что по поводу вопроса «может быть есть и макрос который транспонирует одномерный вертикальный
или горизонтальный массив в двумерный  с предварительным указанием количества столбцов или строк (смотря как транспонировать по вертикали или горизонтали)». :))

 

Vitallic

Пользователь

Сообщений: 239
Регистрация: 23.07.2013

#25

13.03.2015 20:35:31

Цитата
che написал: а что по поводу вопроса

у меня вышел вот такой «некрасивый» макрос. В принципе он решает задачу ТС, возможно есть некоторые нюансы, как например если в выделеную область попали пустые ячейки, то возвратятся нули — так нужно?

Прикрепленные файлы

  • 12.xlsm (18.67 КБ)

 

che

Пользователь

Сообщений: 47
Регистрация: 21.03.2014

Vitallic

,
добрый день. Не знаю почему Вы называете макрос «некрасивым», помоему все прекрасно работает )), именно это я и имел ввиду в своем вопросе.
То, что вместо пустых ячеек появляются нули, пока никаких проблем у меня не вызывает.
Большое спасибо за отзывчивость и за труд.

 

che

Пользователь

Сообщений: 47
Регистрация: 21.03.2014

Vitallic

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

 

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

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

 

Vitallic

Пользователь

Сообщений: 239
Регистрация: 23.07.2013

Добрый день,
посмотрите такой вариант (в файле макрос ее2)

П.С. Прислушайтесь к совету vikttur,  возможно кто то уже бы выложил ответ  

 

che

Пользователь

Сообщений: 47
Регистрация: 21.03.2014

#30

15.05.2015 13:17:09

Да, макрос то, что нужно. Но что хотелось бы в идеале: иметь один макрос и выбирать по запросу пропускать или не пропускать пустые ячейки, и чтобы макрос также считал за пустые ячейки где записано условие  =»».
Большое спасибо.

Как известно, встроенная в Excel функция листа Transpose имеет ограничения, вследствии чего её не удаётся применять для транспонирования произвольных массивов.

Вот список ограничений  встроенной функции Transpose:

  • Массив не может содержать элементов, длина которых превышает 255 знаков.
  • Массив не может содержать пустые (Null) значения.
  • Количество элементов не может превышать 5461.

Чтобы избежать этих ограничений, рекомендую использовать пользовательскую функцию TransposeArray:

Sub ПримерИспользования()
    ИсходныйМассив = ActiveSheet.UsedRange.Offset(1).Value
    ТранспонированныйМассив = TransposeArray(ИсходныйМассив)
End Sub

Код самой функции:

Function TransposeArray(ByVal arr As Variant) As Variant
    ' Пользовательская функция для транспонирования массива
    Dim tempArray As Variant
    ReDim tempArray(LBound(arr, 2) To UBound(arr, 2), LBound(arr, 1) To UBound(arr, 1))
    For X = LBound(arr, 2) To UBound(arr, 2)
        For Y = LBound(arr, 1) To UBound(arr, 1)
            tempArray(X, Y) = arr(Y, X)
        Next Y
    Next X
    TransposeArray = tempArray
End Function
  • 32233 просмотра

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.

Skip to content

6 способов быстро транспонировать таблицу

В этой статье показано, как столбец можно превратить в строку в Excel с помощью функции ТРАНСП, специальной вставки, кода VBA или же специального инструмента. Иначе говоря, мы научимся транспонировать таблицу.

В этой статье вы найдете несколько способов поменять местами строки и столбцы (или столбцы и строки), как бы вы это ни называли, это одно и то же :) Эти решения работают во всех версиях Excel 2016, 2013, 2010, 2007 и ниже, представляют множество возможных сценариев и объясняют наиболее типичные ошибки. Вот о чём мы поговорим:

  • 1. Используем специальную функцию транспонирования
  • 2. Как транспонировать с помощью формул
  • 3. Специальная вставка.
  • 4. Макрос VBA для преобразования строки в столбец
  • 5. Сводная таблица для транспонирования.
  • 6. Преобразование столбцов в строки с помощью специального инструмента

О вкусах не спорят. То же самое и с рабочими привычками. Некоторые пользователи Excel предпочитают организовывать данные вертикально в столбцы, тогда как другие выбирают горизонтальное расположение в строках. И при совместной работе над таблицами вкусы зачастую не совпадают …

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

Транспонирование – это математическая операция. Это преобразование матрицы, в результате чего столбцы становятся строками, а строки превращаются в столбцы. Говоря проще, нужно все значения в строке (горизонталь) перекинуть в столбец (вертикаль).

Способ 1. Использовать функцию ТРАНСП.

В случае, когда вам нужно быстро изменить ориентацию вашей таблицы, можно использовать функцию ТРАНСП (TRANSPOSE в англоязычной версии).

Назначение функции ТРАНСП в Excel – транспонировать строку в столбец, т. е. поменять ориентацию данных с горизонтальной на вертикальную или наоборот.

Функция ТРАНСП в Excel — синтаксис

Функция транспонировать принимает только один аргумент:

= ТРАНСП(массив)

Где массив – это диапазон для транспонирования. Данные преобразуются следующим образом: первая строка исходного диапазона становится первым столбцом нового, вторая строка становится вторым столбцом и так далее.

Синтаксис ТРАНСП не оставляет места для ошибок при создании формулы. Более сложная задача –  правильно записать её на рабочий лист. Если у вас нет большого опыта работы с формулами Excel в целом и формулами массивов в частности, внимательно следуйте приведенным ниже инструкциям.

1. Подсчитайте количество столбцов и строк в исходной таблице.

Эти числа понадобятся вам на следующем шаге.

В этом примере мы собираемся транспонировать небольшую таблицу Excel, которая показывает объем экспорта свежих фруктов по регионам:

2. Выберите такое же количество ячеек, но измените их ориентацию.

Ваша новая таблица будет содержать такое же количество значений, но данные теперь будут располагаться не по строке, а вертикально, по столбцам. Итак, вы выбираете диапазон пустых ячеек, который занимает то же количество строк, что и исходная таблица имела столбцов, и такое же количество колонок, как исходная таблица – строк.

В нашем случае мы выбираем диапазон из 5 столбцов и 4 строк:

3. Введите формулу ТРАНСП.

Выделив этот пустой диапазон, используйте функцию транспонирования:

=ТРАНСП(A1:D5)

Вот подробные шаги:

Сначала вы вводите знак равенства, имя функции и открывающую скобку: = ТРАНСП(

Затем выберите исходный диапазон с помощью мыши или введите его вручную:

Наконец, введите закрывающую скобку, но не нажимайте клавишу Enter! На этом этапе ваша формула должна выглядеть примерно так:

функция транспонировать в excel

4. Запишите формулу.

Нажмите Ctrl + Shift + Enter, чтобы правильно закончить формулу массива. Зачем это? Потому что формула должна применяться ко всем данным. И это именно то, для чего предназначены формулы массива.

После этого Excel окружит вашу формулу транспонирования {фигурными скобками}, которые видны в строке формул и являются визуальным индикатором формулы массива. Ни в коем случае не набирайте их вручную, это не сработает.

На скриншоте ниже показано, что наша исходная матрица значений была успешно транспонирована и 4 столбца были преобразованы в 4 строки. А столбцов теперь стало пять:

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

Преимущества функции ТРАНСП:

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

Слабые стороны функции ТРАНСП:

  • Исходное форматирование не сохраняется в преобразованной таблице, как вы видите на скриншоте выше.
  • Если в исходной таблице есть пустые клетки, вместо них ячейки новой таблицы будут содержать ноль. Чтобы исправить это, используйте ТРАНСП в комбинации с функцией ЕСЛИ, как описано в этом примере ниже: Как транспонировать без нулей.
  • Вы не можете редактировать какие-либо данные в преобразованной таблице, потому что она полностью завязана на исходные данные. Если вы попытаетесь изменить какое-либо значение, то получите ошибку «Вы не можете изменить часть массива».

Итак, какой бы хорошей и простой в использовании не была бы функция ТРАНСП, ей определенно не хватает гибкости. Поэтому она может быть не самым оптимальным вариантом во многих ситуациях.

Как транспонировать таблицу без замены нулей на пробелы.

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

То есть, если при транспонировании строки в столбец программа обнаруживает пустую ячейку, то вместо нее сразу же вставляется ноль. Это особенность Экселя: стоит с пустой ячейкой произвести какую-то математическую операцию, и там тут же появляется ноль. А транспонирование в Excel – это математическая операция с матрицей значений.

С одной стороны, это выглядит несущественно, поскольку не меняет математические результаты в итогах. Но для вас эти нули могут выглядеть не совсем эстетично, так как меняют внешний вид данных. Ну а если они появляются посреди текстовых значений – это совсем некрасиво.

Если вы хотите оставить в новой таблице по-прежнему пустые ячейки, а не нули, то вложите функцию ЕСЛИ в формулу ТРАНСП, чтобы предварительно проверить, является ли ячейка пустой. Если она пуста, функция ЕСЛИ вернет пустую строку («»), в противном случае предоставит значение для транспонирования:

=ТРАНСП(ЕСЛИ(A1:D5=»»;»»;A1:D5))

Введите формулу, как описано выше (не забудьте нажать Ctrl + Shift + Enter, чтобы правильно завершить формулу массива), и вы получите результат, подобный этому:

Как видите, мы транспонируем не все ячейки, а только непустые.

Советы по использованию ТРАНСП

Как вы только что видели, функция ТРАНСП имеет ряд особенностей, которые могут сбить с толку неопытных пользователей. Приведенные ниже советы помогут вам избежать некоторых типичных ошибок.

1. Как редактировать формулу?

Как функция массива, ТРАНСП не позволяет изменять часть возвращаемого массива. Чтобы отредактировать формулу транспонирования, выберите весь диапазон, к которому относится формула, внесите необходимые изменения и нажмите Ctrl + Shift + Enter, чтобы сохранить обновленную формулу.

2. Как удалить формулу?

Чтобы удалить формулу транспонирования с листа, выберите весь диапазон, на который имеется ссылка в формуле, и нажмите клавишу Del.

3. Как заменить формулу на значения?

Когда вы переворачиваете таблицу с помощью функции ТРАНСП, исходная и новая таблицы связываются. Это означает, что всякий раз, когда вы изменяете какое-либо значение в исходной таблице, соответствующее значение в новой изменяется автоматически.

Если вы хотите разорвать связь между ними, замените формулы вычисленными значениями. Для этого выберите все ячейки преобразованной таблицы, затем нажмите Ctrl + C, чтобы скопировать их в буфер обмена. Кликните правой кнопкой мыши и выберите в контекстном меню «Специальная вставка» > « Значения». Или используйте для вставки значений вместо формул комбинацию клавиш Ctrl+Alt+V.

Способ 2. Как транспонировать с помощью формул

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

Для создания ссылок на строки и столбцы нам понадобятся четыре функции из категории Ссылки и массивы:

  • Функция АДРЕС(номер_строки; номер_столбца) – выдает адрес ячейки по номеру строки и столбца на листе, т.е. АДРЕС(2;3) выдаст, например, ссылку на C2.
  • Функция ДВССЫЛ(ссылка_в_виде_текста) – преобразует текстовую строку, например, «F3» в настоящую ссылку на ячейку F3.
  • Функции СТРОКА() и СТОЛБЕЦ() — выдают номер строки и столбца для заданной ячейки, например =СТРОКА(F1) выдаст 1, а формула =СТОЛБЕЦ(А3) возвратит 3.

Теперь соединяем эти функции, чтобы получить нужную нам ссылку на исходную таблицу. Предположим, координаты её верхнего левого угла – A1.

Вводим в любую свободную ячейку (скажем, в A8) вот такую формулу:

=ДВССЫЛ(АДРЕС(СТОЛБЕЦ(A1);СТРОКА(A1)))

в английской версии Excel это будет =INDIRECT(ADDRESS(COLUMN(A1),ROW(A1)))

Чтобы столбцы превратились в строки, копируем (протягиваем) формулу вправо и вниз, перетащив маленький черный крестик в нижнем правом углу выбранных ячеек. В итоге должно получиться примерно следующее:

транспонировать формулы в excel

Вот и все! В вашей вновь созданной таблице все столбцы поменяны местами со строками.

Если ваши данные начинаются с некоторой строки, отличной от 1, и столбца, отличного от A, вам придется использовать немного более сложную формулу:

=ДВССЫЛ(АДРЕС(СТОЛБЕЦ(B6) — СТОЛБЕЦ($B$6) + СТРОКА($B$6); СТРОКА(B6) — СТРОКА($B$6) + СТОЛБЕЦ($B$6)))

Где B6 — самая верхняя левая ячейка исходной таблицы. Также обратите внимание на использование абсолютных и относительных ссылок.

Однако транспонированные данные выглядят очень просто и тускло по сравнению с исходными. Всё форматирование потеряно.

Но не расстраивайтесь, эту проблему легко решить. Чтобы восстановить исходное форматирование, выполните следующие действия:

  • Скопируйте исходную таблицу.
  • Выделите получившуюся таблицу.
  • Щелкните её правой кнопкой мыши и выберите «Параметры вставки» > «Форматирование» .

Преимущества: эта формула обеспечивает более гибкий способ замены строк и столбцов в Excel. Это позволяет вносить любые изменения в итоговую таблицу, поскольку вы используете обычную формулу, а не формулу массива.

Недостатки: вижу только один — теряется форматирование данных. Хотя вы можете быстро восстановить его, как описано выше.

Способ 3. Специальная вставка

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

как транспонировать строки в столбцы в Excel

Для этого выполните следующие действия:

  1. Выберите исходные данные. Чтобы быстро выделить всю таблицу, то есть все ячейки с данными в ней, нажмите Ctrl + Home, а потом Ctrl + Shift + End. Вы также можете транспонировать отдельную строку или столбец.
  2. Скопируйте выделенное, щелкнув правой кнопкой мыши и выбрав пункт Копировать в контекстном меню, или нажав Ctrl + C.
  3. Выберите первую позицию целевого диапазона.
    Обязательно выберите клетку, расположенную вне вашей исходной таблицы, чтобы области копирования и области вставки не перекрывались. Например, если у вас сейчас 4 столбца и 10 строк, преобразованная таблица будет иметь 10 столбцов и 4 строки.
  4. Щелкните правой кнопкой мыши целевую ячейку и выберите «Специальная вставка» в контекстном меню, затем выберите «Транспонировать».

транспонированная вставка в excel

Как вы только что видели, функция «Специальная вставка» позволяет выполнять преобразование из строки в столбец (или из столбца в строку) буквально за несколько секунд. Этот метод также копирует форматирование ваших исходных данных, чем добавляет еще один плюс в свою пользу.

Однако у этого подхода есть два недостатка, которые не позволяют называть его идеальным решением чтобы перевернуть данные в Excel:

  • Он не слишком подходит для вращения полнофункциональных таблиц Excel. Если вы скопируете всю таблицу и затем откроете диалоговое окно «Специальная вставка», то обнаружите, что пункт «Транспонировать» неактивен. В этом случае вам нужно либо скопировать ее без заголовков столбцов, либо сначала преобразовать ее в обычный диапазон.
  • Операция Специальная вставка > Транспонировать не связывает новую таблицу с исходными данными. Поэтому она хорошо подходит только для одноразовых преобразований. Всякий раз, когда исходные данные меняются, вам нужно будет повторить процесс и повернуть таблицу заново. Никто не захочет тратить свое время на преобразование одних и тех же строк и столбцов снова и снова, верно?

Как транспонировать таблицу и связать ее с исходными данными

Давайте посмотрим, как вы можете превращать строки в столбцы, используя уже знакомую нам технику специальной вставки, но при этом связывая полученную таблицу с исходным набором данных. То есть, всякий раз, когда вы меняете данные в исходной, перевернутая будет отражать изменения и обновляться соответствующим образом. Чуть выше мы назвали отсутствие такой связи недостатком. А сейчас посмотрим, как этот недостаток можно обойти.

  1. Скопируйте строки, которые нужно преобразовать в столбцы (или столбцы, которые нужно превратить в строки).
  2. Выберите пустую ячейку на том же или другом листе.
  3. Откройте диалоговое окно «Специальная вставка», как описано в предыдущем примере, и нажмите «Вставить связь» в нижнем левом углу.

  1. Результат будет примерно таким:

  1. Выберите новую таблицу и откройте диалоговое окно Excel «Найти и заменить» (или нажмите Ctrl + H, чтобы сразу перейти на вкладку Заменить).
  2. Замените все знаки «=» на «###» или любые другие символы, которых нет нигде в ваших реальных данных. Таким нехитрым образом мы преобразуем наши формулы-ссылки в текст.

Эта операция превратит ваши данные во что-то немного пугающее, как вы видите на скриншоте ниже. Но не паникуйте – еще 2 шага, и вы достигнете желаемого результата.

  1. Скопируйте диапазон со значениями «###» в буфер обмена, а затем используйте Специальная вставка > Транспонировать, чтобы преобразовать столбцы в строки.

  1. Наконец, откройте диалоговое окно «Найти и заменить» еще раз, чтобы отменить изменение, т.е. обратно заменить все «###» на «=», и восстановить ссылки на исходные данные.

Это длинноватое, но элегантное решение, не правда ли? Единственным недостатком этого подхода является то, что исходное форматирование теряется в процессе, и вам нужно будет восстановить его вручную (в дальнейшем в этом руководстве я покажу вам быстрый способ сделать это).

Способ 4. Транспонировать матрицу данных в Excel с помощью макроса VBA

Чтобы автоматизировать преобразование строк в столбцы в Excel, вы можете использовать следующий макрос:

  Sub TransposeColumnsRows()
     Dim SourceRange As Range
     Dim DestRange As Range
      Set SourceRange = Application.InputBox(Prompt:="Выделите диапазон для транспонирования", Title:="Транспонирование строк в столбцы", Type:=8)
     Set DestRange = Application.InputBox(Prompt:="Укажите верхнюю левую ячейку новой таблицы", Title:="Транспонирование строк в столбцы", Type:=8)
      SourceRange.Copy
     DestRange.Select
     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
     Application.CutCopyMode = False
  End Sub 

Чтобы добавить макрос на лист, следуйте инструкциям, описанным в разделе Как вставить и запустить код VBA в Excel .

Примечание. Транспонирование с помощью VBA имеет ограничение в 65536 элементов. Если ваш массив превышает этот предел, дополнительные данные будут автоматически отброшены.

Как использовать макрос для преобразования строки в столбец

Вставив макрос в книгу, выполните следующие шаги, чтобы повернуть таблицу:

  1. Откройте целевой рабочий лист, нажмите Alt + F8, выберите макрос TransposeColumnsRows и нажмите «Выполнить».

  1. Выберите диапазон, который вы хотите преобразовать, и нажмите OK :

  1. Выберите верхнюю левую позицию целевого диапазона и нажмите ОК:

Матрица значений транспонирована. Наслаждайтесь результатом :)

как транспонировать строку в столбец excel

Способ 5. Сводная таблица.

Еще один способ как можно транспонировать таблицу в Excel — с помощью сводной таблицы. К сожалению, этот способ работает только в одном направлении — из столбцов переворачивает данные в строки. Но его преимущество, по сравнению с предыдущими, – это возможность фильтровать данные и использовать всю мощь сводных таблиц. 

Сначала необходимо создать сводную таблицу (здесь есть подробная инструкция). Выделяем исходные данные:

Создаем её на новом листе.

В свойствах сводной таблицы отключаем общие и промежуточные итоги по столбцам и строкам.

Перетаскиваем поля в макете таблицы, и получаем результат – таблица повёрнута набок.

Преобразуйте столбцы в строки с помощью инструмента транспонирования

Если вам нужно выполнять преобразования строки в столбец достаточно часто, то возможно, вы действительно ищете более быстрый и простой способ. К счастью, у меня есть такой способ в моем Excel, как и у других пользователей надстройки Ultimate Suite  :)

Позвольте мне продемонстрировать вам, как перенести строки в столбцы в Excel буквально за пару кликов при помощи инструмента транспонирования таблицы:

  1. Выделите любую отдельную ячейку в таблице, перейдите на вкладку AblebitsTools > Transform и нажмите кнопку Transpose.

  1. В большинстве случаев настройки по умолчанию работают нормально, поэтому вы просто нажимаете «Транспонировать», ничего не меняя.

Если вы хотите Создать ссылки на исходные данные, чтобы повернутая таблица обновлялась автоматически при каждом изменении исходной таблицы, выберите соответствующий вариант:

Готово! Таблица транспонирована:

Если вам интересно попробовать этот и более 60 других профессиональных инструментов для Excel, я приглашаю вас загрузить пробную версию  Ultimate Suite. 

Итак, вы можете выбрать для себя любой из этих шести методов транспонирования таблицы в Excel.

Благодарю вас за чтение и надеюсь увидеть вас в нашем блоге!

Как сделать диаграмму Ганта Думаю, каждый пользователь Excel знает, что такое диаграмма и как ее создать. Однако один вид графиков остается достаточно сложным для многих — это диаграмма Ганта.  В этом кратком руководстве я постараюсь показать…
Как сделать автозаполнение в Excel В этой статье рассматривается функция автозаполнения Excel. Вы узнаете, как заполнять ряды чисел, дат и других данных, создавать и использовать настраиваемые списки в Excel. Эта статья также позволяет вам убедиться, что вы…
Быстрое удаление пустых столбцов в Excel В этом руководстве вы узнаете, как можно легко удалить пустые столбцы в Excel с помощью макроса, формулы и даже простым нажатием кнопки. Как бы банально это ни звучало, удаление пустых…
Как быстро заполнить пустые ячейки в Excel? В этой статье вы узнаете, как выбрать сразу все пустые ячейки в электронной таблице Excel и заполнить их значением, находящимся выше или ниже, нулями или же любым другим шаблоном. Заполнять…

В этой статье я представляю код VBA для переноса столбцов в строки и вставки новых строк для заполнения данных, как показано на скриншоте ниже. Если вас интересует эта операция, перейдите по ссылке ниже для получения дополнительных сведений.
док транспонировать вставить строки 1

Транспонировать и вставлять строки с помощью VBA


стрелка синий правый пузырь Транспонировать и вставлять строки с помощью VBA

Нет прямого способа транспонировать диапазон и вставлять строки для заполнения тех же данных, но здесь я могу ввести код VBA для быстрого решения этой задачи.

1. Нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте под кодом VBA в окно модуля. Смотрите скриншот:

VBA: транспонировать и вставлять строки.

 Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
    Dim xRg As Range
    Dim i As Long, j As Long, k As Long
    Dim x As Long, y As Long
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    Application.ScreenUpdating = False
    x = xRg(1, 1).Column + 2
    y = xRg(1, xRg.Columns.Count).Column
    For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
        If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
            k = Cells(i, x - 2).End(xlToRight).Column
            If k > y Then k = y
            For j = k To x + 1 Step -1
                Cells(i + 1, 1).EntireRow.Insert
                With Cells(i + 1, x - 2)
                    .Value = .Offset(-1, 0)
                    .Offset(0, 1) = .Offset(-1, 1)
                    .Offset(0, 2) = Cells(i, j)
                End With
                Cells(i, j).ClearContents
            Next j
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

док транспонировать вставить строки 2

3. Нажмите F5 нажмите клавишу, чтобы запустить код, а затем выберите диапазон данных, который вы хотите транспонировать, и вставьте строки в всплывающее диалоговое окно. Смотрите скриншот:
док транспонировать вставить строки 3

4. Нажмите OK. И выбранный диапазон был преобразован, как показано на скриншоте ниже.
док транспонировать вставить строки 4

Внимание: перед запуском кода лучше сохранить копию исходных данных.

Наконечник.Если вы хотите быстро преобразовать перекрестную таблицу в таблицу списка или наоборот, попробуйте использовать Kutools for ExcelАвтора Перенести размеры таблицы как показано на следующем снимке экрана. Полная функция без ограничений в 30 дней, пожалуйста, скачайте и получите бесплатную пробную версию сейчас.

док транспонировать крестик в список


Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

офисный дно

Комментарии (8)


Оценок пока нет. Оцените первым!

First copy the source range then paste-special on target range with Transpose:=True, short sample:

Option Explicit

Sub test()
  Dim sourceRange As Range
  Dim targetRange As Range

  Set sourceRange = ActiveSheet.Range(Cells(1, 1), Cells(5, 1))
  Set targetRange = ActiveSheet.Cells(6, 1)

  sourceRange.Copy
  targetRange.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

The Transpose function takes parameter of type Varaiant and returns Variant.

  Sub transposeTest()
    Dim transposedVariant As Variant
    Dim sourceRowRange As Range
    Dim sourceRowRangeVariant As Variant

    Set sourceRowRange = Range("A1:H1") ' one row, eight columns
    sourceRowRangeVariant = sourceRowRange.Value
    transposedVariant = Application.Transpose(sourceRowRangeVariant)

    Dim rangeFilledWithTransposedData As Range
    Set rangeFilledWithTransposedData = Range("I1:I8") ' eight rows, one column
    rangeFilledWithTransposedData.Value = transposedVariant
  End Sub

I will try to explaine the purpose of ‘calling transpose twice‘.
If u have row data in Excel e.g. «a1:h1» then the Range(«a1:h1»).Value is a 2D Variant-Array with dimmensions 1 to 1, 1 to 8.
When u call Transpose(Range(«a1:h1»).Value) then u get transposed 2D Variant Array with dimensions 1 to 8, 1 to 1. And if u call Transpose(Transpose(Range(«a1:h1»).Value)) u get 1D Variant Array with dimension 1 to 8.

First Transpose changes row to column and second transpose changes the column back to row but with just one dimension.

If the source range would have more rows (columns) e.g. «a1:h3» then Transpose function just changes the dimensions like this: 1 to 3, 1 to 8 Transposes to 1 to 8, 1 to 3 and vice versa.

Hope i did not confuse u, my english is bad, sorry :-).

Понравилась статья? Поделить с друзьями:
  • Макросы excel 2010 что это
  • Макрос это в excel для чайников
  • Макрос транслитерация excel с русского на английский
  • Макросы excel 2007 with
  • Макрос таймера для excel