Прескочи на основното съдържание

Как бързо да обърна / обърна ред от ред на данни в Excel?

Автор: Кели Последна промяна: 2013-11-26

Когато трябва да обърнете или обърнете реда на данните в ред, как можете бързо да го направите? Обикновено може да се наложи да използвате VBA код или други добавки на Excel за това, тъй като Excel не поддържа такава операция. И тук идват следните трудни неща, които ще ви помогнат бързо да преобърнете или обърнете ред на реда на данните в Excel.

Обърнете / обърнете реда на данните хоризонтално в редове с VBA

Обърнете / обърнете реда на данните хоризонтално в редове с Kutools за Excel



стрелка син десен балон Обърнете / обърнете реда на данните хоризонтално в редове с VBA

Ето един спретнат макрос на VBA, който може да ви помогне бързо да обърнете / обърнете реда на данните в редове хоризонтално.

Стъпка : Задръжте натиснат Друг + F11 клавиши в Excel и отваря Microsoft Visual Basic за приложения прозорец.

Стъпка : Щракнете Поставете > Модулии поставете следния макрос в Модулипрозорец.

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

Стъпка : Натисни F5 за да стартирате този макрос и се показва диалогов прозорец, за да изберете диапазон, с който да работите, вижте екранната снимка:

doc-обратен-порядък8

Стъпка 4: Натискане OK, можете да видите резултата, както е показано по-долу:


стрелка син десен балон Обърнете / обърнете реда на данните хоризонтално в редове с Kutools за Excel

с Kutools за ExcelЕ Обръщане на хоризонталния диапазон инструмент, можете бързо да обърнете / обърнете реда на данните хоризонтално в избраните редове.

Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега.

Стъпка : Изберете реда, в който ще обърнете данните.

Стъпка : Кликнете върху Kutools > Преобразувател на обхват > Обръщане на хоризонталния диапазон, вижте екранна снимка:

doc-обратен-ред-ред3

След това ще видите, че редът на всички данни е обърнат в избраните редове.

doc-обратен-ред-ред4
-1
doc-обратен-ред-ред5

Кликнете Обръщане на хоризонталния диапазон за да научите повече за тази функция.


Свързана статия:

Как да обърна / обърна колона с ред на данни вертикално в Excel?

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за 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