Skip to main content

Conas sraith d’ordú sonraí in Excel a smeach / a aisiompú go tapa?

Nuair is gá duit ord sonraí as a chéile a aisiompú nó a smeach, conas is féidir leat é a dhéanamh go tapa? De ghnáth b’fhéidir go mbeidh ort cód VBA nó breiseáin Excel eile a úsáid chun é sin a dhéanamh, toisc nach dtacaíonn Excel le hoibriú den sórt sin. Agus anseo a chuideoidh na rudaí fánacha seo a leanas leat sraith d’ord sonraí in Excel a smeach nó a aisiompú go tapa.

Ordú sonraí smeach / droim ar ais go cothrománach i sraitheanna le VBA

Ordú sonraí smeach / droim ar ais go cothrománach i sraitheanna le Kutools le haghaidh Excel



mboilgeog cheart gorm saighead Ordú sonraí smeach / droim ar ais go cothrománach i sraitheanna le VBA

Seo macra néata VBA a chabhróidh leat an t-ordú sonraí a shmeamh / a aisiompú go tapa i sraitheanna go cothrománach.

1 Céim: Coinnigh síos an Eile + F11 eochracha in Excel, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2 CéimCliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas sa Modúilfhuinneog.

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 Céim: Brúigh an F5 eochair chun an macra seo a rith, agus taispeántar dialóg duit raon a roghnú le bheith ag obair leis, féach an scáileán:

doc-droim ar ais-ordú8

Céim 4: Preas OK, is féidir leat an toradh a fheiceáil mar a thaispeántar thíos:


mboilgeog cheart gorm saighead Ordú sonraí smeach / droim ar ais go cothrománach i sraitheanna le Kutools le haghaidh Excel

Le Kutools le haghaidh Excel'S Smeach Raon Cothrománach uirlis, is féidir leat ordú sonraí a smeach / a aisiompú go cothrománach i sraitheanna roghnaithe go tapa.

Cuimsíonn Kutools for Excel níos mó ná 300 uirlis áisiúil Excel. Saor chun triail a dhéanamh gan aon teorannú i 30 lá. Faigh é anois.

1 Céim: Roghnaigh an tsraith ina ndéanfaidh tú na sonraí a smeach.

2 Céim: Cliceáil ar an Kutools > Tiontaire Raon > Smeach Raon Cothrománach, féach ar an scáileán:

doc-droim ar ais-ró-ordú3

Ansin feicfidh tú go ndéantar an t-ordú sonraí go léir a aisiompú sna sraitheanna roghnaithe.

doc-droim ar ais-ró-ordú4
-1
doc-droim ar ais-ró-ordú5

cliceáil Smeach Raon Cothrománach chun níos mó eolais a fháil ar an ngné seo.


Airteagal gaolmhar:

Conas colún d’ordú sonraí a smeach / a aisiompú go hingearach in Excel?

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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