Hoe kan ik gemakkelijk rijen in excel herschikken met drag and drop of move-up of move-down?

1. Selecteer de rij/kolom.
2. 2. Beweeg de muiscursor naar de rand van de rij/kolom, zodat je de vierpijlscursor (of de handcursor op een Mac) ziet.
3. Selecteer de rij/kolom. 3. Druk op Shift op je toetsenbord, klik en versleep de rij/kolom.

De Shift-toets verschuift de rij/kolom in plaats van de doelrij/kolom te overschrijven.

Dit is nog steeds een knip/plak methode, maar is de eenvoudigste manier die ik kan bedenken.

4-klik oplossing: (bijv. verplaats rij 8 boven rij 5)

1. 2. Klik met de rechtermuisknop op rij nummer (bijv. rij 8), klik op Knippen (of T)
2. 2. Klik met de rechtermuisknop op rij nummer (bijv. rij 5), klik op Insert Cut Cells (of E)

Opmerking: Dit werkt ook voor het verplaatsen van meerdere rijen.

Voeg de volgende macro’s toe aan uw Persoonlijke Macro-werkboek en wijs ze toe aan sneltoetsen. Het gedrag bootst de Sublieme Tekst van Swap Line Up & Swap Line Down na.

Sub move_rows_down()
    Dim rOriginalSelection As Range
    Set rOriginalSelection = Selection.EntireRow
    With rOriginalSelection
        .Select
        .Cut
        .Offset(rOriginalSelection.rows.Count + 1, 0).Select
    End With
    Selection.Insert
    rOriginalSelection.Select
End Sub

Sub move_rows_up()
    Dim rOriginalSelection As Range
    Set rOriginalSelection = Selection.EntireRow
    With rOriginalSelection
        .Select
        .Cut
        .Offset(-1, 0).Select
    End With
    Selection.Insert
    rOriginalSelection.Select
End Sub

Bij de behandeling van soortgelijke gevallen in het verleden, waarbij ik niet zomaar op een rijtje kon sorteren, vond ik een manier om een kolom te genereren met een formule resultaat waarop ik kon sorteren.

Ik vond een directer antwoord op uw vraag van deze site :

Microsoft Word heeft een functie die Excel ontbeert. Jon’s methode bestaat uit het verplaatsen van de gegevens naar Word, het gebruik van de Word opdracht en vervolgens het terugplakken van de gegevens in Excel. Volg deze stappen.

1. Kopieer het betreffende deel van de rijen en kolommen uit uw specificatieblad. Het beste is om de grootte van het bereik te noteren, bijvoorbeeld 118 rijen x 5 kolommen
2. Plak de gegevens in een Microsoft Word-document, waar het automatisch een tabel wordt en al uw opmaak behoudt.

3. Gebruik in Word de weinig bekende SHIFT-ALT-UP-ARROW en SHIFT-ALT-DOWN-ARROW om heel snel rijen (of geselecteerde brokken van rijen) naar believen op en neer te schuiven. Selecteer een of meer rijen. U kunt de hele rij of slechts een deel van de rij selecteren zoals hier getoond.

4. Wanneer u de rijen in de juiste volgorde heeft gezet, plak ze dan terug in Excel, waarbij u ervoor zorgt dat u exact dezelfde grootte van de gekopieerde brokstukken overschrijft.

Gebruik in de Mac Command + Shift tijdens het slepen. Ik veronderstel dat in vensters het Win + Shift moet zijn.

Probeer:

Shift + Spatiebalk of klik met de muis op het regelnummer om de regel

Ctrl + X te selecteren om

Ctrl + V te knippen waar u het wilt.

Ctrl + V om het te plakken

Voor snobs zoals ik die alleen het toetsenbord wil gebruiken:

1. 2. Selecteer de cellen die je wilt verplaatsen (hoeft hiervoor niet per se een hele rij te zijn)
2. 2. Ga naar de cel direct onder de cel die je naar 3 wilt verplaatsen. 4. Druk op ctrl-+

Een kleine verbetering ten opzichte van @wilson’s antwoord:

Rechtermuisklik rij nummer (bijv. rij 8), druk op “t” Rechtermuisklik rij nummer (bijv. rij 5), druk op “e”

Mengen van het gebruik van de muis en het toetsenbord versnelt het echt voor mij.

Hier is een sub die ook werkt voor kolommen; het combineert de functionaliteit voor alle vier de richtingen:

Sub MoveRowsOrColumns(direction As String)
    Dim rOriginalSelection As Range

    Select Case direction
    Case "up", "down"
        Set rOriginalSelection = Selection.EntireRow
    Case "left", "right"
        Set rOriginalSelection = Selection.EntireColumn
    Case Else
        Debug.Assert False
    End Select

    With rOriginalSelection
        .Select
        .Cut
        Select Case direction
        Case "up"
            .Offset(-1, 0).Select
        Case "down"
            .Offset(rOriginalSelection.Rows.Count + 1, 0).Select
        Case "left"
            .Offset(0, -1).Select
        Case "right"
            .Offset(0, rOriginalSelection.Columns.Count + 1).Select
        End Select
    End With
    Selection.Insert
    rOriginalSelection.Select
End Sub

Dit is de makkelijkste die ik heb gevonden. Kan niet echt slepen:

bijvoorbeeld om rij 3 voor rij 2 te verplaatsen:

• klik met de rechtermuisknop op rij 3 (op het nummer 3 links) en selecteer Knippen
• klik met de rechtermuisknop op rij 2 (op het nummer 2) en selecteer Insert Cut Cells