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 ar gyfer 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 ar gyfer Excel
Os oes gennych Kutools ar gyfer Excel wedi'i osod, gallwch chi drawsosod celloedd yn gyflym o'r chwith i'r dde neu hyd at i lawr gyda'i gyfleustodau Ystod Fertigol Flip a Flip Ystod Llorweddol yn ôl yr angen.
Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. |
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel isod:(Lawrlwythwch Kutools Am Ddim ar gyfer 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
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...
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!