- ©«¤l
- 2831
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2887
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-5
|
Sub AZ1011()
Dim xR As Range, xD
Set xD = CreateObject("Scripting.Dictionary")
'¥H¢Ï¢ÐÄæȬ°KEY¯Ç¤J¦r¨åÀÉ¡@
For Each xR In Range([A2], [A65536].End(xlUp))
¡@¡@xD(xR & xR(1, 2)) = ""
Next
¡@
'¥H¢Ô¢ÕÄæȬ°KEY¤ñ¹ï¬O§_¦s¦b©ó¦r¨åÀÉ¡@
For Each xR In Range([F2], [F65536].End(xlUp))
¡@¡@If xD.Exists(xR & xR(1, 2)) Then xR(1, 4) = "OK" Else xR(1, 4) = "NO"
Next
End Sub |
|