[已解决]如何避免死循环

fengdavid

如题

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-9-23 19:03

Sub 清除空行()
    For m = 100 To 2  step -1
      If Cells(m, 1) = "" Then
        Rows(m).Delete
      End If
    Next
   
End Sub

跳转到最佳答案楼层

我心飞翔410

Sub 清除空行()
    For m = 100 To 2  step -1
      If Cells(m, 1) = "" Then
        Rows(m).Delete
      End If
    Next
   
End Sub

fengdavid

我心飞翔410 发表于 2013-9-23 19:03
Sub 清除空行()
    For m = 100 To 2
      If Cells(m, 1) = "" Then

不对吧

as0810114

2楼正解。

xdragon

1. Sub 清除空行()
   
2.     For m = 2 To Range("A65535").End(3).Row
   
3.       If Cells(m, 1) = "" Then
   
4.         Rows(m).Delete
   
5.         m = m - 1
   
6.       End If
   
7.       If m = Range("A65535").End(3).Row Then Exit Sub
   
8.     Next
   
9. End Sub

复制代码

如果你非要从上往下删行，请用这个哈，另外，你这个不是删除空行吧？只是删除A列为空的行。。。

接上清宫主的提醒，改了下{:28:}

fengdavid

我心飞翔410 发表于 2013-9-23 19:03
Sub 清除空行()
    For m = 100 To 2  step -1
      If Cells(m, 1) = "" Then

从下往上，好主意，效果完全不同