Как легко переупорядочить строки в Excel с помощью перетаскивания или перемещения вверх или вниз?

1. Выберите строку/столбец.
2. Подведите курсор мыши к границе строки/столбца, чтобы увидеть курсор с четырьмя стрелками (или курсор руки на Mac).
3. Нажмите клавишу Shift на клавиатуре, затем щелкните и перетащите строку/столбень.

Клавиша Shift shifts строка/столбень вместо перезаписи целевой строки/столбца.

Это все еще метод вырезания/вставки, но это самый простой способ, который я могу придумать.

4 click solution: (например, переместить строку 8 выше строки 5)

1. Щелкните правой кнопкой мыши номер строки (например, строка 8), нажмите Cut (или T)

2. Щелкните правой кнопкой мыши номер строки (например, строка 5), нажмите Вставить вырезать ячейки (или E)

Примечание: Это также работает для перемещения нескольких строк.

Добавьте следующие макросы в свою рабочую книгу Personal Macro и назначьте им ярлыки. Поведение имитирует линию подкачки вверх и линию подкачки вниз 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

В подобных случаях в прошлом, когда я не мог просто отсортировать по строке, я нашел способ сгенерировать столбец с результатом по формуле, который я мог отсортировать.

я нашел более прямой ответ на ваш вопрос из этого сайта :

В Microsoft Word есть функция, которой Excel не хватает. Метод Джона включает в себя перемещение данных в Word, использование команды Word и последующую вставку данных обратно в Excel. Выполните следующие шаги.

1. Скопируйте соответствующий фрагмент строк и столбцов из листа речи. Лучше всего указать размер диапазона, например, 118 строк x 5 столбцов
2. Вставьте данные в документ Microsoft Word, где они автоматически станут таблицей и сохранят все ваши форматирования.

3. В Word используйте малоизвестные SHIFT-ALT-UP-ARROW и SHIFT-ALT-DOWN-ARROW для очень быстрого скольжения строк (или выбранных фрагментов строк) вверх и вниз по желанию. Выберите один или несколько рядов. Вы можете выбрать весь ряд или только его часть, как показано здесь.

4. После того, как вы выберете нужную последовательность строк, вставьте их обратно в Excel, убедившись, что вы перезаписали фрагменты того же размера, что и скопированные вами.

На Mac, используйте Command + Shift во время перетаскивания. Я полагаю, что в окнах это должно быть Win + Shift.

Попробуйте:

Shift + пробел или щелкните мышью по номеру линии, чтобы выбрать линию

Ctrl + X, чтобы вырезать

Мышь щелкните там, где вы хотите, чтобы он.

Ctrl + V, чтобы вставить его.

Для снобов вроде меня, которые хотят использовать только клавиатуру:

1. Выберите клетки, которые вы хотите переместить (для этого не обязательно должен быть полный ряд)
2. Переместитесь в ячейку, расположенную непосредственно под той, которую вы хотите переместить в
3. Нажмите ctrl-+

Небольшое улучшение в ответе @wilson:

Номер строки щелкните правой кнопкой мыши (например, строка 8), нажмите “t” Номер строки щелкните правой кнопкой мыши (например, строка 5), нажмите “e”

Смешивание использования мыши и клавиатуры действительно ускоряет его для меня.

Вот подлодка, которая также работает для колонн; она сочетает в себе функциональность для всех четырех направлений:

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

Это самое простое, что я нашел. *Не может действительно перетащить: *

Например, чтобы переместить строку 3 перед строкой 2:

• щелкните правой кнопкой мыши на строке 3 (на номер 3 слева) и выберите Cut
• щелкните правой кнопкой мыши на строке 2 (на номер 2) и выберите Вставить вырезанные ячейки