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

[µo°Ý] ½Ð°Ý«ç»ò²¤Æµ{¦¡

[µo°Ý] ½Ð°Ý«ç»ò²¤Æµ{¦¡

¥»©«³Ì«á¥Ñ john2006168 ©ó 2010-9-3 23:42 ½s¿è

Hi all,help
Sheets(2).Range("A2:A2000").Value = Sheets(1).Range("c2:c2000").Value
Sheets(2).Range("B2:B2000").Value = Sheets(1).Range("B2:B2000").Value
Sheets(2).Range("C2:C2000").Value = Sheets(1).Range("F2:F2000").Value
Sheets(2).Range("D22000").Value = Sheets(1).Range("G2:G2000").Value
Sheets(2).Range("E2:E2000").Value = Sheets(1).Range("H2:H2000").Value
Sheets(2).Range("F2:F2000").Value = Sheets(1).Range("I2:I2000").Value
Sheets(2).Range("G2:G2000").Value = Sheets(1).Range("N2:N2000").Value
Sheets(2).Range("H2:H2000").Value = Sheets(1).Range("O2:O2000").Value

«á­±­«½Æªº3¦æ¬O«ç»ò¦^¨Æ¡H

TOP

¥»©«³Ì«á¥Ñ jackdream ©ó 2010-9-3 16:58 ½s¿è

¦^´_ 1# john2006168

©¿²¤³Ì«á¨â¦æµ{¦¡,¦]¬°°Ï°ì­«ÂÐ,½ÐÀˬd±zªº­ì¤º®e¬O§_¦³»~
i = Array(3, 2, 6, 7, 8, 9, 14, 15, 15)
For j = 1 To 9
    Sheets(2).Range(Chr(64 + j) & "2:" & Chr(64 + j) & "2000") = Sheets(1).Range(Chr(64 + i(j - 1)) & "2:" & Chr(64 + i(j - 1)) & "2000").Value
Next j

TOP

¦^´_ 1# john2006168
¬O¤£¬O¦p¦¹
   
  1. Sub Ex()
  2.     Dim Ar(), i%
  3.     Ar = Array("c", "b", "f", "g", "h", "i", "n", "o", "o", "r", "s")
  4.     For i = 0 To UBound(Ar)
  5.         Sheets(2).Range("A2:A2000").Offset(, i).Value = Sheets(1).Range(Ar(i) & "2:" & Ar(i) & "2000").Value
  6.     Next
  7. End Sub
½Æ»s¥N½X

TOP

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2010-9-3 23:38): §A­nªºÂ²¤Æ´N¬O¨Ì·Ó§A¥N½X¤º®e²¤Æ¡A½Ð¸Ô­z»Ý¨D¤£­n±¤¦r¦pª÷

¥»©«³Ì«á¥Ñ john2006168 ©ó 2010-9-3 23:17 ½s¿è

¦^´_ 4# GBKEE


    sorry ,«á­±3­Ó¤£¥Î²z·|,¦Ó¥B¤£¥Î²z·|¬O§_©T©w¨ì²Ä2000®æ

TOP

¦^´_ 5# john2006168


    ©ú¥Õ.§Ú¬O·Q§âsheet1ªº³¡¥÷Column copy¨ìsheet2..

TOP

  1. Sub nn()
  2. ar = Array(1, 2, 3, 4, 5, 6, 7, 8)
  3. ay = Array(3, 2, 5, 7, 8, 9, 14, 15)
  4. For i = 0 To 7
  5. Sheet2.Columns(ar(i)).Value = Sheet1.Columns(ay(i)).Value
  6. Next
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD