­ã´£³¡ª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