Перейти до основного матеріалу

Як швидко перевернути / змінити рядок порядку даних у Excel?

Коли вам потрібно змінити порядок даних у рядку або перевернути, як швидко це зробити? Зазвичай для цього вам може знадобитися використовувати код VBA або інші надбудови Excel, оскільки Excel не підтримує таку операцію. І ось ось такі хитрі речі допоможуть вам швидко перегорнути або змінити порядок рядків даних у Excel.

Перевернути / змінити порядок даних горизонтально в рядки за допомогою VBA

Перевертайте / змінюйте горизонтальний порядок даних у рядках за допомогою Kutools для Excel



стрілка синя права міхур Перевернути / змінити порядок даних горизонтально в рядки за допомогою VBA

Ось акуратний макрос VBA може допомогти вам швидко перевернути / змінити порядок даних у рядки по горизонталі.

крок 1: Утримуйте клавішу інший + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.

крок 2: Натисніть Insert > Модуліта вставте наступний макрос у Модулівікна.

Sub FlipRows()
'Updateby20131126
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

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

doc-зворотне замовлення8

Крок 4: прес OK, ви можете побачити результат, як показано нижче:


стрілка синя права міхур Перевернути/змінити порядок даних по горизонталі в рядках за допомогою Kutools для Excel

з Kutools для ExcelАвтора Перевернути горизонтальний діапазон інструмент, ви можете швидко перевернути / змінити порядок даних по горизонталі у вибраних рядках.

Kutools для Excel містить понад 300 зручних інструментів Excel. Спробуйте безкоштовно без обмежень протягом 30 днів. Отримати зараз.

крок 1: Виберіть рядок, у якому ви будете перевертати дані.

крок 2: Натисніть кнопку Кутулс > Перетворювач діапазону > Перевернути горизонтальний діапазон, див. скріншот:

doc-reverse-row-order3

Тоді ви побачите, що всі порядки даних зворотні у вибраних рядках.

doc-reverse-row-order4
-1
doc-reverse-row-order5

Натисніть Перевернути горизонтальний діапазон щоб дізнатися більше про цю функцію.


Пов'язана стаття:

Як перевернути / повернути стовпець порядку даних вертикально в Excel?

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

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

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In response to Rodrigo, Fbkil:

The error occurs because when you cut and paste the macro text into the Excel VBA editor, there are non-printing characters hidden in the area where the macro rows are indented. Delete them and it will work.

Note: Solved by someone else, not me. Was tricky, as it looked like it should work, but didn't.
This comment was minimized by the moderator on the site
When I try to run this macro, I get the message "syntax error" with the command line "For j = 1 To UBound(Arr, 2) / 2" highlighted in red. Does anyone know how to fix it?
This comment was minimized by the moderator on the site
got the same error. update needed
This comment was minimized by the moderator on the site
Great tool, thanks so much for VBA - I transposed a column to rows first and then used your VBA for reversing - saved tons of time!
This comment was minimized by the moderator on the site
You flipped the column order not the row order as per the title.
This comment was minimized by the moderator on the site
Copy paste (transpose) the row to column. Add 1 to x on the column beside. Filter from largest to smallest and expand. Then copy paste result and transpose to row again
This comment was minimized by the moderator on the site
A quicker way would be be to copy your selection. Right click, choose paste special. Check the transpose button, hit ok and the rows and columns will be transposed. http://office.microsoft.com/en-us/excel-help/switch-transpose-columns-and-rows-HP010224502.aspx
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations