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中：试图遍历

回答

相关问题