Sorting numbers in one cell while keeping attached text to it in another cell

Question

Raw data scanned into inventory in column A where Inventory numbers in Cells 1,3,6 have to be sorted numerically from smallest to largest while keeping attached serial numbers in Cells 2,4,6 to the sorted Cells 1,3,6 as shown in Column B.What's the fastest way to do this if I have hundreds of cells in column A with inventory numbers and associated serial numbers?&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; B (Intended result)Cell1&nbsp; 6&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 3Cell2&nbsp; serial123&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;serial189Cell3&nbsp; 7&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 6Cell4&nbsp; serial126&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;serial123Cell5&nbsp; 3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 7Cell6&nbsp; serial189&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;serial126&nbsp;

hansvogelaar · Answer

Gerry2020&nbsp;
Run this macro. Please test on a copy of your worksheet first.
&nbsp;
Sub SortData()
    Dim m As Long
    Dim v() As Variant
    Dim i As Long
    Dim j As Long
    Dim tmp1 As Long
    Dim tmp2 As String
    m = Range("A" &amp; Rows.Count).End(xlUp).Row
    v = Range("A1:A" &amp; m).Value
    For i = 1 To m - 2 Step 2
        For j = i + 2 To m Step 2
            If v(i, 1) &gt; v(j, 1) Then
                tmp1 = v(i, 1)
                tmp2 = v(i + 1, 1)
                v(i, 1) = v(j, 1)
                v(i + 1, 1) = v(j + 1, 1)
                v(j, 1) = tmp1
                v(j + 1, 1) = tmp2
            End If
        Next j
    Next i
    Application.ScreenUpdating = False
    Range("A1:A" &amp; m).Value = v
    Application.ScreenUpdating = True
End Sub

gerry2020 · Answer

HansVogelaar&nbsp; well that looks complex but I'll try it out. Thanks for the solution.

hansvogelaar · Answer

Gerry2020&nbsp;
You don't really have to understand the code.
Press Alt+F11 to activate the Visual Basic Editor.
Select Insert &gt; Module.
Copy the code from my previous reply into the module.
With the insertion point anywhere in the code, press F5 to run it.
Switch back to Excel to view the result.

gerry2020 · Answer

HansVogelaar&nbsp; OK tomorrow I will try it out when I have to try and sort 400+ inventory tag numbers while keeping their associated serial numbers in the cell below each tag number.&nbsp; Thanks again!

sergeibaklan · Answer

Gerry2020&nbsp;
As variant you may add helper column as

and sort on it

Forum Discussion

Sorting numbers in one cell while keeping attached text to it in another cell

5 Replies