How do I sort multiple rows at the same time?

Question

I have over 600 rows like this

I want to sort the rows so the yellow cells in each row appear in the same column.

The information in each cell can move between columns but needs to stay in the same row.

Is there a way to do this quickly through the whole data without doing one row at a time.

Answer 1

I notice that all the yellow cells are negative numbers.

This macro will sort rows left to right which puts all the negative numbers in column A.

Sub Sort_Across_Columns()

'Tom Ogilvy macro

Dim r As Long

Dim lrow As Long

Dim lCol As Long

    Application.ScreenUpdating = False

    Application.Calculation = xlCalculationManual

    lrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

    lCol = ActiveSheet.Cells(ActiveCell.Row, _

    Columns.Count).End(xlToLeft).Column

    For r = 1 To lrow

        With Cells(r, 1).Resize(1, lCol)

            .Sort Key1:=Cells(r, 2), Order1:=xlAscending, _

            Header:=xlGuess, _

            Orientation:=xlLeftToRight, _

            DataOption1:=xlSortNormal

        End With

    Next r

    Application.ScreenUpdating = True

    Application.Calculation = xlCalculationAutomatic

End Sub

Gord

Answer 2

and how many columns?

Answer 3

Unless I am missing something... I have already tried that.

The problem isn't how to arrange the cell. The problem is I have over 600 rows.

Answer 4

Hi,

Try using Sort option under Data tab on the ribbon

It will allow you to sort multiple columns at once. You won't need to sort columns multiple times or 1by1

But in order to bring them in one column, you will have to do add another column and go manually