我想达到的目的是，
在results 页面的A列中， 如果哪个单元格的数值为0，那么就选中这个单元格所在的行，
最后再把所有选中的行，一次性删除，以下代码出错了，
报错的语句是 Worksheets("Results").Raws(X).Select
请帮忙看一下，怎么改写，或者还有没有更为简便的方法，谢谢
Dim X As Integer, Cell As Range
X = 1
For Each Cell In Worksheets("Results").Range("A:A")
If Worksheets("Results").Range("A" & X).Value = 0 Then
Worksheets("Results").Raws(X).Select
X = X + 1
Else
X = X + 1
End If
Next
在results 页面的A列中， 如果哪个单元格的数值为0，那么就选中这个单元格所在的行，
最后再把所有选中的行，一次性删除，以下代码出错了，
报错的语句是 Worksheets("Results").Raws(X).Select
请帮忙看一下，怎么改写，或者还有没有更为简便的方法，谢谢
Dim X As Integer, Cell As Range
X = 1
For Each Cell In Worksheets("Results").Range("A:A")
If Worksheets("Results").Range("A" & X).Value = 0 Then
Worksheets("Results").Raws(X).Select
X = X + 1
Else
X = X + 1
End If
Next
