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