[已解决]请教循环代码

yl001

ykfexcel 发表于 2012-5-27 20:51
兰老师的好象差了一个循环，运行不了

Sub 插入行1()

谢谢老师的热心回答
运行时出现错误“类型不匹配”

jiangbo0505

不错，学学了，实用

zaalex

Sub test()
Dim i As Integer
irow = Range("a65536").End(xlUp).Row
For j = irow To 1 Step -1
    If Range("a" & j) = "" Then
    Range("a" & j).EntireRow.Delete
    End If
Next

For i = 17 To 1 Step -1
    For j = 1 To Range("a" & i) / 10
        Range("a" & i + 1).Insert
    Next
Next
End Sub