Hvordan transponeres celler fra venstre mod højre i Excel?
Når vi skriver værdier i Excel-ark, skriver vi dem normalt fra venstre mod højre, men i nogle tilfælde vil du måske transponere cellerne, der er fra venstre til højre til højre mod venstre som vist nedenfor. Der er ingen indbygget funktion i Excel, der kan hjælpe dig med hurtigt at løse det, men i denne artikel introducerer jeg nogle tricks til at gøre dig en tjeneste.
Transponer celler fra venstre mod højre med VBA
Transponer celler fra venstre mod højre eller op til ned med Kutools til Excel
Transponer celler fra venstre mod højre med VBA
For at transponere celler fra venstre mod højre hurtigt uden formler kan du bruge en VBA-kode.
1. Trykke Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, indsæt nedenstående kode i det tomme script.
VBA: Transponer fra venstre mod højre
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. Trykke F5 nøgle til at køre koden, vises der en dialogboks, hvor du kan indtaste de søjlebogstaver, du vil transponere. Adskil disse kolonne bogstaver med komma som vist nedenstående skærmbillede.
4. klik OK. Nu er valget blevet transponeret fra venstre mod højre.
Transponer celler fra venstre mod højre eller op til ned med Kutools til Excel
Hvis du har Kutools til Excel installeret, kan du hurtigt transponere celler fra venstre til højre eller op til ned med dets Flip Vertical Range og Flip Horizontal Range-hjælpeprogrammer, som du har brug for.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter installation Kutools til Excel, gør venligst som nedenfor :(Gratis download Kutools til Excel nu!)
Vælg de celler, du vil transponere fra venstre mod højre eller op til ned, klik på Kutools > Range > Vend vandret rækkevidde/Vend lodret rækkevidde > Alle or Vend kun værdier. Se skærmbilleder:
Vend vandret rækkevidde> Alle: |
Vend vandret> Vend kun værdier: |
Vend lodret rækkevidde> Alle: |
Vend lodret rækkevidde> Kun spejlværdier:
|
Vend data
Du er måske interesseret i:
- Hvordan transponderer man reference, mens man automatisk udfylder / højre i Excel?
- Hvordan transponeres og linkes værdier i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!