Hoe kopieert en plakt u rijen of kolommen in omgekeerde volgorde in Excel?

Soms moet u een lijst met kolommen of rijen in omgekeerde volgorde kopiëren en plakken – verticaal of horizontaal – zoals te zien is in de onderstaande schermafbeelding. Hoe voert u deze taak snel en eenvoudig uit in Excel?

Kopieer en plak een lijst met kolommen of rijen in omgekeerde volgorde met een formule

Kopieer en plak een reeks kolommen of rijen in omgekeerde volgorde met VBA-code

Kopieer en plak een reeks kolommen of rijen in omgekeerde volgorde met een handige functie

---

Kopieer en plak een lijst met kolommen of rijen in omgekeerde volgorde met een formule

Kopieer en plak een lijst met kolommen in omgekeerde volgorde verticaal

Als u een lijst met kolomcellen wilt omkeren, kunt u de volgende formule toepassen:

Voer de volgende formule in of kopieer deze naar een lege cel waar u de kolomvolgorde wilt omkeren:

Opmerking: In de bovenstaande formule is A1 de eerste cel in de kolom en A15 de laatste cel in de kolom.

Sleep vervolgens de vulgreep omlaag naar de cellen om de celwaarden in omgekeerde volgorde te extraheren, zoals op de onderstaande schermafbeelding is weergegeven:

---

Kopieer en plak een lijst met rijen in omgekeerde volgorde horizontaal

Gebruik de volgende formule om een lijst met rijen in omgekeerde volgorde te kopiëren en plakken:

Voer deze formule in of kopieer deze naar een lege cel:

Opmerking: In de bovenstaande formule is A1 de eerste cel in de rij en 1:1 het rijnummer waarop uw gegevens zich bevinden. Als uw gegevens zich in rij 10 bevinden, wijzigt u dit in 10:10.

Sleep vervolgens de vulgreep naar rechts naar de cellen waarop u deze formule wilt toepassen, totdat alle waarden zijn geëxtraheerd. U krijgt dan alle waarden horizontaal omgekeerd — zie schermafbeelding.

---

Kopieer en plak een reeks kolommen of rijen in omgekeerde volgorde met VBA-code

Als u een reeks kolommen of rijen in omgekeerde volgorde wilt kopiëren en plakken, stel ik hier enkele VBA-codes voor die dit snel en eenvoudig voor u regelen. Volg hiervoor de volgende stappen:

Kopieer en plak een lijst met kolommen in omgekeerde volgorde verticaal

1. Kopieer en plak eerst uw gegevens naar een nieuwe locatie en druk daarna op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.

VBA-code: Kopieer en plak een reeks cellen in omgekeerde volgorde verticaal

Sub Flipvertically()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For j = 1 To UBound(Arr, 2)
    k = UBound(Arr, 1)
    For i = 1 To UBound(Arr, 1) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(k, j)
        Arr(k, j) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

3. Druk vervolgens op F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd het gegevensbereik te selecteren dat u verticaal wilt omkeren, zie schermafbeelding:

4. Klik daarna op de knop OK en het gegevensbereik is verticaal omgekeerd, zoals op de onderstaande schermafbeeldingen is weergegeven:

---

Kopieer en plak een reeks cellen in omgekeerde volgorde horizontaal

Om de Gegevensbereik in horizontale volgorde om te keren, past u de volgende VBA-code toe:

VBA-code: Kopieer en plak een reeks cellen in omgekeerde volgorde horizontaal

Sub Fliphorizontally()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

Na het uitvoeren van deze code krijgt u de volgende schermafbeeldingen zoals gewenst:

---

Kopieer en plak een reeks kolommen of rijen in omgekeerde volgorde met een handige functie

Als u niet bekend bent met bovenstaande formules en VBA-codes, raad ik u een eenvoudige tool aan: Kutools voor Excel, met de functies Keer reeks verticaal om en Keer reeks horizontaal om, waarmee u een celbereik met één klik verticaal of horizontaal kunt omkeren.

Na installatie van Kutools voor Excelgaat u als volgt te werk:

Kopieer en plak een reeks cellen in omgekeerde volgorde horizontaal

1. Selecteer het celbereik en klik vervolgens op Kutools > Bereik > Keer reeks verticaal om > Alles (Keer alleen inhoud om), zie schermafbeelding:

2. De waarden in het celbereik zijn direct verticaal omgekeerd—zie de schermafbeeldingen:

---

Kopieer en plak een reeks cellen in omgekeerde volgorde horizontaal

1. Selecteer het celbereik en klik vervolgens op Kutools > Bereik > Keer reeks horizontaal om > Alles (Keer alleen inhoud om). Zie schermafbeelding:

2. Alle celwaarden in de selectie worden direct horizontaal omgekeerd – zie de schermafbeeldingen:

Klik hier om Kutools voor Excel nu te downloaden en gratis uit te proberen!

---

Meer gerelateerde artikelen over kopiëren en plakken: