返回列表 上一主題 發帖

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

john2006168
　暱稱: jjjohn

中學生Rank: 2

帖子
181 
主題
66 
精華
0 
積分
256 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2010-5-4 
最後登錄
2025-4-3 
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
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2010-9-4 00:13 | 只看該作者
  1. Sub nn()
  2. ar = Array(1, 2, 3, 4, 5, 6, 7, 8)
  3. ay = Array(3, 2, 5, 7, 8, 9, 14, 15)
  4. For i = 0 To 7
  5. Sheet2.Columns(ar(i)).Value = Sheet1.Columns(ay(i)).Value
  6. Next
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

john2006168
　暱稱: jjjohn

中學生Rank: 2

帖子
181 
主題
66 
精華
0 
積分
256 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2010-5-4 
最後登錄
2025-4-3 
6#
發表於 2010-9-3 23:49 | 只看該作者
回復 5# john2006168


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

TOP

john2006168
　暱稱: jjjohn

中學生Rank: 2

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

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

回復 4# GBKEE


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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2010-9-3 17:28 | 只看該作者
回復 1# john2006168
是不是如此
   
  1. Sub Ex()
  2.     Dim Ar(), i%
  3.     Ar = Array("c", "b", "f", "g", "h", "i", "n", "o", "o", "r", "s")
  4.     For i = 0 To UBound(Ar)
  5.         Sheets(2).Range("A2:A2000").Offset(, i).Value = Sheets(1).Range(Ar(i) & "2:" & Ar(i) & "2000").Value
  6.     Next
  7. End Sub
複製代碼

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2026-4-21 
3#
發表於 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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2010-9-3 15:55 | 只看該作者
後面重複的3行是怎麼回事？

TOP

        靜思自在 : 真正的愛心，是照顧好自己的這顆心。
返回列表 上一主題