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: |
 |  |
Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen
Demo: Cellen van links naar rechts of van boven naar beneden transponeren met Kutools voor Excel
U bent mogelijk geïnteresseerd in:
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?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen