¿Cómo copiar y pegar filas o columnas en orden inverso en Excel?

A veces, es posible que necesite copiar y pegar una lista de una columna o fila en orden inverso, ya sea vertical u horizontalmente, tal como se muestra en la siguiente captura de pantalla. ¿Cómo puede realizar esta tarea de forma rápida y sencilla en Excel?

Copiar y pegar una lista de una columna o fila en orden inverso con fórmula

Copiar y pegar un rango de columnas o filas en orden inverso con código VBA

Copiar y pegar un rango de columnas o filas en orden inverso con una función excelente

---

Copiar y pegar una lista de una columna o fila en orden inverso con fórmula

Copiar y pegar una lista de una columna en orden inverso verticalmente

Si desea invertir una lista de celdas de una columna, puede aplicar la siguiente fórmula:

Introduzca o copie la siguiente fórmula en una celda vacía donde desee invertir el orden de la columna:

Nota: En la fórmula anterior, A1 es la primera celda de la columna y A15 es la última celda de la columna.

A continuación, arrastre el controlador de relleno hacia abajo hasta las celdas para extraer los valores en orden inverso, tal como se muestra en la siguiente captura de pantalla:

---

Copiar y pegar una lista de una fila en orden inverso horizontalmente

Para copiar y pegar una lista de una fila en orden inverso, utilice la siguiente fórmula:

Introduzca o copie esta fórmula en una celda vacía:

Nota: En la fórmula anterior, A1 es la primera celda de la fila y 1:1 es el número de fila en el que se encuentran sus datos. Si sus datos están en la fila 10, debe cambiarlo a 10:10.

A continuación, arrastre el controlador de relleno hacia la derecha hasta las celdas en las que desee aplicar esta fórmula hasta que se extraigan todos los valores, y obtendrá todos los valores invertidos horizontalmente, como se muestra en la captura de pantalla:

---

Copiar y pegar un rango de columnas o filas en orden inverso con código VBA

Si necesita copiar y pegar un rango de columnas o filas en orden inverso, a continuación presento algunos códigos VBA para resolverlo de forma rápida y sencilla. Siga estos pasos:

Copiar y pegar una lista de una columna en orden inverso verticalmente

1. Primero, copie y pegue sus datos en un lugar nuevo y, a continuación, mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.

Código VBA: Copiar y pegar un rango de celdas en orden inverso verticalmente

Sub Flipvertically()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For j = 1 To UBound(Arr, 2)
    k = UBound(Arr, 1)
    For i = 1 To UBound(Arr, 1) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(k, j)
        Arr(k, j) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

3. A continuación, pulse la tecla F5 para ejecutar este código y aparecerá un cuadro de diálogo que le pedirá que seleccione el rango de datos que desea invertir verticalmente, como se muestra en la captura de pantalla:

4. A continuación, haga clic en el botón Aceptar y el rango de datos se invertirá verticalmente, tal como se muestra en las siguientes capturas de pantalla:

---

Copiar y pegar un rango de celdas en orden inverso horizontalmente

Para invertir el Rango de datos en orden horizontal, aplique el siguiente código VBA:

Código VBA: Copiar y pegar un rango de celdas en orden inverso horizontalmente

Sub Fliphorizontally()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

Tras ejecutar este código, obtendrá las siguientes capturas de pantalla según sus necesidades:

---

Copiar y pegar un rango de columnas o filas en orden inverso con una función excelente

Si no está familiarizado con las fórmulas y los códigos VBA anteriores, le recomendamos una herramienta sencilla: Kutools para Excel. Con sus funciones Voltear rango verticalmente y Voltear rango horizontalmente, podrá invertir rangos de celdas tanto vertical como horizontalmente con un solo clic.

Después de instalar Kutools para Excel, proceda de la siguiente manera:

Copiar y pegar un rango de celdas en orden inverso horizontalmente

1. Seleccione el rango de celdas y, a continuación, haga clic en Kutools > Rango > Voltear rango verticalmente > Todo (Voltear solo contenido), como se muestra en la captura de pantalla:

2. A continuación, los valores del rango de celdas se invertirán verticalmente de inmediato, como se muestra en las capturas de pantalla:

---

Copiar y pegar un rango de celdas en orden inverso horizontalmente

1. Seleccione el rango de celdas y, a continuación, haga clic en Kutools > Rango > Voltear rango horizontalmente > Todo (Voltear solo contenido), como se muestra en la captura de pantalla:

2. A continuación, todos los valores de las celdas seleccionadas se invertirán horizontalmente al instante, tal como se muestra en las capturas de pantalla:

¡Haga clic para descargar Kutools para Excel y probarlo gratis ahora!

---

Más artículos relacionados sobre copiar y pegar: