返回列表 上一主題 發帖

[發問] 遞減複製標題

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
1# 跳轉到 »
發表於 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

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
2#
發表於 2021-7-13 21:20 | 顯示全部帖子
回復 7# ziv976688

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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
3#
發表於 2021-7-14 08:04 | 顯示全部帖子
回復 11# ziv976688


Sheets(Array("準7進8", "準6進7", "準5進6", "準4進5", "準3進4", "準2進3")).Select
這段語法正確嗎? --> 正確

為什麼包括"準1進2"也會 將Sheets("DATA").Range("A" & StrRng - 1, "I" & mthcount - 1).Copy 到.Range("AL2").Resize(1, mthcount - StrRng + 1)? --> 不可能因為上面那段而影響"準1準2"，一定是其它的地方導致

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題