vba 删除行

Public Function ddd()
  For i = 100 To 1 Step -1
 ' For i = 1 To 100
 ' Range("c2").Value = (10 Mod 2)
' Range("b1:z111").Value = "hello"
' Rows("5:10").Delete
 Range("a" & i).Value = i
 Range("c" & i).Value = ""
 ' Range("b1:z100").Valuecc = "hello world"
     If i Mod 2 <> 0 Then
        ' Range("b" & i).Value = "单号行"
       Range(Rows(i), Rows(i)).Delete
     End If
 '  MsgBox "444"
Next
End Function