Перейти к основному содержанию
 

Как транспонировать / преобразовать столбцы и строки в один столбец?

Автор: Сяоян Последнее изменение: 2024 июля 08 г.

При использовании листа Excel иногда возникает проблема: как преобразовать или транспонировать диапазон данных в один столбец? (См. Следующие скриншоты :) Теперь я предлагаю вам три быстрых приема для решения этой проблемы.

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

Транспонировать / преобразовывать столбцы и строки в один столбец с формулой

Транспонировать / преобразовывать столбцы и строки в один столбец с помощью Kutools for Excelхорошая идея3

Транспонировать / преобразовывать столбцы и строки в один столбец с кодом VBA


Транспонировать / преобразовывать столбцы и строки в один столбец с формулой

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

1. Сначала определите имя диапазона для вашего диапазона данных, выберите данные диапазона, которые вы хотите преобразовать, щелкните правой кнопкой мыши и выберите Определить имя сформировать контекстное меню. в Новое имя диалоговом окне введите желаемое имя диапазона. Затем нажмите OK. Смотрите скриншот:

определить имя диапазона для диапазона данных

2. После указания имени диапазона щелкните пустую ячейку, в этом примере я щелкну ячейку E1, а затем введу эту формулу: =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1).

Внимание: Мои данные - название диапазона выбранных данных, вы можете изменить его по своему усмотрению.

3. Затем перетащите формулу в ячейку, пока не отобразится информация об ошибке. Все данные в диапазоне были перенесены в один столбец. Смотрите скриншот:

введите формулу, чтобы получить результат


Транспонировать / преобразовывать столбцы и строки в один столбец с помощью Kutools for Excel

Возможно, формула слишком длинная для запоминания, а код VBA имеет некоторые ограничения для вас, в этой ситуации, пожалуйста, не беспокойтесь, здесь я представлю вам более простой и многофункциональный инструмент -Kutools for Excel, С его Transform Range утилита, и вы сможете решить эту проблему быстро и удобно.

Kutools for Excel предлагает более 300 расширенных функций для оптимизации сложных задач, повышения креативности и эффективности. Улучшено возможностями искусственного интеллектаKutools точно автоматизирует задачи, упрощая управление данными. Подробная информация о Kutools для Excel...         Бесплатная пробная версия...

После бесплатная установка Kutools for Excel, сделайте следующее:

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

2. Нажмите Кутулс > Transform Range, см. снимок экрана:

нажмите «Преобразовать диапазон» в kutools

3. в Transform Range диалоговое окно, выберите Range to single column вариант, см. снимок экрана:

выберите опцию «Диапазон до одного столбца»

4. Затем нажмите OKи укажите ячейку для вывода результата из всплывающего окна.

укажите ячейку для помещения результата

5. Нажмите OK, а данные нескольких столбцов и строк были перенесены в один столбец.
данные диапазона были перенесены в один столбец

Если вы хотите преобразовать столбец в диапазон с фиксированными строками, вы также можете использовать Transform Range функция, чтобы быстро справиться с этим.
преобразовать один столбец в диапазон с помощью kutools


Транспонировать / преобразовывать столбцы и строки в один столбец с кодом VBA

С помощью следующего кода VBA вы также можете объединить несколько столбцов и строк в один столбец.

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули окно.

Sub ConvertRangeToColumn()
'Updateby20131126
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

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

код vba для выбора диапазона данных

4. Затем нажмите Ok, и отображается другое диалоговое окно для выбора отдельной ячейки для вывода результата, см. снимок экрана:

Код VBA для выбора ячейки для ввода результата

5. И нажмите Ok, то содержимое ячейки диапазона преобразуется в список столбца, см. снимок экрана:

код VBA для получения результата


Статьи по теме:

Как изменить строку на столбец в Excel?

Как транспонировать / преобразовать один столбец в несколько столбцов в Excel?

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

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

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

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


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

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