if you are familar with vba try this

Sub SortByLength()
Range("A:A").EntireColumn.Insert

With Range("B2", Cells(Rows.Count, "B").End(xlUp)).Offset(0, -1)
.FormulaR1C1 = "=LEN(RC[1])"
.Value = .Value
End With

Range("A2", Cells(Rows.Count, "B").End(xlUp)).Sort _
Key1:=Range("B2"), Order1:=xlDescending, Header:=xlYes
Range("A:A").EntireColumn.Delete

End Sub