如何在Excel工作表中输入固定数量的条目

Question

我在sheet1上有1,500条记录，我正在尝试：

1. 在sheet2上只输入500个条目，
2. 如果超过500个条目，则值必须自动跳转到sheet3
3. 如果sheet3超过500个条目，则必须移至sheet4。

所有这一切都可以使用VBA完成。

我该如何解决这个问题？

Answer 1

请试试这个代码。它不是optymalizing，但在这种情况下没有必要：

Sub copyer()
counter = 1
For i = 1 To 500 Step 1
    Range("A" & i).copy
Sheets("Sheet2").Range("A" & counter).PasteSpecial xlPasteValues
counter = counter + 1
Next i

counter = 1
For i = 501 To 1000 Step 1
    Range("A" & i).copy
Sheets("Sheet3").Range("A" & counter).PasteSpecial xlPasteValues
counter = counter + 1
Next i

counter = 1
For i = 1000 To 1500 Step 1
    Range("A" & i).copy
Sheets("Sheet4").Range("A" & counter).PasteSpecial xlPasteValues
counter = counter + 1
Next i

End Sub