返回列表 上一主題 發帖

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

john2006168
　暱稱: jjjohn

中學生Rank: 2

帖子
178 
主題
65 
精華
0 
積分
252 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2010-5-4 
最後登錄
2024-2-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-9-3 15:45 | 顯示全部帖子

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

本帖最後由 john2006168 於 2010-9-3 23:42 編輯

Hi all,help
Sheets(2).Range("A2:A2000").Value = Sheets(1).Range("c2:c2000").Value
Sheets(2).Range("B2:B2000").Value = Sheets(1).Range("B2:B2000").Value
Sheets(2).Range("C2:C2000").Value = Sheets(1).Range("F2:F2000").Value
Sheets(2).Range("D22000").Value = Sheets(1).Range("G2:G2000").Value
Sheets(2).Range("E2:E2000").Value = Sheets(1).Range("H2:H2000").Value
Sheets(2).Range("F2:F2000").Value = Sheets(1).Range("I2:I2000").Value
Sheets(2).Range("G2:G2000").Value = Sheets(1).Range("N2:N2000").Value
Sheets(2).Range("H2:H2000").Value = Sheets(1).Range("O2:O2000").Value
收藏 分享

john2006168
　暱稱: jjjohn

中學生Rank: 2

帖子
178 
主題
65 
精華
0 
積分
252 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2010-5-4 
最後登錄
2024-2-1 
2#
發表於 2010-9-3 23:14 | 顯示全部帖子
[版主管理留言]
  • Hsieh(2010-9-3 23:38): 你要的簡化就是依照你代碼內容簡化，請詳述需求不要惜字如金

本帖最後由 john2006168 於 2010-9-3 23:17 編輯

回復 4# GBKEE


    sorry ,後面3個不用理會,而且不用理會是否固定到第2000格

TOP

john2006168
　暱稱: jjjohn

中學生Rank: 2

帖子
178 
主題
65 
精華
0 
積分
252 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2010-5-4 
最後登錄
2024-2-1 
3#
發表於 2010-9-3 23:49 | 顯示全部帖子
回復 5# john2006168


    明白.我是想把sheet1的部份Column copy到sheet2..

TOP

        靜思自在 : 為人處世要小心細心，但不要「小心眼」。
返回列表 上一主題