excel VBA语句无法执行

Question

Sub nihao()
Dim rng As Range
For Each rng In [a1:a9]
If rng = "" Then Range(rng).EntireRow.Delete
Next
End Sub

初学者想问下，这个语法出了什么问题？为什么无法运行。怎么改呢？

Answer 1

Sub nihao()
Dim rng As Range
For Each rng In [a1:a9]
If rng = "" Then rng.EntireRow.Delete
Next
End Sub