ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] excel ¤¤¤å+¼Æ¦rªº±Æ§Ç

[µo°Ý] excel ¤¤¤å+¼Æ¦rªº±Æ§Ç

¨C¦¸«È¤áµ¹§Úªº¸ê®Æ·|¦³¥Ò1~¥Ò1000¥H¤W
¸ò¤A1~¤A1000¥H¤W
Á`¦@·|¦³2000µ§¸ê®Æ¥H¤W
±Æ§Ç¬O¶Ãªº

§Ú·Q­n±Æ¦¨
¥Ò1~¥Ò1000¦h  ¦A¨Ó¤A1~¤A1000¦h

¦pªG¥Î¤º«Øªº±Æ§ÇA~Z
·|Åܦ¨¤A1¤A10¤A100......¥Ò998¥Ò999
Åܦ¨³o¼Ëªº±Æ§Ç

¥Î¤º«Øªº±Æ§ÇZ~A
·|Åܦ¨¥Ò999¥Ò998.......¤A100¤A10¤A1

¥»¨Ó·Q¥Î¦Û­q²M³æªº¥\¯à
¦ý¼Æ¶q¦n¹³¦³­­¨î

¥Î¤º«Øªº¦Û­q²M³æ¦³­Ó¥Ò¡A¤A¡A¤þ......
¦ý±Æ¤F¤]ÁÙ¬O¤A¦b«e­±

¦^´_ 1# e86137

«Øij¥i¥H¥Ò¡B¤A¸ê®Æ¤À¶}¦U§O±Æ§Ç«á¦Aµ²¦X¤@°_¡AÁÂÁÂ

TOP

¦^´_ 1# e86137


    ¦pªG¸ê®Æ¦bAÄæ
1.½Æ»s¤@¥÷¨ìBÄæ
2.¥t½Æ»s¤@¥÷¨ìDÄæ
3.BÄæ¿ï¨ú¥H ¥Ò °µ¬°¤À¹j²Å¸¹­åªR±o¨ìCÄæ¼Æ¦r
4.DÄæ¿ï¨ú¥H ¤A °µ¬°¤À¹j²Å¸¹­åªR±o¨ìEÄæ¼Æ¦r
5.¥HC.EÄæ°µ±Æ§Ç
¥H¤W°Ñ¦Ò
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 1# e86137

¸ê®ÆAÄæ(A1¬O¶µ¥Ø¡A±qA2¶}©l¬O¸ê®Æ¥Ò©Î¤A)¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, i&
Arr = Range([c1], [a65536].End(3))
For i = 2 To UBound(Arr)
    Arr(i, 2) = Left(Arr(i, 1), 1)
    Arr(i, 3) = Mid(Arr(i, 1), 2)
Next
[a1].Resize(UBound(Arr), 3) = Arr
With [a1].Resize(UBound(Arr), 3)
    .Sort Key1:=.Item(2), Order1:=2, _
    Key2:=.Item(3), Order2:=1, Header:=xlYes
End With
Range("B2:C" & UBound(Arr)) = ""
End Sub

TOP

¦^´_ 5# samwang


¦¨¥\¤F
³o­Ó¤è¦¡¤]«Ü¤è«K!!!
·PÁ¤À¨É~

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD