ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¸ê®Æ¤ñ¹ï°ÝÃD

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

TOP

¦^´_ 3# mark761222


xD(xR & xR(1, 2) & xR(1, 3)) = ""

³] xR ¬° A2, xR(1, 2) «h¬° B2, xR(1, 3) ¬°C2

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD