Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to transpose cells left to right in Excel?

When we type values in Excel sheet, we usually type them from left to right, but in some cases, you maybe want to transpose the cells which are from left to right to right to left as below screenshot shown. There is no built-in feature in Excel that can help you to quickly solve it, but in this article, I introduce some tricks to do you a favor.
doc transpose left to right 1

Transpose cells left to right with VBA

Transpose cells left to right or up to down with Kutools for Excel good idea3

Enable you to do smarter, faster and better

Kutools - the best office productivity tool brings 300 advanced features to Excel. Details... Download...

Office Tab - brings tabbed interface to Excel and Word, make your work much easier. Details...Download...


Transpose cells left to right with VBA


To transpose cells left to right quickly without formulas, you can use a VBA code.

1. Press Alt + F11 keys to enable Microsoft Visual Basic for Applications window.

2. Click Insert > Module, paste below code to the blank script.

VBA: Transpose left to right

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

doc transpose left to right 2

3. Press F5 key to run the code, a dialog pops out for you to enter the column letters you want to transpose. Please separate these column letters with comma as below screenshot shown.
doc transpose left to right 3

4. Click OK. Now the selection has been transposed left to right.


Transpose cells left to right or up to down with Kutools for Excel

If you have Kutools for Excel installed, you can quickly transpose cells left to right or up to down with its Flip Vertical Range and Flip Horizontal Range utilities as you need.

Kutools for Excel, with more than 120 handy functions, makes your jobs easier. 

After installing Kutools for Excel, please do as below:(Free Download Kutools for Excel Now!)

Select the cells you want to transpose left to right or up to down, click Kutools > Range > Flip Horizontal Range/Flip Vertical Range > All or Only flip values. See screenshots:
doc transpose left to right 4

Flip Horizontal Range > All:
doc transpose left to right 9
Flip Horizontal > Only flip values:
doc transpose left to right 5

 


Flip Vertical Range > All:
Flip Vertical Range > Only flip values:
doc transpose left to right 6
doc transpose left to right 7

arrow blue right bubbleYou may interested in:



Excel Productivity Tools

Kutools for Excel - The Best Office Productivity Tool

  • Brings 300 powerful advanced features to Excel, enable you to do smarter, faster and better.
  • No longer need memorizing formulas and VBA codes, give your brain a rest from now on.
  • Become an Excel expert in 3 minutes, Complicated and repeated operations can be done in seconds, 
  • Reduce thousands of keyboard & mouse operations every day, say goodbye to occupational diseases now.
  • 110,000 highly effective people and 300+ world-renowned companies' choice.
  • 60-day full features free trial. 60-day money back guarantees. 2 years of free upgrade and support.

Office Tab - brings tabbed interface to Office, make your work much easier.

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.