Hsieh

Sheet2¡BSheet3Äæ¦ì¨S¦³ÃöÁp©Ê
µLªk¤ñ¹ï
¾Ç¥Í¸ò¾Ç¸¹¦p¦ó°t¹ï?

Hsieh

¦^´_ 3# atuan207
³o¬O¸ê®Æ®w«Ø¸m®É´N­n¦Ò¶q¡A
§Ú­Ìª¾¹D¾Ç¸¹·íµM¬O¤£­«½Æªº°ß¤@¯Á¤Þ­È
¦ý¬O¡A§A¦b­Ó¤H¸ê®Æ¤¤¥H©m¦W°µ¬°¯Á¤Þ­È
¦Ó¦P¦W¦P©m¬O¥i¯àµo¥Íªº°ÝÃD
¨ì®É­Ô´N·|²£¥Í¦P¦W¤£¦P¾Ç¸¹ªº±¡§Î
½Ð°Ý¨âªí¬O§_À³¸Ó«Ø¥ßÃöÁp©Ê¤~¯à¸Ñ¨M?

Hsieh

¦^´_ 8# atuan207

°Ñ¦Ò¬Ý¬Ý

¤U¸ü (18.4 KB)

2011-4-25 23:23

1. Sub ex()
   
2. With Sheet1
   
3. For Each a In .Range(.[A1], .[a65536].End(xlUp))
   
4.     Set b = Sheet2.Columns("A").Find(a, lookat:=xlWhole)
   
5.     Set c = Sheet3.Columns("A").Find(a, lookat:=xlWhole)
   
6.     a.Resize(, 7) = _
   
7.     Array(a, b.Offset(, 1).Value, b.Offset(, 2).Value, b.Offset(, 3).Value, c.Offset(, 1).Value, c.Offset(, 2).Value, c.Offset(, 3).Value)
   
8. Next
   
9. End With
   
10. End Sub

½Æ»s¥N½X