“这有什么问题？”；直到；在Excel中循环？

我试图重复这个过程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   

---

提前感谢您可能提供的任何帮助。

缩进代码会使下一行的

省略更加明显

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

我认为在添加
下一行
命令后，您可能会发现其中存在一些其他编译错误。
在
循环
之前，您缺少一个
下一行
，我建议您安装该实用程序。它会自动为您缩进代码。这样更容易发现这样的错误。谢谢我会调查的。谢谢你的帮助。我在编译它时遇到了一些麻烦。我会继续努力的。