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

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

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

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?

³Ì²³æ¬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

TOP

¥»©«³Ì«á¥Ñ PJChen ©ó 2019-12-18 19:46 ½s¿è

¦^´_ 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¶Ü? ÁÂÁÂ

TOP

  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

TOP

¦^´_ 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)

TOP

¦^´_ 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¤@¼Ë?

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD