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

¤£¦PÀɮ׶¡ªº½Æ»s

¤£¦PÀɮ׶¡ªº½Æ»s

½Ð°Ý.....¸Ó«ç»ò±qÀÉ®×1½Æ»s¬Y¨Ç©T©wªºÀx¦s®æ¦ÜÀÉ®×2¬Y¨Ç©T©wªºÀx¦s®æ??
¨Ò¦p: ¦bÀÉ®×1½Æ»sA3 A4 A5 A6 A7 A9 ¨ìÀÉ®×2ªº B3 B4 B5 B10 B11 B12  (¥H¤W¬OÀH«K¥´ªº,¨S¦³¤@©w)
ªì¾ÇªÌcolor

¦^´_ 1# color790
§A­n½Æ»sÀx¦s®æªºÄæ¦C »P ¥ØªºÀx¦s®æªºÄæ¦C ³£¤£¬O¤@³sÄò½d³ò
©Ò¥H±N½Æ»sÀx¦s®æªº­È,Àx¦s©ó¦r¨åª«¥ó.©ó¥ØªºÀx¦s®æ¤@¤@µ¹¤©
  1. Sub Ex()
  2. Dim D As Object, i As Integer, E As Range
  3. Set D = CreateObject("Scripting.Dictionary")
  4. i = 1
  5. For Each E In Workbooks("book1").Sheets("SHEET1").Range("A3:A7,A9")
  6. D(i) = E.Value
  7. i = i + 1
  8. Next
  9. i = 1
  10. For Each E In Workbooks("book2").Sheets("SHEET1").Range("B3:B5,B10:B12")
  11. E = D(i)
  12. i = i + 1
  13. Next
  14. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ color790 ©ó 2010-9-28 23:24 ½s¿è

ÁÂÁÂGBKEEª©¥Dªº¸Ñµª,¦ý³o¼Ë»Ý­n¨C¦¸³£keyin workbook name (¦]¬°¨C¦¸ÀÉ®×1&ÀÉ®×2ªºÀɦW³£¤£¬Û¦P)
¦³¨S¦³¿ìªk¦bÀÉ®×1¥H with activesheet ½Æ»sÀx¦s®æªº­È,Àx¦s©ó¦r¨åª«¥ó«á, ¤§«á¦A¦ÜÀÉ®×2 ¥Hwith activesheet ¶K¤W ¤]´N¬O¤À¨â­Óvbaµ{¦¡,©Î¬O¦³§ó¦nªº¤èªk,·P®¦ .
ªì¾ÇªÌcolor

TOP

Sub yy()
With ActiveSheet
ary = Array(.[a3], .[a4], .[a5], .[a6], .[a7], .[a9])
End With
Workbooks(2).Activate
With ActiveSheet
ary2 = Array(.[b3], .[b4], .[b5], .[b10], .[b11], .[b12])
For i = 0 To 5
ary2(i).Value = ary(i)
Next
End With
End Sub

TOP

¥»©«³Ì«á¥Ñ color790 ©ó 2010-9-29 00:56 ½s¿è

¦^´_ 4# oobird

ÁÂÁÂOOBIRDª©¥Dªº¦^µª
  1.½Ð°Ý...¬O¤£¬O­n½Æ»sªºÀɮײĤ@­Ó¶},­n¶K¤WªºÀɮײĤG­Ó¶}
  2.¬°¤°»ò­nfor i ...
  3.¬°¤°»ò­n0 to 5

¥t¥~°Ý­Ó¤p°ÝÃD- ¥H«e¥Îoffice2003¤£·|¦³³o­Ó°ÝÃD,²{¦b¥Î2007ª©,´N¬O­n½s¿è­Ó¤H¤u§@¬¡­¶Á¡ªº¥¨¶°®É,³£·|¥X²{ " µLªk¦bÁôÂì¡­¶Á¡½s¿è¥¨¶° .... " «D±o­n¥´¶}PERSONAL.XLSB ¤~¯à½s¿è,¦Ó¥BPERSONALÃö±¼«á¥¨¶°´N¤£¯à¨Ï¥Î,³o­Ó¦³¸Ñ¶Ü? 2010ª©ªº¤]·|³o¼Ë¶Ü?
ªì¾ÇªÌcolor

TOP

1.¬Oªº¡A¦bÀɦW¤£¤@©wªº±¡§Î¤U¡A¥H³o¼Ë¤è¦¡¤~¯à¨M©w½Ö¬OWorkbooks(1)¡A½Ö¬OWorkbooks(2).
2.«Ø¥ß°j°é¡C
3.°j°éªº¦¸¼Æ(¥H§A­n½Æ»sªºÀx¦s®æ¼Æ¦r¨M©w,°}¦C¤¤¤º©w­È¬O±q0¶}©l¡C
2007¡A2010§Ú³£¨S¥Î¹L¡AµLªk²z¸Ñ©Î¦^Âгo¼Ëªº°ÝÃD¡C

TOP

¤Ó·PÁ¨â¦ìª©¥DªºÀ°¦£~^^
ªì¾ÇªÌcolor

TOP

­è¦n»Ý­n¥Î¨ì ¨ü¯q¨}¦h ·PÁÂ

TOP

ÁÂÁ¤À¨É¡ã
¥t¥~·Q½Ð±Ðªº¬O¡A§Ú¤]¬O¹J¨ì¨C¤Ñ­n±N¬Y­ÓÀɪºÄæ¦ì´¡¤J¥t¤@­ÓÀɪº¬Y´XÄæ
ÀɦW¤]¬O·|·Ó¤é´Á°µ§ó§ï
°ÝÃD¤@¡G´¡¤Jªº°Ê§@¬O­n§ï¦¨¡H
°ÝÃD¤G¡G¦b²Ä¤@­ÓÀÉ®×°õ¦æ¥¨¶°®É¡A¬O§_¥i¥H¸õ¥X­Óªí³æÅýUserÂI¿ï¥Ø«e¶}±ÒªºExcelªº­þ­Ó¨Ó´¡¤J¡H
Eric.Tu

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD