Wie transponiere ich Zellen in Excel von links nach rechts?
Wenn wir Werte in eine Excel-Tabelle eingeben, geben wir sie normalerweise von links nach rechts ein. In einigen Fällen möchten Sie jedoch möglicherweise die Zellen von links nach rechts nach rechts nach links transponieren, wie im folgenden Screenshot gezeigt. In Excel gibt es keine integrierte Funktion, mit der Sie das Problem schnell lösen können. In diesem Artikel stelle ich jedoch einige Tricks vor, um Ihnen einen Gefallen zu tun.
Transponieren Sie Zellen mit VBA von links nach rechts
Transponieren Sie Zellen mit Kutools for Excel von links nach rechts oder von oben nach unten
Transponieren Sie Zellen mit VBA von links nach rechts
Um Zellen ohne Formeln schnell von links nach rechts zu transponieren, können Sie einen VBA-Code verwenden.
1. Drücken Sie Alt + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > ModulFügen Sie den folgenden Code in das leere Skript ein.
VBA: Von links nach rechts transponieren
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. Drücken Sie F5 Mit der Taste zum Ausführen des Codes wird ein Dialogfeld angezeigt, in dem Sie die Spaltenbuchstaben eingeben können, die Sie transponieren möchten. Bitte trennen Sie diese Spaltenbuchstaben durch Komma, wie im folgenden Screenshot gezeigt.
4 Klicken OK. Jetzt wurde die Auswahl von links nach rechts transponiert.
Transponieren Sie Zellen mit Kutools for Excel von links nach rechts oder von oben nach unten
Wenn Sie Kutools für Excel installiert haben, können Sie Zellen mit den Dienstprogrammen "Vertikalen Bereich spiegeln" und "Horizontalen Bereich spiegeln" nach Bedarf schnell von links nach rechts oder von oben nach unten transponieren.
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. |
Nach der Installation Kutools für Excel, bitte gehen Sie wie folgt vor :(Kostenloser Download von Kutools für Excel jetzt!)
Wählen Sie die Zellen aus, die Sie von links nach rechts oder von oben nach unten transponieren möchten, und klicken Sie auf Kutoolen > Abdeckung > Horizontalen Bereich spiegeln/Vertikalen Bereich spiegeln > Alle or Nur Werte umdrehen. Siehe Screenshots:
Horizontalen Bereich spiegeln> Alle: |
Horizontal spiegeln> Nur Werte spiegeln: |
Vertikalen Bereich spiegeln> Alle: |
Vertikalen Bereich spiegeln> Nur Werte spiegeln:
|
Daten spiegeln
Sie können interessiert sein an:
- Wie transponiere ich eine Referenz beim automatischen Ausfüllen / rechts in Excel?
- Wie transponiere und verknüpfe ich Werte in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!