Sut i drawsosod celloedd o'r chwith i'r dde yn Excel?

Pan fyddwn yn teipio gwerthoedd yn nhaflen Excel, byddwn fel arfer yn eu teipio o'r chwith i'r dde, ond mewn rhai achosion, efallai yr hoffech chi drawsosod y celloedd sydd o'r chwith i'r dde i'r dde i'r chwith fel islaw'r screenshot a ddangosir. Nid oes unrhyw nodwedd adeiledig yn Excel a all eich helpu i'w datrys yn gyflym, ond yn yr erthygl hon, rwy'n cyflwyno rhai triciau i wneud ffafr i chi.

Trawsosod celloedd o'r chwith i'r dde gyda VBA

Trawsosod celloedd o'r chwith i'r dde neu i fyny i lawr gyda Kutools for Excel

Trawsosod celloedd o'r chwith i'r dde gyda VBA

I drawsosod celloedd o'r chwith i'r dde yn gyflym heb fformiwlâu, gallwch ddefnyddio cod VBA.

1. Gwasgwch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, pastiwch y cod isod i'r sgript wag.

VBA: Trawsosod o'r chwith i'r dde

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

3. Gwasgwch F5 yn allweddol i redeg y cod, mae deialog yn galw allan i chi nodi'r llythrennau colofn rydych chi am eu trawsosod. Gwahanwch y llythrennau colofn hyn gyda choma fel y dangosir isod.

4. Cliciwch OK. Nawr mae'r dewis wedi'i drawsnewid o'r chwith i'r dde.

Trawsosod celloedd o'r chwith i'r dde neu i fyny i lawr gyda Kutools for Excel

Os oes gennych Kutools for Excel wedi'i osod, gallwch chi drawsosod celloedd yn gyflym o'r chwith i'r dde neu hyd at i lawr gyda'i gyfleustodau Flip Vertical Range a Flip Horizontal Range yn ôl yr angen.

Ar ôl gosod Kutools for Excel, gwnewch fel isod:(Lawrlwythiad Am Ddim Kutools for Excel Nawr!)

Dewiswch y celloedd rydych chi am eu trawsosod o'r chwith i'r dde neu i fyny i lawr, cliciwch Kutools > Ystod > Ystod Llorweddol Fflipio/Ystod Fertigol Fflipio > Popeth or Dim ond gwerthoedd fflip. Gweler sgrinluniau:

Ystod Llorweddol Fflipio> Pawb:

Fflipio Llorweddol> Dim ond gwerthoedd fflip:

Ystod Fertigol Fflipio> Pawb:	Ystod Fertigol Fflipio> Dim ond gwerthoedd fflip:

  Data Fflipio

Efallai y bydd gennych ddiddordeb mewn:

• Sut i drawsosod cyfeirnod wrth lenwi auto i lawr / dde yn Excel?
• Sut i drawsosod a chysylltu gwerthoedd yn Excel?

Offer Cynhyrchiant Swyddfa Gorau

	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 Gorau:  12 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 for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...

Read More ... Lawrlwythiad Am Ddim...

---

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!

Read More ... Lawrlwythiad Am Ddim...