Devo fare qualche riordino manuale o righe in Excel e tagliare/incollare è troppo difficile da usare. Sto cercando qualcosa che mi permetta di usare il drag'n'drop o di aggiungere alcuni pulsanti per spostare su/giù move-top/bottom.
Il tasto Shift sposta la riga/colonna invece di sovrascrivere la riga/colonna di destinazione.
Questo è ancora un metodo di taglia e incolla, ma è il modo più semplice che mi viene in mente.
** Soluzione a 4 clic:** (es. spostare la riga 8 sopra la riga 5)
Nota: questo funziona anche per lo spostamento di più righe.
Aggiungete le seguenti macro alla vostra Personal Macro Workbook e assegnate loro i tasti di scelta rapida. Il comportamento imita la linea di swap up e la linea di swap down di 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
Nel trattare casi simili in passato, in cui non potevo semplicemente ordinare per riga, ho trovato il modo di generare una colonna con un risultato di formula che era qualcosa su cui potevo ordinare.
Ho trovato una risposta più diretta alla tua domanda da questo sito :
Microsoft Word ha una caratteristica che manca in Excel. Il metodo di Jon consiste nello spostare i dati in Word, utilizzando il comando Word e poi incollando i dati in Excel. Seguire questi passi.
- Copiare il relativo pezzo di righe e colonne dal vostro speadsheet. È meglio notare la dimensione dell'intervallo, ad esempio, 118 righe x 5 colonne
- 2. Incollare i dati in un documento Microsoft Word, dove diventano automaticamente una tabella e mantengono tutta la formattazione.
In Word, utilizzare le poco conosciute MAIUSC-ALT-UP-ARROW e MAIUSC-ALT-DOWN-ARROW per far scorrere molto velocemente le righe (o i pezzi di righe selezionati) su e giù a piacere. Selezionare una o più righe. È possibile selezionare l'intera riga o solo una porzione di riga come mostrato qui.
Dopo aver messo in sequenza le righe come desiderato, incollarle di nuovo in Excel, assicurandosi di sovrascrivere il pezzo della stessa dimensione che avete copiato.
Per gli snob come me che vogliono usare solo la tastiera:
Un leggero miglioramento rispetto alla risposta di @wilson:
Numero di riga del tasto destro del mouse (es. riga 8), premere “t” Numero di riga del tasto destro del mouse (es. riga 5), premere “e”
L'uso misto del mouse e della tastiera mi velocizza molto.
Ecco un sub che funziona anche per le colonne; combina le funzionalità per tutte e quattro le direzioni:
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
Questa è la più facile che ho trovato. Non può davvero trascinare e rilasciare:
Per esempio per spostare la riga 3 prima della riga 2: