Tengo que hacer un poco de reordenamiento manual o filas en Excel y cortar/pegar es muy difícil de usar. Estoy buscando algo que me permita usar el arrastrar y soltar o añadir algunos botones para mover hacia arriba/abajo, arriba/abajo.
La tecla Mayús mueve la fila/columna en lugar de sobrescribir la fila/columna de destino.
Este sigue siendo un método de cortar y pegar, pero es la forma más simple que se me ocurre.
4-clic solución: (por ejemplo, mover la fila 8 por encima de la fila 5)
Nota: Esto también funciona para mover varias filas.
Añade las siguientes macros a tu Cuaderno de trabajo de macros personales y asígnales teclas de acceso directo. El comportamiento imita la línea de intercambio del texto sublime hacia arriba y hacia abajo.
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
Al tratar con casos similares en el pasado, donde no podía simplemente ordenar por una fila, encontré la manera de generar una columna con un resultado de fórmula que era algo en lo que podía ordenar.
Encontré una respuesta más directa a su pregunta en este sitio :
Microsoft Word tiene una característica que le falta a Excel. El método de Jon implica mover los datos a Word, empleando el comando Word y luego pegar los datos de nuevo a Excel. Sigue estos pasos.
- Copia el trozo de filas y columnas relevante de tu hoja de cálculo. Es mejor anotar el tamaño del rango, por ejemplo, 118 filas x 5 columnas
- Pegue los datos en un documento de Microsoft Word, donde se convierten automáticamente en una tabla y conservan todo su formato.
En Word, utilice las poco conocidas funciones SHIFT-ALT-UP-ARROW y SHIFT-ALT-DOWN-ARROW para deslizar muy rápidamente las filas (o trozos seleccionados de filas) hacia arriba y hacia abajo a voluntad. Seleccione una o más filas. Puedes seleccionar toda la fila o sólo una parte de la fila como se muestra aquí.
Cuando hayas secuenciado las filas como quieras, pégalas de nuevo en Excel, asegurándote de sobrescribir el mismo tamaño exacto del trozo que has copiado.
Una ligera mejora en la respuesta de @wilson:
Número de fila de clic derecho (ej. fila 8), presione “t” Número de fila de clic derecho (ej. fila 5), presione “e”
La mezcla del uso del ratón y el teclado realmente me acelera.
Aquí hay un submarino que también funciona para las columnas; combina la funcionalidad para las cuatro direcciones:
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