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

[µo°Ý] ¦h±ø¥ó¬d§ä

¦b¼Æ²Õ¤¤°õ¦æÀ³¯à§ÖÂI.

Sub zz()
a = Sheets("®w¦s").[a1].CurrentRegion
b = Sheets("¬d").[a1].CurrentRegion
For ax = 2 To UBound(b)  'lastrow_b '¬d¤u§@ªíªº«~¸¹¦C¼Æ
  For ay = 3 To 12 Step 3 '®Ö¨ú¤è¶ôÄæ
    For ao = 2 To UBound(a)  'lastrow_a '®w¦s¸ê®Æ®w
      If b(ax, ay) = True And b(ax, 1) = a(ao, 1) And b(ax, ay + 1) = a(ao, 2) Then
        a(ao, 4) = b(ax, 2)
      End If
    Next
  Next
Next
Sheets("®w¦s").[a1].Resize(UBound(a), UBound(a, 2)) = a
End Sub

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD