Jak transponovat buňky zleva doprava v aplikaci Excel?

Když zadáváme hodnoty do listu aplikace Excel, obvykle je zadáváme zleva doprava, ale v některých případech možná budete chtít transponovat buňky, které jsou zleva doprava, zprava doleva, jak je uvedeno níže. V aplikaci Excel není žádná integrovaná funkce, která by vám pomohla rychle ji vyřešit, ale v tomto článku představuji některé triky, které vám udělají laskavost.

Transponujte buňky zleva doprava pomocí VBA

Transponujte buňky zleva doprava nebo nahoru dolů pomocí Kutools pro Excel

Transponujte buňky zleva doprava pomocí VBA

Chcete-li rychle transponovat buňky zleva doprava bez vzorců, můžete použít kód VBA.

1. lis Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul, vložte pod kód do prázdného skriptu.

VBA: Transponujte zleva doprava

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. lis F5 po spuštění kódu se zobrazí dialogové okno pro zadání písmen sloupců, která chcete transponovat. Oddělte prosím tato písmena sloupce čárkami, jak je uvedeno níže.

4. cvaknutí OK. Nyní byl výběr proveden zleva doprava.

Transponujte buňky zleva doprava nebo nahoru dolů pomocí Kutools pro Excel

Pokud máte nainstalovaný program Kutools pro Excel, můžete rychle transponovat buňky zleva doprava nebo nahoru dolů pomocí nástrojů Flip Vertical Range a Flip Horizontal Range, jak potřebujete.

Po instalaci Kutools pro Excel, prosím, postupujte takto :(Stažení zdarma Kutools pro Excel hned teď!)

Vyberte buňky, které chcete transponovat zleva doprava nebo nahoru dolů, klikněte Kutools > Rozsah > Překlopte vodorovný rozsah/Překlopte vertikální rozsah > Vše or Pouze převracet hodnoty. Zobrazit snímky obrazovky:

Překlopit vodorovný rozsah> Vše:

Překlopit vodorovně> Pouze překlopit hodnoty:

Překlopit vertikální rozsah> Vše:	Překlopit vertikální rozsah> Pouze překlopit hodnoty:

  Překlopit data

Můžete se zajímat o:

• Jak transponovat odkaz při automatickém doplňování / správném v aplikaci Excel?
• Jak transponovat a propojit hodnoty v aplikaci Excel?