Question

vba高手看一下，我这段代码为什么会一直运行到数据溢出！而不是到了400就停了！

Sub 复制上一行不烦你到下一行()
Dim xwx%
xwx = 2
Do Until xwx = 400
Sheet1.Range("g" & xwx & ":m" & xwx).Select
Selection.Copy
Range("A" & xwx + 2).Select
ActiveSheet.Paste
xwx = xwx + 3
Loop
End Sub

Answer 1

楼上说得对，=400改成＞400

Answer 2

达不到＝400的条件

Answer 3

初始值改为 xwx = 1

Answer 4

DO UNTIL xwx>400