遞減複製標題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 遞減複製標題

返回列表下一主題上一主題發帖

[發問] 遞減複製標題

　暱稱: 熱狗慶

中學生 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)

高中生 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了!
謝謝指導

大學生 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

靜思自在 : 口說好話、心想好意、身行好事。

返回列表下一主題上一主題