BV7BW

¦^´_ 14# samwang
ÁÂÁÂ S¤j
§Ú¥ý´ú¸Õ«á¦A¦V§A³ø§i
¥ýÁÂÁ§AS¤j¤j

samwang

¦^´_ 13# BV7BW


1)¤u§@ªí1.·í«È¤á¥u¦³1¦ì®É.·|¤ñ¹ï¤£¨ì.¦]¦Ó·|·í¾÷
>> ¦p¤U¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, i&, N%
Application.ScreenUpdating = False
[E65535:G3].ClearContents
With Sheets("¤u§@ªí1")
    With .Range(.[A1], .[D65536].End(3))
        Arr = .Value
        For i = 3 To UBound(Arr)
            N = N + 1
            Arr(N, 1) = Arr(i, 1)
            Arr(N, 2) = Arr(i, 2)
            Arr(N, 3) = Mid(Arr(i, 3), 1, 2)
        Next
        If N > 0 Then
            With .Range("E3").Resize(N, 3)
                .Value = Arr
                .Sort Key1:=.Item(3), Order1:=1, Header:=2
                For i = 1 To N: .Cells(i, 3) = "A" & i: Next
            End With
        End If
    End With
End With
Application.ScreenUpdating = True
End Sub


2)¤u§@ªí4.­«¾ã«á.¥i¥H­n¦b­«¾ã¦^.·Ó«È¤á½s¸¹«á2½X¤j¤p¶¶§Ç±Æ¦C....
¬O³o¼Ë¶Ü?
Range([¤u§@ªí4!A65535].End(3), [¤u§@ªí4!J2]).Sort Key1:=[¤u§@ªí4!B2], Header:=2

BV7BW

¦^´_ 11# °a¤ªºµ
ºµ¤j¤j§A¦n
¦³´X­Ó°ÝÃD½Ð±Ð

1)¤u§@ªí1.·í«È¤á¥u¦³1¦ì®É.·|¤ñ¹ï¤£¨ì.¦]¦Ó·|·í¾÷

2)¤u§@ªí4.­«¾ã«á.¥i¥H­n¦b­«¾ã¦^.·Ó«È¤á½s¸¹«á2½X¤j¤p¶¶§Ç±Æ¦C.¦p«á½X¬OS®É´N±Æ¦C³Ì«á
­ì¥»¬O¥H«È¤á«e2½X¬°°òÂI­«¾ã..
²{»Ý¨D­n­«¾ã¦^¥H«È¤á½s¸¹«á2½X¬°°òÂI­«¾ã
¦A¦¸ÁÂÁ ºµ¤j¤j

BV7BW

¦^´_ 11# °a¤ªºµ


    ÁÂÁºµ¤j¤j
­è­è§Ú¤]¥h°µ³o°Ê§@...«¢ ¯uÁÂÁ§A

¦b­É³o¦a¤è
¦V¦U¦ì¥ý¶i.«e½ú.¦Ñ®v»¡"ÁÂÁÂ"
¥h¦~6¤ëªº§Ú±q0¶}©l¾ÇEXCEL
©Ó»X ­ã¤j ¦Ñ®v .J¤j¦Ñ®v. S¤j¦Ñ®v ºµ¤j¦Ñ®v¤Î¦U¦ì¥ý¶i«e½ú­Ì
¸Ô²Ó«ü¾É.¯uªº«D±`·PÁ¤j®a.ÁÂÁ¤j®a.ÁÂÁÂ

°a¤ªºµ

¦^´_ 9# BV7BW

§â Range([¤u§@ªí4!A65535].End(3), [¤u§@ªí4!J2]).Sort [¤u§@ªí4!F2], 1, Key2:=[¤u§@ªí4!B2], Header:=2 ³o¦æ²¾¥X¨Ó

¥t¥~¥[¤@­Ó sub ´N¥i¥H¤F

BV7BW

¦^´_ 9# BV7BW[

BV7BW

¦^´_ 8# °a¤ªºµ

ÁÂÁºµ¤j¤j
µ²ªG§¹¥þ¥¿½T©Ò»Ý­n¨D
¦p¦A¯à§â2¨Æ¥ó¤À¶}?

°a¤ªºµ

¦^´_ 7# BV7BW
©êºp ¨Sª`·N¬Ý
§â Range([A65535].End(3), [G3]).Sort [G3], 1, Header:=2
§ï¦¨ Range([E65535].End(3), [G3]).Sort [G3], 1, Header:=2 ´N¥i¥H¤F
¶¶«K¬Ý¤@¤U ¤u§@ªí4 ¬O¤£¬O§A­nªºµ²ªG ·PÁÂ

BV7BW

¦^´_ 4# °a¤ªºµ
­è­è§Ñ¥ý¦V´X¦ì¥ý¶i.¦Ñ®v»¡ "©êºp"
¦]³o2¤Ñ¦n¥h¥x¤¤¥X¥ô°È.­è¶}3¤p®É¨®
¦^¨ì®a­è¦n6.30¤À.¤@®É¤ß«æ.¨S²Ä¤@®É¶¡¦^À³.²`·P©êºp""
¦b³o¦A¦V¦U¦ì¥ý¶i ¦Ñ®v ¦A»¡""©êºp""

ºµ¤j¤j§A¦n
­è­èºt½m«á¦³´X­Ó°ÝÃD
¤u§@ªí1¤¤.E.F.GÄ槹¥þ§k¦X»Ý¨D.¦ýA.B.C.DÄæ»Ý­n«O«ù¤£ÅÜ
¨ä»Ý¨D­ì¦]¬O¤u§@ªí1A.C.DÄ楴³æ­û¬Ý.A.B¬O²{³õ¾ß³f­û¬Ý.E.F.GÄæ¬O¸Ë¨®­û¬Ý
¤]´N¬O»¡1ªí3¥Î
°²¦pA.B.C.DÄæ§óÅÜ·|³y¦¨2­û§xÂZ.¨S²Ä¤GÂà´«³y¦¨¸Ë¨®­û¤£«K

¤u§@ªí1.2.3¬O³æ¤@¨Æ¥ó»Ý¨D
¤u§@ªí4¬O³æ¤@¨Æ¥ó»Ý¨D
¦Ü©ó¤u§@ªí4¤¤¸ò¤u§@ªí1"E.F.G"ÄæÃþ¦¡
¦ý¤u§@ªí4¬O¥H"F1"¬°°òÂI¨Ó·½
¦A¾ã­±¤u§@ªí4Âà´«¨Ã¨Ì§Ç±Æ¦C
¨Ò
¡K   ¡K   ¡K   ¡K   ¡K  ¡K  ¡K  A¨®   
¡K   ¡K   ¡K   ¡K   ¡K  ¡K  ¡K  A¨®   
¡K   ¡K   ¡K   ¡K   ¡K  ¡K  ¡K  B¨®   
¡K   ¡K   ¡K   ¡K   ¡K  ¡K  ¡K  B¨®   
¡K   ¡K   ¡K   ¡K   ¡K  ¡K  ¡K  C¨®   
¡K   ¡K   ¡K   ¡K   ¡K  ¡K  ¡K  C¨®   

¦A¦¸ÁÂÁ ºµ¤j¤j

BV7BW

¦^´_ 4# °a¤ªºµ

ºµ ¤j¤j§A¦n
ÁÂÁ§A«ü¾É §Ú¦Aºt½m.«á¦A¦V§A´£¥X³ø§i ¥ýÁÂÁ§A