Hoe cellen van links naar rechts transponeren in Excel?

Wanneer we waarden invoeren in een Excel-werkblad, typen we ze meestal van links naar rechts. Maar in sommige gevallen wilt u misschien cellen van links naar rechts transponeren, zoals te zien is in de onderstaande schermafbeelding. Er is geen ingebouwde functie in Excel die u snel kan helpen dit op te lossen, maar in dit artikel laat ik u enkele trucs zien om u te helpen.

Cellen van links naar rechts transponeren met VBA

Cellen van links naar rechts of van boven naar beneden transponeren met Kutools voor Excel

Cellen van links naar rechts transponeren met VBA

Om snel cellen van links naar rechts te transponeren zonder formules, kunt u een VBA-code gebruiken.

1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, plak onderstaande code in het lege script.

VBA: Transponeer van links naar rechts

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. Druk op F5 toets om de code uit te voeren, er verschijnt een dialoogvenster waarin u de kolomletters kunt invoeren die u wilt transponeren. Scheid deze kolomletters met komma's, zoals te zien is in de onderstaande schermafbeelding.

4. Klik op OK. Nu is de selectie van links naar rechts getransponeerd.

Cellen van links naar rechts of van boven naar beneden transponeren met Kutools voor Excel

Als u Kutools voor Excel hebt geïnstalleerd, kunt u snel cellen van links naar rechts of van boven naar beneden transponeren met de Keer reeks verticaal om en Keer reeks horizontaal om hulpmiddelen.

Na het installeren van Kutools voor Excel, doe dan het volgende: (Download nu gratis Kutools voor Excel!)

Selecteer de cellen die u van links naar rechts of van boven naar beneden wilt transponeren, klik op Kutools > Bereik > Keer reeks horizontaal om/Keer reeks verticaal om > Alles of Keer alleen inhoud om. Zie screenshots:

Keer reeks horizontaal om > Alles:

Keer reeks horizontaal om > Keer alleen inhoud om:

Keer reeks verticaal om > Alles:	Keer reeks verticaal om > Keer alleen inhoud om:

Demo: Cellen van links naar rechts of van boven naar beneden transponeren met Kutools voor Excel

U bent mogelijk geïnteresseerd in:

• Hoe verwijzingen te transponeren tijdens automatisch invullen naar beneden/rechts in Excel?
• Hoe waarden te transponeren en te koppelen in Excel?