Hur transponerar man celler från vänster till höger i Excel?
När vi skriver värden i Excel-ark skriver vi vanligtvis dem från vänster till höger, men i vissa fall vill du kanske transponera cellerna som är från vänster till höger till höger till vänster enligt nedanstående skärmdump. Det finns ingen inbyggd funktion i Excel som kan hjälpa dig att snabbt lösa det, men i den här artikeln introducerar jag några knep för att göra dig en tjänst.
Transponera celler från vänster till höger med VBA
Transponera celler från vänster till höger eller upp till ner med Kutools för Excel
Transponera celler från vänster till höger med VBA
För att transponera celler från vänster till höger snabbt utan formler kan du använda en VBA-kod.
1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.
2. klick Insert > Modulerna, klistra in under koden i det tomma skriptet.
VBA: Transportera från vänster till höger
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. Tryck F5 för att köra koden, en dialogruta dyker upp för dig att ange de kolumnbokstäver du vill transponera. Vänligen separera dessa kolumnbokstäver med komma enligt nedanstående skärmdump.
4. klick OK. Nu har urvalet överförts från vänster till höger.
Transponera celler från vänster till höger eller upp till ner med Kutools för Excel
Om du har Kutools för Excel installerat kan du snabbt transponera celler från vänster till höger eller upp till ner med dess Vänd vertikalt intervall och Vänd horisontellt områdesverktyg som du behöver.
Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. |
När du har installerat Kutools för Excel, gör så här :(Gratis nedladdning Kutools för Excel nu!)
Markera cellerna du vill transponera från vänster till höger eller upp till ner, klicka på Kutools > Mätområde > Vänd horisontellt område/Vänd vertikalt intervall > Alla or Endast vändvärden. Se skärmdumpar:
Vänd horisontellt område> Alla: |
Vänd horisontellt> Endast vändvärden: |
Vänd vertikalt intervall> Alla: |
Vänd vertikalt område> Endast vändvärden:
|
Vänd data
Du kanske är intresserad av:
- Hur transponerar jag referens medan du automatiskt fyller ner / höger i Excel?
- Hur transponderar och länkar man värden i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!