帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-7-13 14:44 | 只看該作者

[發問] 遞減複製標題

本帖最後由 ziv976688 於 2021-7-13 14:45 編輯

程式碼列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)

樓主熱帖

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

2^#

發表於 2021-7-13 16:33 | 只看該作者

回復 1# ziv976688

請測試看看，謝謝

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

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

3^#

發表於 2021-7-13 16:51 | 只看該作者

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

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2021-7-13 17:20 | 只看該作者

本帖最後由 singo1232001 於 2021-7-13 17:26 編輯

回復 1# ziv976688

遞減複製標題(主檔).zip (156.66 KB)

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2021-7-13 17:42 | 只看該作者

回復 1# ziv976688

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

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

遞減複製標題(主檔)創資料夾.zip (152.52 KB)

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

6^#

發表於 2021-7-13 19:16 | 只看該作者

本帖最後由 ziv976688 於 2021-7-13 19:22 編輯

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

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

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

7^#

發表於 2021-7-13 19:38 | 只看該作者

回復 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)

TOP

singo1232001