invertir los valores de una columna

No ser como se podria pegar de forma inversa, peró una opción és poner
numeros ordenados en las celdas de al lado y usar la instrucción "Ordenar"
en el menú "Datos", ordenando las filas por la primer columna que serà la
de numeros ordenados.
Otra opción que tienes és utilizar la siguiente funcion, creo que va
bien, la he probado un par de veces.

Public Function invertirLista(lista As Range) As Variant
Dim I As Integer, Tam As Integer
Dim vector() As Variant

Tam = lista.Rows.Count
ReDim vector(1 To Tam)
For I = 1 To Tam
vector(I) = lista(Tam + 1 - I)
Next
invertirLista = WorksheetFunction.Transpose(vector)
End Function

Seleccionas el rango que contendra la columna, escribes
"=invertirLista(A1:A100)" ( si los datos estubieran en el rango A1:A100),
y presionas Ctl+Alt+Enter para validar la matriz. Esto te invertirà el
rango seleccionado en el rango donde hayas escrito la formula.

Supongo que habrà alguna otra forma de hacerlo de momento si te sirve eso
perfecto.
Un saludo!

IVAN wrote:

Necesito saber como puedo pegar de manera inversa una columna en otra
columna, es decir que el primer valor de la columna original sea el ultimo
valor de la columna nueva, y asi sucesivamente
un saludo

Si los datos están consecutivos a partir de la fila 1 de (por ejemplo) la columna A, se podría usar la fórmula:

=INDIRECTO("A" & CONTARA(A:A)-FILA()+1)

la cual tendría que ir en una columna, a partir de su fila 1.

Un saludo.


Fernando Arroyo
MS MVP - Excel


"marc" escribió en el mensaje news:

No ser como se podria pegar de forma inversa, peró una opción és poner
numeros ordenados en las celdas de al lado y usar la instrucción "Ordenar"
en el menú "Datos", ordenando las filas por la primer columna que serà la
de numeros ordenados.
Otra opción que tienes és utilizar la siguiente funcion, creo que va
bien, la he probado un par de veces.

Public Function invertirLista(lista As Range) As Variant
Dim I As Integer, Tam As Integer
Dim vector() As Variant

Tam = lista.Rows.Count
ReDim vector(1 To Tam)
For I = 1 To Tam
vector(I) = lista(Tam + 1 - I)
Next
invertirLista = WorksheetFunction.Transpose(vector)
End Function

Seleccionas el rango que contendra la columna, escribes
"=invertirLista(A1:A100)" ( si los datos estubieran en el rango A1:A100),
y presionas Ctl+Alt+Enter para validar la matriz. Esto te invertirà el
rango seleccionado en el rango donde hayas escrito la formula.

Supongo que habrà alguna otra forma de hacerlo de momento si te sirve eso
perfecto.
Un saludo!

IVAN wrote:

> Necesito saber como puedo pegar de manera inversa una columna en otra
> columna, es decir que el primer valor de la columna original sea el ultimo
> valor de la columna nueva, y asi sucesivamente
> un saludo
>