Vba 每隔一行删除一行

我想编写一个循环，删除工作表中的整行以清理文件。如果我有第1到10行，我想删除第1、3、5、7、9行

Sub deleteeveryotherrow()
 For x = 1 To 10

     Rows("x:x").Select
        Selection.Delete Shift:=xlUp
        x = x + 2
        Next x

    End Sub

“x:x”

只是一个文本字符串，因此无法按预期工作

使用

行（x&“：”&x）。选择

您还应该考虑将循环从10到1运行：
对于x=9到1步骤-2

否则你会把索引搞得一团糟。然后您就可以删除该行
x=x+2

Sub deleteeveryotherrow()

For x = 1 To 100 Step 1

 Rows(x & ":" & x).Select
    Selection.Delete Shift:=xlUp

    Next x

End Sub

这很好地工作了
也许
对于x=9到1的步骤-2
…？哎呀。我们将联合出版！