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

[µo°Ý] ¬£¨®ªí_¼·¶ÃÂॿ

¦^´_ 30# samwang
ÁÂÁ  S¤j¤j
§¹¥þ²Å¦X­«¾ã«á½s¸¹
¦A¦¸ÁÂÁ§A  S ¤j¤j§A³Ò¤ß«ü¾É
ÁÂÁ§A
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 30# samwang
  s¤j¤j §A¦n
ª©¥»Âà¨ì¥¿±`¨Ï¥Îª©¥»·|¥X²{
Arr(i, 11) = Int(Right(Arr(i, 2), 3))   '°£¤F½s¸¹S¥H¥~¡A¨ú³Ì«á3½Xªº¾ã¼Æ¡A¼Æ­È¸Ë¤JArr(i,11)
³o¬q¿ù»~
°õ¦æ¶¥¬q¿ù»~'13'
«¬ºA¤£²Å¦X
§Ú§ï«Ü¤[.¹³§ïÀx¦s®æ§ï¬°¤å¦r
¤@¼Ë¤£¦æ
½Ð À°¸Ñ´b ÁÂÁ ¬¡­¶Ã¯1.zip (43.71 KB)
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 32# BV7BW

½Ð¦b¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub ´_¾ã2()
Dim Arr
With Sheets("¤u§@ªí3")
      With .Range(.[k1], .[a65536].End(3))
          Arr = .Value    '¸ê®Æ¸Ë¤JArr
          For i = 2 To UBound(Arr)
              If Arr(i, 2) = "" Then GoTo 99  'ªÅ¥Õ´N´«¤U¤@­Ó
              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
99:       Next
          .Value = Arr 'Arr­È¶K¦^excel
          .Sort Key1:=.Item(6), Order1:=1, _
          Key2:=.Item(11), Order1:=1, Header:=1 '¥HF¡BKÄæ±Æ§Ç
    End With
      .Range("k1:k" & UBound(Arr)) = ""   '²M°£KÄæ¼Æ­È
End With
End Sub

TOP

¦^´_ 33# samwang
ÁÂÁÂ s¤j¤j
²{¦bÂà¦Ü¥¿±`¨Ï¥Îª©¥H«D±`¶¶ºZ¨Ï¥Î
ÁÂÁ§A
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD