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

½Ð°Ý¦p¦ó²¤Æ

½Ð°Ý¦p¦ó²¤Æ

§Ú¥Îif then§PÂ_¦¡«á¡A­Ysheet1²Å¦Xªº¸ê®Æ¡A«ü©wÄæ¯S©w¦C¦^¼g¨ìsheet2, ¦p¤U¡A¦ý³o¼Ë¬Ý¨Ó¦n¤£±M·~¡A¦³Â²¤Æªº¤è¦¡¶Ü
               if     then   
                 sheets(2).Cells(K, 1) = sheets(1).Cells(i, 1).Value
                   sheets(2).Cells(K, 2) = sheets(1).Cells(i, 2).Value
                   sheets(2).Cells(K, 3) = sheets(1).Cells(i, 7).Value
                   sheets(2).Cells(K, 4) = sheets(1).Cells(i, j).Value
                    .............................
.

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-8-5 13:48 ½s¿è

¦Û¤v¬ÝªºÀ´¤ñ¸û­«­n¡C
  1. With Sheets(1)
  2.     Sheets(2).Cells(k, 1).Resize(, 4).Value = Array(.Cells(i, 1).Value, _
  3.                                                     .Cells(i, 2).Value, _
  4.                                                     .Cells(i, 7).Value, _
  5.                                                     .Cells(i, j).Value)
  6. End With
½Æ»s¥N½X
¦^´_ 1# eric093

TOP

¦^´_ 2# stillfish00


    ÁÂÁ¡IÁöµM§Ú²{¦b¬Ý¤£À´¡A§Ú·|¦A¬ã¨s¤@¤Uªº¡I¦A¤Wºô¬d¬ÛÃöªº¥Îªk¡I
   ·P®¦¡I

TOP

¦^´_ 3# eric093


    ©êºp¡A§Ú­è­è¥Î¤F³o­Ó¤è¦¡¡A¦ý«ç»ò³£»¡§Ú½sĶ¿ù»~¡A¤£µM¡A´N¨S¦³¶]¥X¸ê®Æ­C¡I

TOP

¦^´_ 4# eric093
ªþÀɬݬÝ

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD