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

¦p¦ó¦bsheet1¿é¤J¸ê®Æ«ü©w¨ìsheet2©Îsheet3

¦^´_ 4# flutist
¥i¯à¬O¶K¤W®É¨S¶K¨ì¡C
  1. Option Explicit
½Æ»s¥N½X

TOP



½Ð°Ý¥¦¥X²{³o­Ó¦r¼Ë¡A§ÚÀ³¸Ó¶K³o¸Ì¹ï¶Ü¡H

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-11-20 16:53 ½s¿è

¦^´_ 2# flutist
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim ¤ë¥÷ As Range, ¼t°Ó As Range
  4.     With [A8]
  5.         Set ¤ë¥÷ = Range(.Cells, .Cells.End(xlToRight)).Find([A2], LookAT:=xlWhole)
  6.         Set ¼t°Ó = Range(.Cells, .Cells.End(xlDown)).Find([B2])
  7.         Cells(¼t°Ó.Row, ¤ë¥÷.Column) = [C2]
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ flutist ©ó 2012-11-20 15:47 ½s¿è

¹Ï¤ù¤¤ºñ¦â³¡¥÷¬O§Ú­n¿é¤Jªº¦a¤è
¦Ó·í§Ú¿é¤J2¤ë©MÂ×·½©M3000
«hª÷ÃB3000·|¦Û°Ê¶]¨ìC10Àx¦s®æ¡A¦ýB9ªº2000¤´µM­n¦b®@

TOP

«ö¶s°ÝÃD



½Ð°Ý§Ú¸Ó¦p¦ó³]©w¡u«ö¤U«ö¶s¡v
ª÷ÃB2000¤¸´N·|¦Û°Ê¶]¨ìB9Àx¦s®æ¡H

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD