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

[µo°Ý] ¦p¦ó¾î¦V¶ñ¤J¸ê®Æ

¦^´_ 1# jesscc


¦b"E" ¤u§@ªí °õ¦æ¥H¤U¥¨¶°(²³æ¼gªk)

Sub Ext()
For R = 5 To [D4].End(xlDown).Row
  Cells(R, 12) = Sheets("DATA").Range("E:E").Find(Cells(R, 4), LookAt:=xlWhole).Offset(, -3).Value
  Cells(R, 13) = Sheets("DATA").Range("E:E").Find(Cells(R, 4), LookAt:=xlWhole).Offset(, -4).Value
Next R
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD