Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як транспонувати клітинки зліва направо в Excel?

Коли ми вводимо значення в аркуші Excel, ми зазвичай вводимо їх зліва направо, але в деяких випадках вам може знадобитися перенести клітинки зліва направо направо наліво, як показано на знімку екрана нижче. В Excel немає вбудованої функції, яка допоможе вам швидко її вирішити, але в цій статті я представляю деякі трюки, щоб зробити вам послугу.
doc транспонування зліва направо 1

Транспонуйте клітинки зліва направо за допомогою VBA

Транспонуйте клітинки зліва направо або вгору вниз за допомогою Kutools для Excel гарна ідея3


Транспонуйте клітинки зліва направо за допомогою VBA

Щоб швидко транспонувати клітинки зліва направо без формул, ви можете використовувати код VBA.

1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі, вставте код нижче в порожній сценарій.

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

doc транспонування зліва направо 2

3. прес F5 для запуску коду, вискакує діалогове вікно для введення літер стовпців, які потрібно транспонувати. Будь ласка, відокремте ці літери стовпців комами, як показано на знімку екрана нижче.
doc транспонування зліва направо 3

4. клацання OK. Тепер виділення переміщено зліва направо.


Транспонуйте клітинки зліва направо або вгору вниз за допомогою Kutools для Excel

Якщо у вас встановлений Kutools для Excel, ви можете швидко транспонувати клітинки зліва направо або вгору за допомогою своїх утиліт Flip Vertical Range та Flip Horizontal Range, як вам потрібно.

Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. 

після установки Kutools для Excel, будь ласка, виконайте наведені нижче дії :(Безкоштовно завантажте Kutools для Excel зараз!)

Виділіть клітинки, які потрібно транспонувати, зліва направо або вгору вниз, клацніть Кутулс > Діапазон > Перевернути горизонтальний діапазон/Перевернути вертикальний діапазон > всі or Тільки перевернути значення. Дивіться скріншоти:
doc транспонування зліва направо 4

Перевернути горизонтальний діапазон> Усі:
doc транспонування зліва направо 9
Перевернути по горизонталі> Тільки значення перевертання:
doc транспонування зліва направо 5

 


Перевернути вертикальний діапазон> Усі:
Вертикальний діапазон перевертання> Тільки значення перевертання:
doc транспонування зліва направо 6
doc транспонування зліва направо 7

стрілка синя права міхурВи можете зацікавитись:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.