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

¦p¦ó¥Î¥¨¶°¨Ï¥Îvlookup¥B·|±a¨ì¸ê®Æ³Ì«á¤@µ§

¦p¦ó¥Î¥¨¶°¨Ï¥Îvlookup¥B·|±a¨ì¸ê®Æ³Ì«á¤@µ§

½Ð°ÝÀɮפ¤¦³s1»Ps2¤u§@ªí¨â­Ó,s1¬O¹ï·Óªí,s2¬O¤é±`§ó·s¸ê®Æ,»Ý±Ns1¸ê®Æ±a¤Js2,

¥Bs2ªº¸ê®Æªø«×·|ÀH®É¼W¥[

·Q¥Îvlookup§¹¦¨,¦p¦ó¥¨¶°ªí¥Ü?ÁÂÁÂ

11.gif (87.97 KB)

11.gif

  1. Sub finddata()
  2. With Sheets("s2")
  3. For Each c In .Range(.Cells(2, 1), .Cells(65536, 1).End(3))
  4. On Error GoTo 1
  5. c(1, 2) = Sheets("s1").[a:z].Find(c)(1, 2)
  6. 1:Next
  7. End With
  8. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD