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

[µo°Ý] ¦r¨å¨Ï¥Î°ÝÃD

¦^´_ 1# jesscc
µ{¦¡½X­×§ï¦p¤U¡G
  1. Option Base 1
  2. Sub test()

  3. With Sheets("¤u§@ªí1")
  4. Set D = CreateObject("Scripting.Dictionary")

  5. For Each B In .Range(.[B6], .[B100].End(xlUp))
  6. Dim Ar(10)
  7.     For p = 1 To 10
  8.     Ar(p) = B.Offset(, p).Value
  9.     Next p
  10.     D(B & "") = Ar
  11. Next
  12. End With


  13. With Sheets("¤u§@ªí2")
  14. .[F7:O1000].ClearContents
  15.     For Each E In .Range(.[E7], .[E100].End(xlUp))
  16.       If D.EXISTS(E & "") Then
  17.       E.Offset(, 1).Resize(, 10) = D(E & "")
  18.       Else: E.Offset(, 1) = "¬dµL¦¹ PN"
  19.       End If
  20.     Next
  21. End With


  22. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# jesscc

­Y¨S¦³«Å§iOption Base 1ªº¸Ü¡A«h©³¤UªºDim Ar(10)·|¥]§tAr(0)¡BAr(1)¡BAr(2)¡BAr(3)...¡BAr(10)¦@¦³11­Ó°}¦C¤¸¯À¡C
­Y«Å§iOption Base 1ªº¸Ü¡A«hAr(10)°}¦C¥u¥]§tAr(1)¡BAr(2)¡BAr(3)...¡BAr(10)¡A10­Ó°}¦C¤¸¯À¡C
­YOption Base 1 ®³±¼ªº¸Ü¡A¾ã­Ó¸ê®Æ¶Ç¦^µ²ªG·|¦V¥k°¾¤@Äæ´N¬O³o­Ó¹D²z¡C

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD