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.
| Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. |
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 > Zobrazit 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?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
