Skip i'r prif gynnwys

Sut i fflipio / gwrthdroi rhes o drefn data yn Excel yn gyflym?

Pan fydd angen i chi wyrdroi neu fflipio trefn ddata rhes, sut allwch chi ei gyflawni'n gyflym? Fel rheol efallai y bydd yn rhaid i chi ddefnyddio cod VBA neu ychwanegion Excel eraill ar gyfer gwneud hynny, oherwydd nid yw Excel yn cefnogi gweithrediad o'r fath. Ac yma daw'r pethau anodd canlynol yn eich helpu i fflipio neu wrthdroi rhes o drefn data yn Excel yn gyflym.

Trefn data troi / gwrthdroi yn llorweddol mewn rhesi gyda VBA

Flip / gwrthdroi trefn data yn llorweddol mewn rhesi gyda Kutools ar gyfer Excel



swigen dde glas saeth Trefn data troi / gwrthdroi yn llorweddol mewn rhesi gyda VBA

Dyma macro VBA taclus a all eich helpu i fflipio / gwrthdroi'r drefn ddata yn gyflym mewn rhesi yn llorweddol.

1 cam: Daliwch y Alt + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2 cam: Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Modiwlauffenestr.

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 cam: Gwasgwch y F5 allwedd i redeg y macro hwn, ac arddangosir deialog i chi ddewis ystod i weithio gyda hi, gweler y screenshot:

doc-gwrthdroi-gorchymyn8

Cam 4: Pwyswch OK, gallwch weld y canlyniad fel y dangosir isod:


swigen dde glas saeth Troi / gwrthdroi trefn data yn llorweddol mewn rhesi gyda Kutools ar gyfer Excel

Gyda Kutools ar gyfer Excel'S Ystod Llorweddol Fflipio offeryn, gallwch fflipio / gwrthdroi trefn data yn llorweddol mewn rhesi dethol yn gyflym.

Mae Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Rhad ac am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now.

1 cam: Dewiswch y rhes lle byddwch chi'n fflipio'r data.

2 cam: Cliciwch y Kutools > Troswr Ystod > Ystod Llorweddol Fflipio, gweler y screenshot:

doc-reverse-row-row3

Yna fe welwch fod yr holl drefn ddata yn cael ei gwrthdroi yn y rhesi a ddewiswyd.

doc-reverse-row-row4
-1
doc-reverse-row-row5

Cliciwch Ystod Llorweddol Fflipio i wybod mwy am y nodwedd hon.


Erthygl gysylltiedig:

Sut i fflipio / gwrthdroi colofn o drefn data yn fertigol yn Excel?

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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