按条件删除单元格：代码不起作用

Question

我不知道这是什么问题，当我执行此代码时，它不起作用。

当我执行代码时，什么也没发生：

Sub dltcls()

Dim i As Long
Dim lRow As Long
Dim j As Long
Dim s As Long


lRow = Cells(Rows.Count, 1).End(xlUp).Row
s = lRow / 10

For i = 1 To lRow Step 10
For j = 0 To s

If i / 10 = j Then Cells(i + j, 1).Delete

Next j
Next i

End Sub

这就是我想做的：

对于i = 1到N的第10步

如果我div 10 = 0，则删除单元格1

如果i div 10 = 1，则删除单元格i + 1

如果i div 10 = 2，则删除单元格i + 2

如果i div 10 = 3，则删除单元格i + 3

如果i div 10 = 4，则删除单元格i + 4

如果i div 10 = 5，则删除单元格i + 5

如果i div 10 = 6，则删除单元格i + 6

如果i div 10 = 7，则删除单元格i + 7

如果i div 10 = 8，则删除单元格i + 8

如果i div 10 = 9，则删除单元格i + 9

如果i div 10 = 10，则删除单元格i + 10 。 。 。

等....

任何人都可以帮我吗？

谢谢。