Jak łatwo zmienić kolejność wierszy w Excelu metodą "przeciągnij i upuść" lub "przenieś w górę" lub "przenieś w dół"?

1. Wybierz wiersz/kolumnę.
2. Przesuń kursor myszy na granicę wiersza/kolumny tak, aby widoczny był kursor czterokierunkowy (lub kursor ręczny na komputerze Mac).
3. Naciśnij klawisz Shift na klawiaturze, a następnie kliknij i przeciągnij wiersz/kolumnę.

Klawisz Shift shifts zamiast nadpisywania docelowego wiersza/kolumny.

Jest to nadal metoda cięcia/wklejania, ale jest to najprostszy sposób, jaki mogę sobie wyobrazić.

4-click solution: (np. przesuń wiersz 8 powyżej wiersza 5)

1. Kliknij prawym przyciskiem myszy numer wiersza (np. wiersz 8), kliknij Cut (lub T)
2. 2. Kliknij prawym przyciskiem myszy numer wiersza (np. wiersz 5), kliknij Wstaw komórki tnące (lub E)

Uwaga: Działa to również w przypadku przenoszenia wielu wierszy.

Dodaj następujące makra do swojego Workbooka osobistego makra i przypisz im klawisze skrótów. Zachowanie imituje Sublime Text’s Swap Line Up & Swap Line Down.

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

Mając do czynienia z podobnymi przypadkami w przeszłości, gdzie nie mogłem po prostu posortować według wiersza, znalazłem sposób na wygenerowanie kolumny z wynikiem formuły, która była czymś, co mogłem posortować.

Znalazłem bardziej bezpośrednią odpowiedź na Twoje pytanie z tej strony :

Microsoft Word posiada funkcję, której brakuje w Excelu. Metoda Jona polega na przeniesieniu danych do Worda, użyciu polecenia Word, a następnie wklejeniu danych z powrotem do Excela. Wykonaj następujące kroki.

1. Skopiuj odpowiedni fragment wierszy i kolumn z arkusza kalkulacyjnego. Najlepiej zwrócić uwagę na wielkość zakresu, np. 118 wierszy x 5 kolumn
2. Wklej dane do dokumentu programu Microsoft Word, który automatycznie stanie się tabelą i zachowa wszystkie Twoje formatowania.

3. W programie Word użyj mało znanych SHIFT-ALT-UP-ARROW i SHIFT-ALT-DOWN-ARROW do bardzo szybkiego przesuwania wierszy (lub wybranych fragmentów wierszy) w górę i w dół. Wybierz jeden lub więcej rzędów. Możesz wybrać cały wiersz lub tylko jego część, jak pokazano tutaj.

4. Po uszeregowaniu wierszy tak, jak chcesz, wklej je z powrotem do programu Excel, upewniając się, że nadpisz dokładnie taki sam rozmiar skopiowanego fragmentu.

Na komputerze Mac, podczas przeciągania należy użyć funkcji Command + Shift. Przypuszczam, że w oknach powinno być Win + Shift.

Spróbuj:

Shift + Spacja lub kliknij myszą na numer linii, aby wybrać linię

Ctrl + X, aby wyciąć

Kliknij myszą, gdzie chcesz.

Ctrl + V, aby wkleić go

Dla snobów takich jak ja, którzy chcą używać tylko klawiatury:

1. Wybierz komórki, które chcesz przenieść (nie musi to być kompletny wiersz)
2. Przejdź do komórki bezpośrednio pod tą, którą chcesz przenieść zawartość do
3. Naciśnij klawisz ctrl-+

Niewielka poprawa w stosunku do odpowiedzi @wilsona:

Kliknięcie prawym przyciskiem myszy numer wiersza (np. wiersz 8), naciśnięcie “t” kliknięcie prawym przyciskiem myszy numer wiersza (np. wiersz 5), naciśnięcie “e”

Miksowanie przy użyciu myszy i klawiatury naprawdę mi to przyspiesza.

Oto podzespół, który działa również dla kolumn; łączy w sobie funkcjonalność dla wszystkich czterech kierunków:

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

To jest najłatwiejszy, jaki znalazłem. Can’t really drag and drop:

For example to move row 3 before row 2:

• kliknij prawym przyciskiem myszy na rząd 3 (na numerze 3 po lewej) i wybierz Cut
• kliknij prawym przyciskiem myszy na rząd 2 (na numerze 2) i wybierz Insert Cut Cells