Làm cách nào để dễ dàng sắp xếp lại các hàng trong excel bằng cách kéo và thả hoặc di chuyển lên hoặc di chuyển xuống?

Tôi phải thực hiện một số sắp xếp lại thủ công hoặc các hàng trong Excel và cắt / dán quá khó sử dụng. Tôi đang tìm kiếm thứ gì đó cho phép tôi sử dụng drag'n'drop hoặc thêm một số nút để di chuyển lên / xuống di chuyển trên / dưới.

1. Chọn hàng / cột.
2. Di chuyển con trỏ chuột đến ranh giới của hàng / cột để bạn thấy con trỏ mũi tên bốn chiều (hoặc con trỏ tay trên máy Mac).
3. Nhấn Shifttrên bàn phím của bạn, sau đó nhấp và kéo hàng / cột.

Các Shiftchìa khóa chuyển hàng / cột thay vì ghi đè lên hàng mục tiêu / cột.

Đây vẫn là một phương pháp cắt / dán, nhưng là cách đơn giản nhất tôi có thể nghĩ ra.

Giải pháp 4 lần nhấp: (ví dụ: di chuyển hàng 8 trên hàng 5)

1. Nhấp chuột phải vào số hàng (ví dụ: hàng 8), nhấp Cắt (hoặc T)
2. Nhấp chuột phải vào số hàng (ví dụ: hàng 5), nhấp vào Chèn Cắt ô (hoặc E)

Lưu ý: Điều này cũng hoạt động để di chuyển nhiều hàng.

Thử:

Shift+ Space barhoặc nhấp chuột vào số dòng để chọn dòng

Ctrl+ Xđể cắt

Nhấp chuột vào nơi bạn muốn.

Ctrl+ Vđể dán nó

Thêm các macro sau vào Sổ làm việc Macro cá nhân của bạn và gán cho chúng các phím tắt. Hành vi bắt chước Hoán đổi văn bản của Sublime 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

Khi xử lý các trường hợp tương tự trong quá khứ, nơi tôi không thể chỉ sắp xếp theo một hàng, tôi đã tìm cách tạo một cột với kết quả công thức là thứ tôi có thể sắp xếp.

Tôi tìm thấy một câu trả lời trực tiếp hơn cho câu hỏi của bạn từ trang web này :

Microsoft Word có một tính năng mà Excel đang thiếu. Phương pháp của Jon liên quan đến việc di chuyển dữ liệu sang Word, sử dụng lệnh Word và sau đó dán dữ liệu trở lại Excel. Thực hiện theo các bước sau.

1. Sao chép đoạn liên quan của các hàng và cột ra khỏi bảng tính của bạn. Tốt nhất là lưu ý kích thước của phạm vi, ví dụ: 118 hàng x 5 cột
2. Dán dữ liệu vào tài liệu Microsoft Word, nơi nó tự động trở thành bảng và giữ lại tất cả định dạng của bạn.

3. Trong Word, hãy sử dụng các phím tắt SHift-ALT-UP-MROWI và SHIFT-ALT-DOWN-AROW để trượt các hàng rất nhanh (hoặc các khối hàng được chọn) theo ý muốn. Chọn một hoặc nhiều hàng. Bạn có thể chọn toàn bộ hàng hoặc chỉ một phần của hàng như hiển thị ở đây.

   

   Nhấn Shift + Alt + UpArrow nhiều lần để nhanh chóng trượt các hàng lên vị trí.

   

4. Khi bạn đã sắp xếp các hàng theo ý muốn, hãy dán chúng trở lại vào Excel, đảm bảo bạn ghi đè lên chính xác kích thước tương tự mà bạn đã sao chép.

Trong Mac, sử dụng Command+ Shifttrong khi kéo. Tôi cho rằng trong windows nên là Win+ Shift.

Một cải tiến nhỏ về câu trả lời của @ wilson:

Số hàng phải nhấp (ví dụ: hàng 8), nhấn "t" Số hàng nhấp chuột phải (ví dụ: hàng 5), nhấn "e"

Kết hợp sử dụng chuột và bàn phím thực sự tăng tốc cho tôi.

Đây là một phụ cũng hoạt động cho các cột; nó kết hợp các chức năng cho cả bốn hướng:

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

Đây là cái dễ nhất tôi tìm thấy. Không thể thực sự kéo và thả:

Ví dụ để di chuyển hàng 3 trước hàng 2:

• nhấp chuột phải vào hàng 3 (trên số 3 ở bên trái) và chọn Cắt
• nhấp chuột phải vào hàng 2 (trên số 2) và chọn Chèn Cut Cells