- 帖子
- 2025
- 主題
- 13
- 精華
- 0
- 積分
- 2053
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- Office2007
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台北市
- 註冊時間
- 2011-3-2
- 最後登錄
- 2024-3-14
     
|
本帖最後由 ML089 於 2021-7-23 23:07 編輯
回復 5# ziv976688
Nrange = "1878" 'InputBox("請輸入運算的迄止期數", "輸入期數")
Num = "25" 'InputBox("請輸入複製的期距數範圍", "輸入距期數")
' '連續複製
' '列36
' For Each xS In Sheets(Array("準3進4", "準4進5", "準5進6", "準6進7", "準7進8"))
' Sheets("DATA").Range("A" & Nrange - Num - 2, "I" & Nrange - 2).Copy xS.Range("AU2") '複製指定的DATA!A:I範圍貼上AU2
' Next
'
' For Each xS In Sheets(Array("準4進5", "準5進6", "準6進7", "準7進8"))
' Sheets("DATA").Range("A" & Nrange - Num - 3, "I" & Nrange - 3).Copy xS.Range("BD2")
' Next
'
' For Each xS In Sheets(Array("準5進6", "準6進7", "準7進8"))
' Sheets("DATA").Range("A" & Nrange - Num - 4, "I" & Nrange - 4).Copy xS.Range("BM2")
' Next
'
' For Each xS In Sheets(Array("準6進7", "準7進8"))
' Sheets("DATA").Range("A" & Nrange - Num - 5, "I" & Nrange - 5).Copy xS.Range("BV2")
' Next
'
' For Each xS In Sheets("準7進8")
' Sheets("DATA").Range("A" & Nrange - Num - 6, "I" & Nrange - 6).Copy xS.Range("CE2")
' Next
Srr = Array("準3進4", "準4進5", "準5進6", "準6進7", "準7進8")
Prr = Array("AU2", "BD2", "BM2", "BV2", "CE2")
Nrr = Array(2, 3, 4, 5, 6)
For i = 0 To 4
For j = i To 4 '注意 已經修改過
Sheets("DATA").Range("A" & Nrange - Num - Nrr(i), "I" & Nrange - 6).Copy Sheets(Srr(j)).Range(Prr(i))
Application.Goto Sheets(Srr(j)).Range(Prr(i))
Next
Next |
|
發表於 2021-7-23 15:49
| 
