½Ð°Ý¦p¦ó²¤Æ

eric093

§Ú¥Î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

¦Û¤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

eric093

¦^´_ 2# stillfish00


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

eric093

¦^´_ 3# eric093


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

stillfish00

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