Question

您好我正在使用excel 2003，文件包含65000行，我正在尝试：

复制第1行至第3行

跳过496

复制第497至500行

跳过496

将行997复制到1000

依此类推，一直持续到65000

此外，如果有人有一个好的行计数器代码，那就太棒了！

以下是我的代码，我很难确定Worksheets副本行的语法。如果有人能帮助我弄清楚这会很棒。

谢谢！

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

Answer 1

您正在尝试构建表示范围的字符串，但您的字符串连接语法错误。它应该是

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

此外，整数数据类型只能保存-32768到32767的值。要处理65000，请使用Long

Excel：尝试循环遍历多个单元格

1 个答案: