標題:
[發問]
請問怎麼簡化程式
[打印本頁]
作者:
john2006168
時間:
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("D2
2000").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
作者:
oobird
時間:
2010-9-3 15:55
後面重複的3行是怎麼回事？
作者:
jackdream
時間:
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
作者:
GBKEE
時間:
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
複製代碼
作者:
john2006168
時間:
2010-9-3 23:14
本帖最後由 john2006168 於 2010-9-3 23:17 編輯
回復
4#
GBKEE
sorry ,後面3個不用理會,而且不用理會是否固定到第2000格
作者:
john2006168
時間:
2010-9-3 23:49
回復
5#
john2006168
明白.我是想把sheet1的部份Column copy到sheet2..
作者:
Hsieh
時間:
2010-9-4 00:13
Sub nn()
ar = Array(1, 2, 3, 4, 5, 6, 7, 8)
ay = Array(3, 2, 5, 7, 8, 9, 14, 15)
For i = 0 To 7
Sheet2.Columns(ar(i)).Value = Sheet1.Columns(ay(i)).Value
Next
End Sub
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
2000").Value = Sheets(1).Range("G2:G2000").Value