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

[µo°Ý] ¦p¦óÅý¸ê®Æ¤ñ¹ï¨ã¦³°ß¤@©Ê???

[µo°Ý] ¦p¦óÅý¸ê®Æ¤ñ¹ï¨ã¦³°ß¤@©Ê???

¥»©«³Ì«á¥Ñ atuan207 ©ó 2011-5-20 14:10 ½s¿è

§Ú¥Îoobird¤j¤j©Òµ¹ªºµ{¦¡½X°µ¸ê®Æ®wªº¤ñ¹ï

(¦Ó¥Ø«eªº¸ê®Æ®w¤¤¤£¨ãÃöÁp©Ê¡A ¦]¬°¥¼«Ø¥ß)
¥\¯à¬Osheet2¡B3·í¦¨¸ê®Æ®w¡Asheet1ªºA¡BB¦æ¦U¦Û·í¦¨¤@­Ó¤ñ¹ï¸ê®Æªº­È
§ä¨ì¸ê®Æ«á¦A¥á¦^sheet1ªºC¡BD¡BE¡BF¡BG¦æ

oobird¤j¤j©Ò´£¨Ñªºµ{¦¡½X¦p¤U:
Sub yy()
    Dim c As Range, i%
    With Sheet1
        For i = 2 To .[a65536].End(3).Row
            Set c = Sheet2.[a:a].Find(.Cells(i, 2))
            If Not c Is Nothing Then
                .Cells(i, 3).Resize(, 2) = c(1, 2).Resize(, 2).Value
            End If
            Set c = Sheet3.[a:a].Find(.Cells(i, 1))
            If Not c Is Nothing Then
                .Cells(i, 5).Resize(, 3) = c(1, 2).Resize(, 3).Value
            End If
        Next
    End With
End Sub

¦Û¤v´ú¸Õµo²{¦³¨Ç°ÝÃD¡A¹³¦pªGA¡BB¦æªº¸ê®Æ¿é¤J¿ù»~¡A(¥¿½T­È¬°12312)¡A¦Ó§Ú¥u¿é123
·í¸ê®Æ®w¤¤¦³12311¡B12312¡A¥¦·|½Æ»s12311ªº¸ê®Æ¹L¨Ó¡A
¥B­è­è¤S´ú¸Õ¡A¿é¤J0¡A¸ê®Æ®w¤¤¦³¤@­Ó¸ê®Æ¥N½X¬O01©~µM¥h§ì³oµ§¸ê®Æ

¸Ó¦p¦óÅý·j´M®É¨C­Ó¸ê®Æ³£¨ã¦³³æ¤@©Ê???
¤@©w­n¿é¤Jªº¸ê®Æ§¹¥þ¥¿½T¤~·|¥X²{¡A¿ù»~®É«hªÅ¥Õ???

½Ð±Ð¦U¦ì¤j¤j

Set c = Sheet2.[a:a].Find(.Cells(i, 2))
³o¼Ë¬O¼Ò½k¬d§ä¡A¬d§äªñ¦üªº­È
­Y§A­nªº¬Oºë½Tªº­È
Set c = Sheet2.[a:a].Find(.Cells(i, 2),,,1)
§ï³o¼Ë§Y¥i

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-20 14:43 ½s¿è

¦^´_ 1# atuan207
Set c = Sheet2.[a:a].Find(Cells(I, 2), LOOKAT:=xlWhole)   [Àx¦s®æ¤º®e¶·§¹¥þ¬Û²Å].
¨Ï¥ÎFind®É·|®Ú¾Ú¤W¤@¦¸ªº·j´Mªº³]©w¨Ó·j´M,·|¦³³o»~®t¬O§A«e¤@¦¸·j´Mªº³]©w  ¨S¦³ ¤Ä¿ï [Àx¦s®æ¤º®e¶·§¹¥þ¬Û²Å].

TOP

·PÁ¨â¦ì¤j¤jªº¨ó§U¡A

­è­è¤p§Ì¦³¥h·j´M¤@¤U¸ê®Æ¡A
¦³¤H´£¨ì¥Î
{=VLOOKUP(°Ñ¼ÆA, °Ñ¼ÆB, °Ñ¼ÆC, °Ñ¼ÆD)
°Ñ¼ÆA¡G­n®³¥h¤ñ¹ïªº¸ê®Æ
°Ñ¼ÆB¡G­n¤ñ¹ïªºªí®æ½d³ò
°Ñ¼ÆC¡G¬Û²Å®É­n¦^¶Çªº¸ê®Æ¡uÄæ¡v¯Á¤Þ
°Ñ¼ÆD¡Gfalseªí¥Ü­n¡u§¹¥þ¬Û²Å¡v¤~µø¬°¬Û²Å }
¤£¹L³o¦n¹³¬O¦bexcelªí®æ¤¤¨Ï¥Î¡A

«á¨Ó·Q¨ì¤W¦¸Hsieh¤j¤j
µ¹¤p§Ìªºµ{¦¡¤¤¦ü¥G¦³³o¼Ë¤@¬q

Hsieh µoªí©ó 2011-4-25 23:24 [/quote]


¦ý¤§«e¤£À´­ì¨Ó¨º¬O³o»ò¥Îªº¡A
²{¦bÁA¸Ñ¤F
·PÁ¤j¤j­Ìªº¨ó§U

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD