Macro sorting

Zeanah · Mar 23rd 2017

Hi, in the attachment I try to record the macro given in Macro 1 on the original sheet to become the second sheet (marcro result needed) but when I copy the original to the last sheet and run and the different result was given.

please can anyone help in this??

thanks

**KjBox** · Mar 23rd 2017

Re: Macro sorting

Try this

Code

Sub test()
    
    With ActiveSheet
        .Columns(1).TextToColumns .[a1], 2, , , , , , , , , , Array(Array(0, 1), Array(17, 1), _
                    Array(47, 1), Array(65, 1), Array(105, 1), Array(115, 1)), , 1
        .Columns(1).Insert
        .[a1] = 1: .[a2] = 2
        .[a1].Resize(2).AutoFill .[a1].Resize(.UsedRange.Rows.Count)
        .UsedRange.Sort .Columns(2), , , , , , , 2
        .Columns.AutoFit
    End With
    
End Sub

Display More

Macro sorting

Participate now!

Share