­ã´£³¡ªL

Sub TEST()
With Range([B1], [A65536].End(xlUp))
     .Columns(2) = "=LEN(A1)"
     .Sort Key1:=.Item(2), Order1:=xlAscending, _
           Key2:=.Item(1), Order2:=xlAscending, Header:=xlYes
     .Columns(2).ClearContents
End With
End Sub

­ã´£³¡ªL

¦^´_ 8# s13030029

ÅÞ¿è³£¤@¼Ë, Åܳq¤@¤U§Y¥i:
Xl0000145.rar (14.48 KB)

¤U¸ü¦¸¼Æ: 15

2020-10-16 19:08

­ã´£³¡ªL

¦^´_ 10# s13030029

Sub TEST_A3()
Dim R&, Arr, LN&
R = Cells(Rows.Count, 1).End(xlUp).Row
If R < 3 Then Exit Sub
With Range("A2:A" & R)
     Arr = .Value
     For i = 1 To .Count
         LN = Len(Arr(i, 1))
         Arr(i, 1) = 100 + IIf(LN = 0, 99, LN) & "|" & Arr(i, 1)
     Next i
     .Value = Arr
     .Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
     .Replace "*|", "", Lookat:=xlPart
End With
End Sub

­ã´£³¡ªL

¦^´_ 12# s13030029


G03 >> 3­Ó¦r >> Åܦ¨ 103|G03
FK2156 ¦P²zÅܦ¨ 106|FK2156
ªÅ¥Õ «h Åܦ¨ 199|

§Y¥i¨Ì¦r¼Æ±Æ§Ç, ¥BªÅ¥Õªº±Æ¨ì³Ì«á, ¦A±N"*|"¤§«eªº¼Æ¦r´À´«¬°ªÅ!

­ã´£³¡ªL

¦^´_ 14# s13030029

¬Ý¤å¦r¦³³W«ß, ª½±µ±Æ§Ç¤£¦æ¶Ü???
©ÎªÌ¦³¨ä¥¦ª¬ªp, ¤W¶ÇÀɮ׬ݬÝ~~