Home » Forums » Open Source Learning Center » Question and Answer

Convertir dos rangos verticales en un solo rango vertical

Submitted by Anonymous on 14 October, 2010 - 16:10

Cordial saludo, agradezco a quien me puedo colaborar. La cuestión es la siguiente, ¿Què macro me puede ayudar para de dos rangos verticales (en dos columnas diferentes) me quede un solo rango vertical sin duplicados, (en otra columna diferente?

Por ejemplo:

A E
1105 1110
2105 1105
3115 4135
1524 6205

Deben quedar en la columna J, así:

J
1105
1110
1524
2105
3115
4135
6205

EL problema, es que haicendolo manualmente, pues copio los dos rangos, los pego seguidos y luego utilizo la función quitar duplicados y ordenar... pero comodebo realizar este proceso repetidamente, me gustaría poder contar con una macro, ya que traté de grabarla, pero si el número de filas aumenta en el primer rango (columna A), la macro solo me toma los 4 valores inciales y luego copia los valores de la columna E, borrando así los demás.

‹ Help with a Formula Checkboxes in VB Project/Excel ›
»
Nick's picture

Combine Ranges

Submitted by Nick on 15 October, 2010 - 13:11.

Hi

Not sure what the Spanish is, but here's some simple code to combine ranges: 

Sub CombineRanges()
    LastCol = ActiveSheet.UsedRange.Columns.Count
    For iCol = 2 To LastCol
        Range(Cells(1, iCol), Cells(Rows.Count, iCol).End(xlUp)).Copy
        Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
        ActiveSheet.Paste
    Next
End Sub

 

Check this out for removing duplicates:

39. Excel Tips - Remove Duplicates from a sorted list

Buena Suerte

 

 

»