Exam Results Sorting

[imaso001]

Hello all. I am stumped on how to sort exam results in order. I have exam results for several thousand users with 7 content areas. I need to sort each user by their lowest to highest score for each content area so I can establish a remedial training plan. Using the first row as an example, I need the data for the first user to have columns 2&3 followed by column 1&5, then 4&7, then 6. The data is separated into 7 columns. Any help is greatly appreciated! Thank you.

 

[mumps]

Try this macro:

Sub SortRows()
    Dim rng As Range, rRng As Range, rRow As Range, LastRow As Long, lastCol As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Set rng = Range("A1:G" & LastRow)
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    For Each rRow In rng.Rows
        Set rRng = Range(ActiveSheet.Cells(rRow.Row, rng.Column), ActiveSheet.Cells(rRow.Row, lastCol))
        With Sheets("Sheet1").Sort
            .SortFields.Clear
            .SortFields.Add Key:=rRng, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange rRng
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
        End With
    Next
End Sub

The problem you will have is that the column headers in row 1 will no longer match the scores. I'm not sure how you want to handle that issue.