Tenho de fazer algumas reordenações manuais ou linhas em Excel e cortar/colar é demasiado difícil de utilizar. Estou à procura de algo que me permita usar drag'n'drop ou adicionar alguns botões para mover para cima/para baixo move-se para cima/para cima/para baixo.
A tecla Shift shifts muda a linha/coluna em vez de escrever por cima da linha/coluna alvo.
Este ainda é um método de cortar/colar, mas é a forma mais simples que consigo pensar.
4-clique solução: (por exemplo, mover a linha 8 acima da linha 5)
Nota: Isto também funciona para mover várias filas.
Adicione as seguintes macros ao seu Personal Macro Workbook e atribua-lhes teclas de atalho. O comportamento imita a linha de texto subliminar do Texto Sublime para cima e a linha de texto subliminar para baixo.
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, onde não podia simplesmente ordenar por uma linha, encontrei uma forma de gerar uma coluna com um resultado de fórmula que podia ordenar.
Encontrei uma resposta mais directa à sua pergunta de este site :
Microsoft Word tem uma característica que falta no Excel. O método do Jon envolve mover os dados para o Word, usando o comando Word e depois colar os dados de volta para o Excel. Siga estes passos.
- Copie o pedaço relevante de linhas e colunas para fora da sua folha de dados. É melhor ter em atenção o tamanho do intervalo, por exemplo, 118 linhas x 5 colunas
- Cole os dados num documento do Microsoft Word, onde ele se torna automaticamente numa tabela e mantém toda a formatação.
No Word, utilize os pouco conhecidos SHIFT-ALT-UP-ARROW e SHIFT-ALT-DOWN-ARROW para deslizar muito rapidamente as linhas (ou pedaços de linhas seleccionadas) para cima e para baixo à vontade. Seleccione uma ou mais filas. Pode seleccionar a linha inteira ou apenas uma parte da linha como mostrado aqui.
Quando tiver sequenciado as linhas como quiser, cole-as de volta no Excel, certificando-se de que escreve exactamente o mesmo tamanho do pedaço que copiou.
Uma ligeira melhoria na resposta de @wilson:
Número da linha com o botão direito do rato (ex. linha 8), carregar em “t” Número da linha com o botão direito do rato (ex. linha 5), carregar em “e”
O uso misto do rato e do teclado acelera realmente o processo para mim.
Aqui está um submarino que também funciona para colunas; combina a funcionalidade para as quatro direcçõ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 pode realmente arrastar e largar:
Por exemplo, para mover a linha 3 antes da linha 2: