Note: The other languages of the website are Google-translated. Back to English

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

A veces, es posible que deba copiar y pegar una lista de columnas o filas en orden inverso vertical u horizontalmente, como se muestra a continuación. ¿Cómo podría hacer frente a este trabajo de forma rápida y sencilla en Excel?

Copie y pegue una lista de columnas o filas en orden inverso con fórmula

Copie y pegue un rango de columnas o filas en orden inverso con el código VBA

Copie y pegue un rango de columnas o filas en orden inverso con una característica increíble


Copie y pegue una lista de columnas o filas en orden inverso con fórmula

Copie y pegue una lista de columnas en orden inverso verticalmente

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

Ingrese o copie la siguiente fórmula en una celda en blanco donde desea invertir el orden de las columnas:

=OFFSET($A$15,-(ROW(A1)-1),0)

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

Luego, arrastre el controlador de relleno hacia las celdas para extraer los valores de celda en orden inverso como se muestra a continuación:


Copie y pegue una lista de filas en orden inverso horizontalmente

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

Ingrese o copie esta fórmula en una celda en blanco:

=OFFSET($A$1,,COUNTA(1:1)-COLUMN(A1),)

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

Y luego, arrastre el controlador de relleno hacia las celdas a las que desea aplicar esta fórmula hasta que se extraigan todos los valores y obtendrá todos los valores invertidos horizontalmente, vea la captura de pantalla:


Copie y pegue un rango de columnas o filas en orden inverso con el código VBA

Si necesita copiar y pegar un rango de columnas o filas en orden inverso, aquí, presentaré algunos códigos VBA para resolverlo rápida y fácilmente. Siga los siguientes pasos:

Copie y pegue una lista de columnas en orden inverso verticalmente

1. Primero, debe copiar y pegar sus datos en un nuevo lugar, y luego, mantenga presionada la tecla ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código VBA: copie y pegue 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. Entonces presione F5 para ejecutar este código, y aparece un cuadro emergente para recordarle que seleccione el rango de datos que desea invertir verticalmente, vea la captura de pantalla:

4. Y luego, haga clic en OK botón, y el rango de datos se ha invertido verticalmente como se muestra a continuación:


Copie y pegue 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: copie y pegue 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

Después de ejecutar este código, obtendrá las siguientes capturas de pantalla que necesite:


Copie y pegue un rango de columnas o filas en orden inverso con una característica increíble

Si no está familiarizado con las fórmulas anteriores y los códigos VBA, aquí le recomendaré una herramienta fácil:Kutools for Excel, Con su Voltear rango vertical y Voltear rango horizontal características, puede invertir el rango de celdas vertical y horizontalmente con un solo clic.

Consejos:Para aplicar esto Voltear rango vertical y Voltear rango horizontal características, en primer lugar, debe descargar el Kutools for Excely, a continuación, aplique la función de forma rápida y sencilla.

Después de instalar Kutools for Excel, haz lo siguiente:

Copie y pegue un rango de celdas en orden inverso horizontalmente

1. Seleccione el rango de celdas y luego haga clic en Kutools > Gama de Colores > Voltear rango vertical > Todo (solo valores invertidos), ver captura de pantalla:

2. Y luego, el rango de valores de celda se ha invertido verticalmente a la vez, vea las capturas de pantalla:


Copie y pegue un rango de celdas en orden inverso horizontalmente

1. Seleccione el rango de celdas y luego haga clic en Kutools > Gama de Colores > Voltear rango horizontal > Todo (solo valores invertidos), ver captura de pantalla:

2. Y luego, todos los valores de celda en la selección se han invertido horizontalmente de inmediato, vea las capturas de pantalla:

¡Haga clic para descargar Kutools para Excel y prueba gratuita ahora!


Artículos más relativos de copiar y pegar:

  • Copie y pegue celdas combinadas en celdas individuales en Excel
  • Normalmente, cuando copia las celdas combinadas y las pega en otras celdas, las celdas combinadas se pegarán directamente. Pero, desea pegar estas celdas combinadas en celdas individuales como se muestra en la siguiente captura de pantalla, para que pueda manejar los datos como lo necesite. En este artículo, hablaré sobre cómo copiar y pegar celdas combinadas en celdas individuales.
  • Copie una columna y pegue solo los registros únicos en Excel
  • Para una columna con muchos duplicados, es posible que deba obtener una copia de esta lista con solo los valores únicos. ¿Cómo puedes hacer para lograrlo? En este artículo, proporcionamos dos métodos para pegar solo los registros únicos de una lista de columnas en Excel.
  • Copiar datos de hoja protegida
  • Supongamos que recibe un archivo Excel de otra persona que con las hojas de trabajo están protegidas por el usuario, ahora desea copiar y pegar los datos sin procesar en otro libro nuevo. Pero los datos en la hoja protegida no se pueden seleccionar ni copiar porque el usuario desmarca las opciones Seleccionar celdas bloqueadas y Seleccionar celdas desbloqueadas al proteger la hoja de trabajo.
  • Copiar datos a otra hoja de trabajo con filtro avanzado en Excel
  • Normalmente, podemos aplicar rápidamente la función de Filtro avanzado para extraer datos de los datos sin procesar en la misma hoja de trabajo. Pero, a veces, cuando intenta copiar el resultado filtrado a otra hoja de trabajo, recibirá el siguiente mensaje de advertencia. En este caso, ¿cómo podría hacer frente a esta tarea en Excel?

  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y conservación de datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertar rápidamente, Rangos, gráficos e imágenes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Agrupación de tablas dinámicas por número de semana, día de la semana y más ... Mostrar celdas bloqueadas y desbloqueadas por diferentes colores; Resalte las celdas que tienen fórmula / nombre...
pestaña kte 201905
  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (3)
5 clasificado de 5 · 1 calificaciones
Este comentario fue minimizado por el moderador en el sitio
Me faltó la opción del código VBA. ¡¡¡Muchas gracias!!!
Este comentario fue minimizado por el moderador en el sitio
OFFSET($A$15,-(ROW(A1)-1),0) y OFFSET($A$1,,COUNTA(1:1)-COLUMN(A1),) no funcionan cuando los datos no se encuentran en el primera fila o columna.
estas funciones parecen funcionar mejor:

Fila de espejos:
supongamos que los datos se encuentran en G11:K11
OFFSET($G$11,,COUNTA(11:11)-COUNTA($G$11:G11),) ........ OFFSET($G$11,,COUNTA(11:11)-COUNTA($G$11:K11),)

Columna de espejo:
supongamos que los datos se encuentran en E22:E26
OFFSET($E$22,ROW($E$26)-ROW(E22),0) ........ OFFSET($E$22,ROW($E$26)-ROW(E26),0)
5 clasificado de 5
Este comentario fue minimizado por el moderador en el sitio
Hola Nasrín,

Cómo estás. Probé tus fórmulas y funcionan perfectamente. Gracias por tu parte. Tomaremos su consejo. Qué tengas un lindo día.

Atentamente,
Mandy
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL