VBA运行时错误13

我创build了一个简单的代码，但它不断出现运行时错误13.有谁知道这是为什么发生？

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

Answer 1

x是一个variables，因此您需要将它连接到rows语句中，或者使用文本字符“x”：

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