samwang

¦^´_ 2# BV7BW


«Ü¥Î¤ß¬Ý¤F¡A¦ýÁÙ¬O¤£¯à²z¸Ñ¹ê»Ú»Ý¨D¡A¬Ý¬Ý¦³µL¨ä¥L¤j®vÄ@·NÀ°¦£¡AÁÂÁ¡C

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

samwang

¦^´_ 16# BV7BW


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

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

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

samwang

¦^´_ 20# BV7BW


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

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

samwang

¦^´_ 27# BV7BW

¤£ª¾¹D¬O¤£¬O§A­nªº»Ý¨D¡A½Ð½T»{¬Ý¬Ý¡AÁÂÁ¡C
Sub tt4()
Dim Arr
With Sheets("¤u§@ªí1")
      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(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

samwang

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