­ã´£³¡ª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

s13030029

¦^´_ 11# ­ã´£³¡ªL
ÁÂÁ ­ã¤j~³o¬O§Ú­nªº~·P®¦
´N¬O»¡¥ý°µ¦r¼Æ­åªR¦s¨ì°}¦C¦A¨Ì¦r¥À±Æ¦C

­ã´£³¡ªL

¦^´_ 12# s13030029


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

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

s13030029

¦^´_ 13# ­ã´£³¡ªL
­ã¤j±z¦n~
§Ú¦³·sªº°ÝÃD·Q½Ð±Ð¡A´N¬O»¡§Úªº²£«~½s¸¹¦³ "OAE-008-3" ³oºØªº
¦pªG­n°µ¦r¥À¤Î½s¸¹¤j¤p±Æ§Çªº¸Ü­n«ç»ò§ï?
±Æ§Ç«e                         ±Æ§Ç«á
A001                              A001
B001                              B001
OCB-001                     OAE-007-1
OBB-001                      OAE-008-2
OAE-008-3                 OAE-008-3
OAE-012                     OAE-012
OAE-007-1                 OBB-001
OAE-008-2                 OCB-001

­ã´£³¡ªL

¦^´_ 14# s13030029

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

s13030029

¦^´_ 15# ­ã´£³¡ªL
¦]¬°¤§«e¬O¨Ì¦r¼Æ©Ò¥HOAE-008-3³oºØ¸ûªøªº·|¦b³Ì«á

°a¤ªºµ

¦^´_ 16# s13030029
¬Ý°_¨Ó µ²ªG¬O ¤@¼Ëªº ¤@¯ë±Æ§Ç¤]¥i¥H
Range(Cells(Rows.Count, 1).End(xlDown), Cells(2, 1)).Sort Cells(2, 1)

samwang

¦^´_ 14# s13030029

­É¥Î­ã¤j­×§ï¦p¤U
Sub TEST()
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
        ipos = InStr(5, Arr(i, 1), "-")
        If ipos > o Then
            xR = Mid(Arr(i, 1), 1, ipos - 1)
            Arr(i, 1) = 100 + IIf(LN = 0, 99, ipos - 1) & "|" & Arr(i, 1)
        Else
            LN = Len(Arr(i, 1))
            Arr(i, 1) = 100 + IIf(LN = 0, 99, LN) & "|" & Arr(i, 1)
        End If
      Next i
      .Value = Arr
      .Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
      .Replace "*|", "", Lookat:=xlPart
End With
End Sub

s13030029

¦^´_ 18# samwang
ÁÂÁ¤j¤j¸Ñ¨M¤F§Úªº°ÝÃD~~·P¿E¤£ºÉ!!

Andy2483

¦^´_ 11# ­ã´£³¡ªL


    ÁÂÁ½׾Â,ÁÂÁ«e½ú
«á¾ÇÂǦ¹©«¾Ç²ß«e½úªº¤è®×,±N¤è®×³]­p¬°¦P¦r¼Æ«á¦A±Æ§Ç,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú¦A«ü¾É

«e½ú«ü¾Éªº¤èªk:

¤U¸ü (66.22 KB)

2023-6-6 15:08

«á¾Ç©µ¦ù¾Ç²ßªº¤èªk:

¤U¸ü (61.59 KB)

2023-6-6 15:08

Option Explicit
Sub TEST_A4()
Dim R&, Arr, LN&, i&
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 = 10 - Len(Arr(i, 1))
         Arr(i, 1) = Application.Rept("|", LN) & Arr(i, 1)
     Next i
     .Value = Arr
     .Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
     .Replace "|", "", Lookat:=xlPart
End With
End Sub