[µo°Ý] ¬Y°Ï¶¡ ¹j¤@¦C¶K¤W

PJChen

Dear,

§Ú·Q±NWorkbooks("A®w¦sªí.xlsx").Sheets("½LÂI")
T6:Y6
T8:Y8
    ┋
T26:Y26 ªº¸ê®Æcopy«á,¶K¨ì
Workbooks("³Ì·s®w¦s.xlsx").Sheets("check")
±qAV34¡BAV36...¤@ª½¨ì¶K§¹T26:Y26ªº"­È"¡A¤]´N¬O¹j¤@¦C¶K¤W
½Ð°ÝVBA»yªk¸Ó«ç»ò¼g?

89305039

³Ì²³æ¬O¥ý­pºâ¦n °Ï¶¡½d³ò µM«áµ{¦¡´N«Ü²³æ¼g¡A

Workbooks("³Ì·s®w¦s.xlsx").Activate

Activesheet.Range("33:33,35:35,....(¨Ì¦¹Ãþ±À¼g§¹)").Select
Selection.Insert Shift:=xlDown

set wb = Workbooks("A®w¦sªí.xlsx").Sheets("½LÂI")

For i = 6 To 26 Step 2

wb.Range(i & ":" & i).Copy Activesheet.Range(28 + i & ":" & 28 + i)

Next

PJChen

¦^´_ 2# 89305039

±z¦n,
¥ØªºÀÉ,­n¶K¤Wªº¸ê®Æ,¬O¤@­Ó°Ï°ì¤£¬O¾ã¦C
Workbooks("³Ì·s®w¦s.xlsx").Sheets("check")
±qAV34¡BAV36...
©Ò¥H¤£¯à¥Î³o­Ó¼gªk,¦Ó¥B­n¶K¤Wªº¦a¤è¬OÂù¼Æ,¬°¤°»ò³o­Ó¬O³æ¼Æ?
Activesheet.Range("33:33,35:35,....(¨Ì¦¹Ãþ±À¼g§¹)").Select
¦Ó¥B§Úªº2­Óªí®æ³£¤£­n¦³¥ô¦óÅÜ°Ê,³o¼Ëªí®æ·|¯}Ãa,©Ò¥H¤£¯à¦³
Selection.Insert Shift:=xlDown
¥i¥H¦AÀ°¦£¥Î§Oªº¼gªk¶Ü? ÁÂÁÂ

ikboy

1. Sub zz()
   
2. Dim ss As Worksheet
   
3. Application.ScreenUpdating = 0
   
4. Set ss = Workbooks("³Ì·s®w¦s.xlsx").Sheets("check")
   
5. With Workbooks("A®w¦sªí.xlsx").Sheets("½LÂI")
   
6.     For i = 6 To 26 Step 2
   
7.         .Range("T" & i).Resize(1, 6).Copy ss.Range("AV" & 28 + i).Resize(1, 6)
   
8.     Next
   
9. End With
   
10. Application.ScreenUpdating = 1
    
11. End Sub

½Æ»s¥N½X

PJChen

¦^´_ 4# ikboy

·PÁÂ...³o­Óµ{¦¡OK
½Ð°Ý,¦p­n¥u­n¶K¤W­È,¤£­n®æ¦¡,³o¥y¸Ó«ç»ò§ï?
.Range("T" & i).Resize(1, 6).Copy ss.Range("AV" & 28 + i).Resize(1, 6)

PJChen

¦^´_ 4# ikboy
¥u¶K­Èªº°ÝÃD¸Ñ¨M¤F,¤£¹L½Ð°Ý
ÁöµMµ{¦¡¤¤¥[¤F,³o¤G¥y,¦ýµe­±ÁÙ¬O·|¤@ª½°{°Ê
Application.ScreenUpdating = 0
Application.Calculation = xlManual     '¤â°Ê­pºâ

¦ý¦pªG¦bµ{¦¡¤¤ª½±µ«öF5,¤£¦ý°õ¦æ§ó§Ö,¦Ó¥B¤£·|°{,¬O¬°¤°»ò?
§Ú¬O¦bµ{¦¡¤¤°µ¤F¤@­ÓIJµo«öÁä¥h°õ¦æµ{¦¡
¦³¨S¦³¤°»ò¤è¦¡¥i¥HÅý¥¦¹³«öF5ªº®ÄªG¤@¼Ë?