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

Как транспонировать ячейки слева направо в Excel?

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

Перенести ячейки слева направо с помощью VBA

Перенести ячейки слева направо или вверх вниз с помощью Kutools for Excel хорошая идея3


Перенести ячейки слева направо с помощью VBA

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

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

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

VBA: транспонировать слева направо

Sub RearrangeColumns()
'UpdatebyExtenoffice20161125
  Dim xLng, i As Long, LastRow As Long, Letters As Variant, NewLetters As Variant
  Dim strTemp As String
 
  On Error Resume Next
    strTemp = Application.InputBox _
    (Prompt:="Enter the column you want to transpose with comma separate", _
    Title:="Kutools For Excel", Type:=2)
    For i = Len(strTemp) To 1 Step -1
       NewOrder = NewOrder + Mid(strTemp, i, 1)
    Next i

  LastRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
            SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
  Letters = Split(NewOrder, ",")
  ReDim NewLetters(1 To UBound(Letters) + 1)
  Application.ScreenUpdating = False
  For xLng = 0 To UBound(Letters)
    NewLetters(xLng + 1) = Columns(Letters(xLng)).Column
  Next
  Application.ScreenUpdating = True
  Range("A1").Resize(LastRow, UBound(Letters) + 1) = _
  Application.Index(Cells, Evaluate("ROW(1:" & LastRow & ")"), NewLetters)
End Sub

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

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

4. Нажмите OK. Теперь выделение перенесено слева направо.


Перенести ячейки слева направо или вверх вниз с помощью Kutools for Excel

Если у вас установлен Kutools for Excel, вы можете быстро транспонировать ячейки слева направо или вверх вниз с помощью утилит Flip Vertical Range и Flip Horizontal Range по мере необходимости.

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

После установки Kutools for Excel, пожалуйста, сделайте, как показано ниже :(Скачать бесплатно Kutools for Excel сейчас!)

Выберите ячейки, которые нужно транспонировать слева направо или вверх вниз, нажмите Кутулс > Диапазон > Отразить горизонтальный диапазон/Отразить вертикальный диапазон > Все or Только перевернуть значения. Смотрите скриншоты:
док транспонировать слева направо 4

Отразить горизонтальный диапазон> Все:
док транспонировать слева направо 9
Отразить по горизонтали> Отразить только значения:
док транспонировать слева направо 5

 


Отразить вертикальный диапазон> Все:
Отразить вертикальный диапазон> Отразить только значения:
док транспонировать слева направо 6
док транспонировать слева направо 7

стрелка синий правый пузырьВас может заинтересовать:

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

🤖 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% и сокращает количество щелчков мышью на сотни каждый день!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations