¦p¦ó¥Î¥¨¶°¨Ï¥Îvlookup¥B·|±a¨ì¸ê®Æ³Ì«á¤@µ§
- ©«¤l
- 18
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 30
- ÂI¦W
- 0
- §@·~¨t²Î
- window7
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-11-13
- ³Ì«áµn¿ý
- 2012-10-17
|
¦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)
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
- Sub finddata()
- With Sheets("s2")
- For Each c In .Range(.Cells(2, 1), .Cells(65536, 1).End(3))
- On Error GoTo 1
- c(1, 2) = Sheets("s1").[a:z].Find(c)(1, 2)
- 1:Next
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|