請問怎麼簡化程式 - Excel程式區

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2010-9-3 17:28 | 顯示全部帖子

回復 1# john2006168
是不是如此

Sub Ex()
Dim Ar(), i%
Ar = Array("c", "b", "f", "g", "h", "i", "n", "o", "o", "r", "s")
For i = 0 To UBound(Ar)
Sheets(2).Range("A2:A2000").Offset(, i).Value = Sheets(1).Range(Ar(i) & "2:" & Ar(i) & "2000").Value
Next
End Sub

複製代碼

靜思自在 : 世上有兩件事不能等：一、孝順二、行善。