返回列表 上一主題 發帖

[發問] 請問怎麼簡化程式

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
130 
主題
8 
精華
0 
積分
143 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-8-3 
1# 跳轉到 »
發表於 2010-9-3 16:55 | 顯示全部帖子
本帖最後由 jackdream 於 2010-9-3 16:58 編輯

回復 1# john2006168

忽略最後兩行程式,因為區域重覆,請檢查您的原內容是否有誤
i = Array(3, 2, 6, 7, 8, 9, 14, 15, 15)
For j = 1 To 9
    Sheets(2).Range(Chr(64 + j) & "2:" & Chr(64 + j) & "2000") = Sheets(1).Range(Chr(64 + i(j - 1)) & "2:" & Chr(64 + i(j - 1)) & "2000").Value
Next j

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題