[µo°Ý] ¢×¢Ô¡@¦h±ø¥ó§PÂ_¦p¦ó§ï¬°°}¦C°õ¦æ¡U

starry1314

¥\¯à¡G¢ÒÄ椺¡@¤£¬°¡i¢Ú¡C¢Þ¡C¢â¡C¢ß¡C¢×¡j¤@«ß¨ú¥N¬°¢Ï
½Ð°Ý¦p¦ó§ï¬°¥H°}¦C¼Ò¦¡°õ¦æ©O¡H¡@¦]´NºâÃö³¬¿Ã¹õ¨ê·s»P¦Û°Ê­pºâ¡AÁÙ¬O¦³ÂIºC

1. Sub ¥N¸¹´À´«()
   
2. 
   
3. For I = 2 To 50000
   
4. £P = Range("d" & I)
   
5. If £P <> "L" And £P <> "P" And £P <> "T" And £P <> "Q" And £P <> "I" Then
   
6. Range("D" & I) = "A"
   
7. End If
   
8. Next
   
9. End Sub

½Æ»s¥N½X

starry1314

¦^´_ 3# lpk187
ÁÂÁÂ~¬Oªº ¨Ó¸Õ¸Õ¬Ý

starry1314

¦^´_ 4# ­ã´£³¡ªL

ÁÂÁª©¤j ¨Ó¸Ô²Ó¤F¸Ñ¤U InStr

­ã´£³¡ªL

Sub AA1012_1()
Dim Arr, i&
With Range([D2], Cells(Rows.Count, "D").End(xlUp))
¡@¡@¡@Arr = .Value
¡@¡@¡@For i = 1 To .Count
¡@¡@¡@¡@¡@If InStr("LPTQI", Arr(i, 1)) = 0 Then Arr(i, 1) = "A"
¡@¡@¡@Next i
¡@¡@¡@.Value = Arr
End With
End Sub

lpk187

¦^´_ 1# starry1314

³o¼Ë¤]¦æ

1. Sub ¥N¸¹´À´«1()
   
2. Dim Rng As Range
   
3. Dim arr
   
4. ro = Cells(Rows.Count, 4).End(xlUp).Row
   
5. ReDim arr(1 To ro, 1 To 1)
   
6. For Each Rng In Range("d2:D" & ro)
   
7. i = i + 1
   
8. £P = Rng.Value
   
9. If £P <> "L" And £P <> "P" And £P <> "T" And £P <> "Q" And £P <> "I" Then
   
10.     arr(i, 1) = "A"
    
11. Else
    
12.     arr(i, 1) = Rng.Value
    
13. End If
    
14. Next
    
15. [d2].Resize(UBound(arr)) = arr
    
16. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 1# starry1314


    §A­nªº°}¦C¼Ò¦¡³o³o¼Ë¶Ü¡H

1. Sub ¥N¸¹´À´«()
   
2. Dim Arr(1 To 49999, 1 To 1)
   
3. For I = 2 To 50000
   
4. £P = Range("d" & I)
   
5. If £P <> "L" And £P <> "P" And £P <> "T" And £P <> "Q" And £P <> "I" Then
   
6.     Arr(I - 1, 1) = "A"
   
7. Else
   
8.     Arr(I - 1, 1) = Range("d" & I)
   
9. End If
   
10. Next
    
11. [d2].Resize(UBound(Arr)) = Arr
    
12. End Sub

½Æ»s¥N½X