VBA运行时错误13

Question

我创建了一个简单的代码，但它一直出现运行时错误13.有没有人知道为什么会这样？

Dim x As Integer
x = ActiveSheet.Range("ALL_PROJECTS").row
Rows("x:1048576").EntireRow.Delete
Range("A3").ClearContents
End If

Answer 1

x是一个变量，所以你需要将它连接到rows语句，或者你使用文字文本“x”：

Rows(x & ":1048576").EntireRow.Delete