invertir los valores de una columna

27/09/2004 - 21:39 por IVAN | Informe spam
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
ivannjose@eresmas.com
 

Leer las respuestas

#1 marc
27/09/2004 - 23:20 | Informe spam
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

Preguntas similares