samwang

¦^´_ 24# BV7BW

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub tt3()
Dim Arr
With Sheets("¤u§@ªí4")
     With .Range(.[k1], .[a65536].End(3))
         Arr = .Value    '¸ê®Æ¸Ë¤JArr
         For i = 2 To UBound(Arr)
             If InStr(Arr(i, 2), "S") Then   '½s¸¹¦³ S
                 Arr(i, 11) = Int(Mid(Arr(i, 2), 4, 3)) & "s"  '½s¸¹S¡A¨ú-¥H«á3½X¾ã¼Æ+S¡A¼Æ­È¸Ë¤JArr(i,11)
             Else
                 Arr(i, 11) = Int(Right(Arr(i, 2), 3))   '°£¤F½s¸¹S¥H¥~¡A¨ú³Ì«á3½Xªº¾ã¼Æ¡A¼Æ­È¸Ë¤JArr(i,11)
             End If
         Next
         .Value = Arr 'Arr­È¶K¦^excel
         .Sort Key1:=.Item(11), Order1:=1, Header:=1 '¥HKÄæ±Æ§Ç
    End With
     .Range("k1:k" & UBound(Arr)) = ""   '²M°£KÄæ¼Æ­È
End With
End Sub

BV7BW

¦^´_ 22# samwang
S¤j¤j §A¦n
¤u§@ªí4¤¤¥H½s¸¹xx-A001.""A""¶}ÀY  'If InStr(Arr(i, 2), "A") Then   '½s¸¹¦³ A
¦p¥H""B""©Î""C""¡K¡K..¶}ÀY.¥X²{¿ù»~
²{¥H""A""¶}ÀY.¥u¯à³æ¤@¹B¥Î
¦p¯à¥[¤W""B"".""C""¡K¡K¡K.©ÎªÌ¥u¥H½s¸¹«á3½X§@¬°Âà´«¸ê®Æ°òÂI.¦Ó«á3½X¦³S¤@¼Ë¦C¦b³Ì«á
³o¼Ë¹B¥ÎÅܤƤñ¸ûÆF¬¡
ÁÂÁ§A S ¤j¤j

BV7BW

¦^´_ 22# samwang

ÁÂÁ§A S¤j¤j
¦³µù¸Ñ§Ú¥i¦A²`¤J²z¸Ñ
¦A¦¸ÁÂÁ§A

samwang

¦^´_ 20# BV7BW


µù¸Ñ¤w¸É¤W¡A½Ð¦Û¦æ½Õ¾ã¹B¥Î¡A¦³°ÝÃD¦A°Q½×¡AÁÂÁÂ

samwang

¦^´_ 20# BV7BW


    Sub tt2()
Dim Arr
With Sheets("¤u§@ªí4")
    With .Range(.[k1], .[a65536].End(3))
        Arr = .Value    '¸ê®Æ¸Ë¤JArr
        For i = 2 To UBound(Arr)
            If InStr(Arr(i, 2), "A") Then   '½s¸¹¦³ A
                Arr(i, 11) = Int(Right(Arr(i, 2), 3))   '¨ú³Ì«á3½Xªº¾ã¼Æ¡A¼Æ­È¸Ë¤JArr(i,11)
            Else
                Arr(i, 11) = Int(Mid(Arr(i, 2), 4, 3)) & "s"  '°£¤F½s¸¹A¥H¥~ªº­È¡A¨ú-¥H«á3½X¾ã¼Æ+S¡A¼Æ­È¸Ë¤JArr(i,11)
            End If
        Next
        .Value = Arr 'Arr­È¶K¦^excel
        .Sort Key1:=.Item(11), Order1:=1, Header:=1 '¥HKÄæ±Æ§Ç
    End With
    .Range("k1:k" & UBound(Arr)) = ""   '²M°£KÄæ¼Æ­È
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)**

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

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

¦^´_ 16# BV7BW


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

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