GBKEE

¦^´_ 1# imzues

1. Option Explicit
   
2. Sub Ex()
   
3. '«á­±¨â½X1¡B5¡B21¡B25¬OC
   
4. '2¡B3¡B4¡B6¡B10¡B11¡B15¡B16¡B20¡B22¡B23¡B24¬OB
   
5. '7¡B8¡B9¡B12¡B13¡B14¡B17¡B18¡B19¬OA'
   
6. '­Y±q¥kÃä¼Æ²Ä7½X¬°0¬°D(³o±ø¥ó¤j©ó«e­±3­Ó±ø¥ó
   
7. Dim Rng As Range, Ar(), i
   
8.     Set Rng = Range("d3", Range("d3").End(xlDown)).Resize(, 2)
   
9.     Ar = Rng
   
10.     For i = 1 To UBound(Ar)
    
11.         If Mid(Right(Ar(i, 1), 7), 1, 1) = "0" Then
    
12.             Ar(i, 2) = "D"
    
13.         ElseIf InStr("01¡B05¡B21¡B25", Right(Ar(i, 1), 2)) Then
    
14.             Ar(i, 2) = "C"
    
15.         ElseIf InStr("02¡B03¡B04¡B06¡B10¡B11¡B15¡B16¡B20¡B22¡B23¡B24", Right(Ar(i, 1), 2)) Then
    
16.             Ar(i, 2) = "B"
    
17.         ElseIf InStr("07¡B08¡B09¡B12¡B13¡B14¡B17¡B18¡B19", Right(Ar(i, 1), 2)) Then
    
18.             Ar(i, 2) = "A"
    
19.         End If
    
20.     Next
    
21.     Rng.Value = Ar
    
22. End Sub

½Æ»s¥N½X