ドラッグアンドドロップまたは上または下でExcelの行を簡単に並べ替える方法は？

Excelでいくつかの手動の並べ替えまたは行を実行する必要があり、カット/ペーストは使いにくいです。ドラッグアンドドロップを使用したり、上/下に移動するためのボタンを追加したりできるようにするものを探しています。

1. 行/列を選択します。
2. マウスカーソルを行/列の境界に移動して、4方向矢印カーソル（またはMacではハンドカーソル）を表示します。
3. Shiftキーボードを押し、行/列をクリックしてドラッグします。

Shiftキーは、移行対象の行/列を上書きするのではなく、行/列。

これはまだカット/ペースト方法ですが、私が考えることができる最も簡単な方法です。

4クリックソリューション：（例：行8を行5の上に移動）

1. 行番号（たとえば、行8）を右クリックし、[ 切り取り ] （またはT）をクリックします
2. 行番号（たとえば、行5）を右クリックし、[ カットセルの挿入 ] （またはE）をクリックします。

注：これは、複数の行を移動する場合にも機能します。

試してください：

Shift+ Space barまたはマウスで行番号をクリックして行を選択します

Ctrl+ Xカットする

目的の場所でマウスをクリックします。

Ctrl+ V貼り付ける

次のマクロを個人用マクロブックに追加し、ショートカットキーを割り当てます。この動作は、Sublime Textのスワップラインアップとスワップラインダウンを模倣しています。

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にはない機能があります。Jonの方法では、データをWordに移動し、Wordコマンドを使用してから、データをExcelに貼り付けます。次の手順を実行します。

1. 関連する行と列のチャンクをスプレッドシートからコピーします。範囲のサイズ、たとえば118行x 5列に注意することをお勧めします
2. データをMicrosoft Word文書に貼り付けます。データは自動的に表になり、すべての書式設定が保持されます。

3. Wordで、あまり知られていないSHIFT-ALT-UP-ARROWおよびSHIFT-ALT-DOWN-ARROWを使用して、行（または選択した行のチャンク）を意のままに素早く上下にスライドさせます。1つ以上の行を選択します。ここに示すように、行全体または行の一部のみを選択できます。

   

   Shift + Alt + UpArrowを数回押すと、行がすばやく上にスライドします。

   

4. 必要に応じて行を順序付けしたら、それらをExcelに貼り付けて、コピーしたものとまったく同じサイズのチャンクを必ず上書きします。

Macでは、ドラッグ中にCommand+ Shiftを使用します。私は窓ではWin+ であるべきだと思いますShift。

@wilsonの回答のわずかな改善：

行番号（例、行8）を右クリックして「t」を押す行番号（例、行5）を右クリックして「e」を押す

マウスとキーボードを組み合わせて使用​​すると、本当にスピードが上がります。

これは、列に対しても機能するサブルーチンです。4つの方向すべての機能を組み合わせています。

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）を右クリックして、[ 切り取り]を選択します。
• 行2（番号2）を右クリックし、[ カットセルの挿入]を選択します。