该如何避免该案例的无限循环（当使用For语句删除行）

lgfromch

最近在学vba 遇到了一个问题 恳请高手相助
要求是使得sheet1的A列上的这些单元格，如果不是以“327”开头的，删除该行整行，因此采用了left函数。但是在循环过程中，由于循环的下一行随着当前行的删除而行号变得比删除之前的少一，因此不得不将循环的i减少1（即 i=i-1）来保证每一行的遍历。但是这里产生了一个问题，即由于在usedrange之后的A列单元格都是空白的，导致循环无限进行。想请教一下，除了timer之外，一般应当采取什么样的方法来退出该循环呢？
个人编写代码如下

Sub test()

nrow = [A65536].End(xlUp).Row
For i = 1 To nrow
    If Left(Cells(i, 1).Value, 3) <> "327" Then
        Rows(i).Delete
        i = i - 1
        nrow = nrow - 1
    End If
Next

End Sub

ww87725244

删除行问题一般是倒序循环
For i =  nrow to 1 step -1

maditate

楼主的条件是  If Left(Cells(i, 1).Value, 3) <> "327" Then ，事实上空单元格也是符合此条件的，由此就引出了无限循环之说。通常删除行列之类的应该用倒序列的方法处理。

如果非要用正序，改进的方法是再增加条件。
Sub test()

nrow = [A65536].End(xlUp).Row
For i = 1 To nrow
    If Left(Cells(i, 1).Value, 3) <> "327" And Cells(i, 1) <> Empty Then
        Rows(i).Delete
        i = i - 1
        nrow = nrow - 1
    End If
Next

End Sub

lgfromch

maditate 发表于 2018-4-4 18:14
楼主的条件是  If Left(Cells(i, 1).Value, 3)  "327" Then ，事实上空单元格也是符合此条件的，由此就引出 ...

感谢回复
原案例的话 空单元格的行也是需要删除的 因此增加的这个条件可能无法使用
倒序的话，是直接使用 i = nrow To 1 这个条件么？

maditate

lgfromch 发表于 2018-4-4 18:38
感谢回复
原案例的话 空单元格的行也是需要删除的 因此增加的这个条件可能无法使用
倒序的话，是直接使 ...

for 语句的标准格式是   for  变量  = 起始  到  终点  ，步长 。例 从 1 到 10 ，每隔 1 进位。步长就是1 ，写成标准式就是  for  H =1 to 10 step 1，通常步长为 1 时可以省略。
如果倒序的话，那就要写成  for  h= 10 to 1  step -1。千万别忘了，步长。  

lgfromch

maditate 发表于 2018-4-4 18:45
for 语句的标准格式是   for  变量  = 起始  到  终点  ，步长 。例 从 1 到 10 ，每隔 1 进位。步长就是 ...

非常感谢！我再试试用倒序研究研究

lsc900707

数据少的话，用普通的方法：

1. Sub test()
   
2.     nrow = [A65536].End(xlUp).Row
   
3.     For i = nrow To 1 Step -1
   
4.         If Left(Cells(i, 1), 3) <> "327" Then
   
5.             Rows(i).Delete
   
6.         End If
   
7.     Next
   
8. End Sub
   

复制代码

lsc900707

数据多的话用数组的方法：

1. Sub test2()
   
2.     nrow = [A65536].End(xlUp).Row
   
3.     arr = Range("a1:a" & nrow)
   
4.     ReDim brr(1 To UBound(arr), 1 To 1)
   
5.     For i = 1 To UBound(arr)
   
6.         If Left(arr(i, 1), 3) = "327" Then
   
7.             m = m + 1
   
8.             brr(m, 1) = arr(i, 1)
   
9.         End If
   
10.     Next
    
11.     Range("a1:a" & nrow) = ""
    
12.     [a1].Resize(m, 1) = brr
    
13. End Sub
    

复制代码

lgfromch

lsc900707 发表于 2018-4-4 22:40
数据多的话用数组的方法：

非常感谢！