°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

¦^´_ 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.ÁÂÁÂ

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

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

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

BV7BW

¦^´_ 14# samwang
S¤j¤j §A¦n

1)¦V§A³ø§i¤w§¹¥þ¤£·|·í¾÷
¥¿±`¹B§@

2)¦A¦V S ¤j¤j»¡©ú
1)«È¤á½s¸¹«e2½X¼Æ¦r¤j¤p¶i¦æ­«¾ã«á
­n¦A­«·s«ì´_¥Ñ«È¤á½s¸¹«á2½X¼Æ¦r¤j¤p±Æ§Ç
¦p A001 A002 A003 ¡K³Ì«á¬O ¦³S½s¸¹¦b±Æ§Ç³Ì«á
²{S¤j¤j¬O¥H«È¤á½s¸¹«e2½X¤j¤p±Æ§Ç
§Ú»Ý¨D¬O¥H«È¤á½s¸¹«á2½X°µ±Æ§Ç

¦A¦¸ÁÂÁ S¤j¤j

samwang

¦^´_ 16# BV7BW


½Ð°Ý¤°»ò¬O"«È¤á½s¸¹«á2½X"?  ¦³½d¨Ò¶Ü?

BV7BW

¦^´_ 17# samwang

S¤j¤j§A¦n
¤u§@ªí4­è­è§A¬O¥H"01-A001"."02-A008.".03-A003....¥H½s¸¹«e2½X(01)¶¶§Ç±Æ¦C
»Ý¨D¬O¥H"01-A001"."08-A002".""03-A003"¥H½s¸¹«á(01)«á2½X§@¬°¶¶§Ç±Æ¦C

samwang

¦^´_ 18# BV7BW


½Ð¦A¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub tt()
Dim Arr
With Sheets("¤u§@ªí4")
    With .Range(.[k1], .[a65536].End(3))
        Arr = .Value
        For i = 2 To UBound(Arr)
            If InStr(Arr(i, 2), "A") Then
                Arr(i, 11) = Int(Right(Arr(i, 2), 3))
            Else
                Arr(i, 11) = Int(Mid(Arr(i, 2), 4, 3)) & "s"
            End If
        Next
        .Value = Arr
        .Sort Key1:=.Item(11), Order1:=1, Header:=1
    End With
    .Range("k1:k" & UBound(Arr)) = ""
End With
End Sub

BV7BW

¦^´_ 19# samwang
ÁÂÁÂ S ¤j¤j
¥¿¬O»Ý¨DµL»~
¤w¥i¥H¥Ñ½s¸¹«á2½X¾ã¦X
¦b½Ð°Ý.¦p»Ý¥Î3½X.¥i¦AÀ°µ{¦¡«á¥[¤Wµù¸Ñ?
** For i = 2 To UBound(Arr)**