[已解决]do loop语句异常

010203400

如下语句，删除A栏中指定行数以内的含有空白单元格的行，但总是无法结束，请高手指正。

Sub Del()
    ttlRow = InputBox("Input last line of the number of rows:")
    currentrow = 0
    Range("A1").Select
    Do
       If IsEmpty(ActiveCell.Value) Then
          Selection.EntireRow.Delete
       Else
          ActiveCell.Offset(1, 0).Activate
       End If
    currentrow = currentrow + 1
    Loop Until currentrow > ttlRow

End Sub

以上，请指教。

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2013-7-9 17:53

Loop Until currentrow > ttlRow
改成
Loop Until currentrow > Val(ttlRow)

跳转到最佳答案楼层

大灰狼1976

Loop Until currentrow > ttlRow
改成
Loop Until currentrow > Val(ttlRow)

dzbhboy

用FOR...NEXT吧

010203400

大灰狼1976 发表于 2013-7-9 17:53
Loop Until currentrow > ttlRow
改成
Loop Until currentrow > Val(ttlRow)

3Q, 现在已经OK了。