Como reordenar facilmente as linhas no Excel com arrastar e soltar ou mover para cima ou para baixo?

Eu tenho que fazer algumas reordenações manuais ou linhas no Excel e recortar / colar é muito difícil de usar. Estou procurando por algo que me permita usar o recurso arrastar e soltar ou adicionar alguns botões para mover para cima / baixo para cima / baixo.

1. Selecione a linha / coluna.
2. Mova o cursor do mouse para o limite da linha / coluna para ver o cursor de seta de quatro direções (ou o cursor de mão em um Mac).
3. Pressione Shiftno teclado e clique e arraste a linha / coluna.

A Shiftchave muda a linha / coluna em vez de substituir a linha / coluna de destino.

Esse ainda é um método de recortar / colar, mas é a maneira mais simples de pensar.

Solução de 4 cliques: (por exemplo, mova a linha 8 acima da linha 5)

1. Clique com o botão direito do mouse no número da linha (por exemplo, linha 8), clique em Recortar (ou T)
2. Clique com o botão direito do mouse no número da linha (por exemplo, linha 5), ​​clique em Inserir células cortadas (ou E)

Nota: Isso também funciona para mover várias linhas.

Experimentar:

Shift+ Space barou clique no número da linha para selecionar a linha

Ctrl+ Xcortar

Clique do mouse onde quiser.

Ctrl+ Vpara colar

Adicione as seguintes macros à sua Pasta de trabalho de macros pessoal e atribua a elas teclas de atalho. O comportamento imita Swap Line Up e 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

Ao lidar com casos semelhantes no passado, nos quais eu não podia apenas classificar por uma linha, encontrei uma maneira de gerar uma coluna com um resultado de fórmula que era algo que eu poderia classificar.

Encontrei uma resposta mais direta à sua pergunta neste site :

O Microsoft Word tem um recurso que falta no Excel. O método de Jon envolve mover os dados para o Word, empregar o comando Word e colar os dados novamente no Excel. Siga esses passos.

1. Copie a parte relevante de linhas e colunas da sua planilha. É melhor observar o tamanho do intervalo, por exemplo, 118 linhas x 5 colunas
2. Cole os dados em um documento do Microsoft Word, onde ele se torna automaticamente uma tabela e mantém toda a sua formatação.

3. No Word, use as conhecidas SHIFT-ALT-UP-SETA e SHIFT-ALT-DOWN-SETA para deslizar linhas muito rapidamente (ou pedaços selecionados de linhas) para cima e para baixo à vontade. Selecione uma ou mais linhas. Você pode selecionar a linha inteira ou apenas uma parte da linha, como mostrado aqui.

   

   Pressione Shift + Alt + Seta para cima várias vezes para deslizar rapidamente as linhas para cima na posição.

   

4. Quando você seqüenciar as linhas como desejar, cole-as novamente no Excel, certificando-se de substituir exatamente o mesmo tamanho de tamanho que você copiou.

No Mac, use Command+ Shiftenquanto arrasta. Suponho que no Windows deveria ser Win+ Shift.

Uma ligeira melhoria na resposta de @ wilson:

Clique com o botão direito do mouse no número da linha (por exemplo, linha 8), pressione "t" Clique com o botão direito do mouse no número da linha (por exemplo, linha 5), ​​pressione "e"

O uso misto do mouse e do teclado realmente acelera para mim.

Aqui está um sub que também funciona para colunas; combina a funcionalidade para todas as quatro direções:

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

Este é o mais fácil que encontrei. Não é possível arrastar e soltar:

Por exemplo, para mover a linha 3 antes da linha 2:

• clique com o botão direito na linha 3 (no número 3 à esquerda) e selecione Recortar
• clique com o botão direito na linha 2 (no número 2) e selecione Inserir células cortadas