vba: 把行号i存放在一维数组中,根据行号对一位数组进行循环并删除行号所在行 vba: 把行号i存放在一

在EXCEL中
'下列程序执行后将删除1，3行
Private Sub CommandButton1_Click()
Dim a(10) As Integer
a(1) = 1 '存入要删出的行号
a(2) = 3 '存入要删出的行号

For i = 1 To 10
If a(i) > 1 And a(i) < 30000 Then
me.Rows(a(i)).Delete
End If
Next

End Sub

没明白啥意思