Excel中这个“Do Until”循环有什么问题？

我试图重复这个过程x次，但我不断收到消息“编译错误：循环没有做”

这是我的代码

Do Until x > 10 x = x + 1 For Each Row In propertytable Range("A2,B2,C2,D2,E2").Select Range("E2").Activate Selection.Copy Sheets("Copy to' sheet").Select Range("A1").Select ActiveSheet.Paste Rows("1:1").Select Application.CutCopyMode = False Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("Property table").Select Rows("2:2").Select Selection.Delete Shift:=xlUp Sheets("Copy to' sheet").Select Loop 

预先感谢您提供的任何帮助。

Answer 1

缩进代码会使Next Row的省略更加明显。

 Do Until x > 10 x = x + 1 For Each Row In propertytable Range("A2,B2,C2,D2,E2").Select Range("E2").Activate Selection.Copy Sheets("Copy to' sheet").Select Range("A1").Select ActiveSheet.Paste Rows("1:1").Select Application.CutCopyMode = False Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("Property table").Select Rows("2:2").Select Selection.Delete Shift:=xlUp Sheets("Copy to' sheet").Select 'with indent it's obvious there's something missing Next Row Loop 

我想你可能还有其他的编译错误，你会发现添加Next Row命令后。