Excel中：試圖遍歷

-2

嗨，我用Excel 2003由65000行的文件，我想細胞的數量：Excel中：試圖遍歷

複印1到3行

跳過496

副本行497至500

跳過496

個

副本行997到1000

等，繼續下去，直到65000

而且如果任何人有一個良好的行計數器代碼，這將是偉大的！

以下是我的代碼，我很難弄清楚Worksheet複製行的語法。如果任何人都可以幫我弄清楚，那會很棒。

謝謝！

Sub RowCopy() 

Dim i As Integer 

Dim o As Integer 


i = 1 

o = 3 

While o < 65000 'RowCount 

**Worksheets("Sheet1").Range("A" & i :"H" & o).Copy Destination:=Worksheets("Sheet5").Range("A"&i:"H"&o)** 

i = i + 495 

o = o + 496 

End 



End Sub

來源

2014-10-31 A S

把：在報價 – 2014-10-31 19:55:57

你是什麼意思？（「A」和「I」：「」H「＆o）。複製目的地：=工作表（」Sheet5「）。範圍（」A「和我」：「」H「＆o）仍然有一個錯誤 – 2014-10-31 19:57:20

像[這個答案]（http://stackoverflow.com/questions/13246885/excel-vba-how-to-copy-the-value-of-multiple-non-contiguous-範圍 - 進入 - 一個陣列）？ – 2014-10-31 19:57:30

您試圖構建一個表示範圍的字符串，但是您的字符串連接語法是錯誤的。它應該是

Range("A" & i & ":H" & o)

另外，整數數據類型只能保存值-32768到32767。爲了應付65000，使用長

來源

2014-10-31 20:05:28

Excel中：試圖遍歷

回答

相關問題