Thread: 1D Array Sort
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
ryguy7272 ryguy7272 is offline
external usenet poster
 
Posts: 2,836
Default 1D Array Sort

Does this work for you?
Sub SortEachColumn()
Dim LastCol As Long
Dim LastRow As Long
Dim n As Long
LastCol = Cells(1, Columns.count).End(xlToLeft).Column
For n = 1 To LastCol
LastRow = Cells(Rows.count, n).End(xlUp).Row
Range(Cells(1, n), Cells(LastRow, n)).Sort _
key1:=Cells(1, n), order1:=xlAscending
Next n
End Sub

If not, perhaps this will do it:
=INDEX(A:A,LOOKUP(2,1/($A$1:$A$65535<""),ROW($A$1:$A$65535))-ROWS(B$1:B1)+1)


Regards,
Ryan--


--
RyGuy


"Jason Lepack" wrote:

Fair enough.

More information is still required. People here are more than willing
to help but you need to provide a starting point. Why do you need an
array, how is the array declared, is this in VBA or are you looking a
spreadsheet formula?

Please be professional and give an accurate description of the problem
with as much detail as possible so that a solution can be given.

Cheers,
Jason Lepack



On Apr 7, 2:52 pm, Trent Argante
wrote:
Google may name, you'll see I'm not in school. I'm at work, and have been
thinking about it all weekend. Like I said, I'm drawing a blank.
Please, if you're not going to help, don't reply. Keep it professional.
--
Trent Argante
[DC.J(549)]

"Jason Lepack" wrote:
What have you tried?


This looks like a school assignment and nobody will help you along
with that. Some may point you in the right direction if you prove
that you're actually trying and heading in the wrong direction, but
none will do it for you.


Cheers,
Jason Lepack


On Apr 7, 2:31 pm, Trent Argante
wrote:
I have a single dimension array that I would like sorted, and I am just
drawing a blank.
Thanks, folks.
--
Trent Argante
[DC.J(549)]