- ©«¤l
- 163
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-5
- ³Ì«áµn¿ý
- 2022-7-20
|
¦^´_ 1# »a³·
¥ÎVBA¸Ñ¦p¤U¡G
Sub test()
arr = Array("L20", "L10", "L30")
Application.AddCustomList listArray:=arr
n = Application.CustomListCount
For r = 1 To 9
Cells(r, 2).Value = Split(Cells(r, 1).Value, "[")(0)
Cells(r, 3).Value = Split(Split(Cells(r, 1).Value, "/")(0), "[")(1)
Cells(r, 4).Value = Split(Split(Cells(r, 1).Value, "/")(1), "]")(0)
Next r
[A1].CurrentRegion.Sort Key1:=[B1], OrderCustom:=n + 1, key2:=[C1], key3:=[D1]
Application.DeleteCustomList n
Columns("B:D").Delete
End Sub
¥t¥~©³¤U¶¶§Ç¬O§_¤Ï¤F¡H
L20[7.5/B.5]S
L20[7/C]N
À³¸Ó¬O¡G
L20[7/C]N
L20[7.5/B.5]S |
|