[發問] 遞減複製標題

ziv976688

程式碼列98
'Sheets("DATA").Range("A1:I1").Copy .Range("B1").Resize(1, 90)
是將DATA! A1:I1的標題複製到各工作表的B1:CM1
如果是想將DATA! A1:I1複製到各工作表的次數，各依序遞減1次；；
即"準7進8"的範圍是.Range("B1").Resize(1, 90)；"準6進7"的範圍是.Range("B1").Resize(1,81)；….....；
"準2進3"的範圍是.Range("B1").Resize(1, 45) ；"準1進2"的範圍是.Range("B1").Resize(1,36)
請問：程式碼應如何編寫？
謝謝！
2021-0713 - 遞減複製標題.rar (48.74 KB)

下載次數: 3

2021-7-13 14:44

samwang

回復 1# ziv976688

請測試看看，謝謝

n = 90
For I = 1 To 7
    ...
    ...
    Sheets("DATA").Range("A1:I1").Copy .Range("B1").Resize(1, n)
    n = n - 9

ziv976688

回復 2# samwang
OK了!
謝謝指導

singo1232001

回復 1# ziv976688

singo1232001

回復 1# ziv976688


    這個檔案 會在同個路徑上 依照期數創 資料夾

檔案如上個檔案 同個資料夾內 期數 一樣會產生序號

ziv976688

回復 5# singo1232001
萬分感謝您再重新編寫程式~
只是1個資料夾只放1個效果檔，有一點不方便^^"
晚上我會仔細研究貴語法~感恩^^

PS : 原主檔的程式碼已可將StrRng和 Nrange填入的多個期數之效果檔，各以名稱別存入資料夾內。

ziv976688

回復 2# samwang
不好意思，能否再請您修正陣列的程式碼？謝謝您！

程式碼列115~列124
'        Sheets(Array("準7進8", "準6進7", "準5進6", "準4進5", "準3進4", "準2進3")).Select
'        Sheets("DATA").Range("A" & StrRng - 1, "I" & mthcount - 1).Copy .Range("AL2").Resize(1, mthcount - StrRng + 1)
'        Sheets(Array("準7進8", "準6進7", "準5進6", "準4進5", "準3進4")).Select
'        Sheets("DATA").Range("A" & StrRng - 2, "I" & mthcount - 2).Copy .Range("AU2").Resize(1, mthcount - StrRng + 1)
'        Sheets(Array("準7進8", "準6進7", "準5進6", "準4進5")).Select
'        Sheets("DATA").Range("A" & StrRng - 3, "I" & mthcount - 3).Copy .Range("BD2").Resize(1, mthcount - StrRng + 1)
'        Sheets(Array("準7進8", "準6進7", "準5進6")).Select
'        Sheets("DATA").Range("A" & StrRng - 4, "I" & mthcount - 4).Copy .Range("BM2").Resize(1, mthcount - StrRng + 1)
'        Sheets(Array("準7進8", "準6進7")).Select
'        Sheets("DATA").Range("A" & StrRng - 5, "I" & mthcount - 5).Copy .Range("BV2").Resize(1, mthcount - StrRng + 1)
以上的程式碼還是會將全部的資料內容列出
請問：正確的程式碼應如何編寫？
謝謝您！
2021-0713 - 複製指定資料內容.rar (61.24 KB)

下載次數: 2

2021-7-13 19:37

singo1232001

回復 6# ziv976688


    #4 第一篇的兩個檔案 只會放在與主檔相同資料夾同一層
    #5 第二篇的兩個檔案 才會新創資料夾 放到下一層資料夾
   總共為4個版本  創檔xlsx與xls    vs   創或不創資料夾

ziv976688

回復 8# singo1232001
我知道，二個壓縮檔也都下載了，所以說晚上要研究和學習貴語法。
再次謝謝您!感恩:D
PS : 對VBA我還很"菜"，必須花時間消化~請見諒!謝謝您!

samwang

回復 7# ziv976688

不好意思，看你的那程式碼太複雜，不知如何修改，看其他的大大有無好的解法，謝謝