脚本一遍又一遍地循环 - 为什么？

Question

我是一个新手，VBA，并试图使与if语句工作的两个循环 - 按照这样的代码：

Sub Filter() 
For Count = Worksheets("STR").Range("A1").End(xlDown).Row To 1 Step -1 
    For Counter = 5 To Worksheets("Filter").Range("A5").End(xlDown).Row 
    With Worksheets("STR").Range("C" & Count) 
     If .Value Like Worksheets("Filter").Range("C" & Counter).Value _ 
      Or .Value Like Worksheets("Filter").Range("D" & Counter).Value _ 
      Or .Value Like Worksheets("Filter").Range("E" & Counter).Value _ 
      Or .Value Like Worksheets("Filter").Range("A" & Counter).Value Then 
       Worksheets("STR").Range("D" & Count) = "X" 
       'Worksheets("STR").Row("A" & Count).EntireRow.Delete 
      Next Counter 
     End If 
    End With 
Next Count 
End Sub 

在某个阶段，我想它循环一遍又一遍，直到它崩溃。调试器告诉我这是“End If”行，但我没看到有什么问题。有没有办法让这更容易？

在此先感谢！

Answer 1

四件事情

1. 缩进你的代码。这将确保您不会像@barrowc建议的那样犯错误。
2. 我建议不要使用End(xlDown)来查找最后一行。关于如何查找最后一行，请参见link。
3. 将ScreenUpdating转为False并重新设置。
4. 使用错误处理

您的代码将上述四点建议后，将这个样子。

Option Explicit 

Sub Filter() 
    Dim LastRowSTR As Long, LastRowFilter As Long 

    On Error GoTo Whoa 

    Application.ScreenUpdating = False 

    With Sheets("STR") 
     LastRowSTR = .Range("A" & .Rows.Count).End(xlUp).Row 
    End With 

    With Sheets("Filter") 
     LastRowFilter = .Range("A" & .Rows.Count).End(xlUp).Row 
    End With 

    For Count = LastRowSTR To 1 Step -1 
     For Counter = 5 To LastRowFilter 
      With Worksheets("STR").Range("C" & Count) 
       If .Value Like Worksheets("Filter").Range("C" & Counter).Value _ 
       Or .Value Like Worksheets("Filter").Range("D" & Counter).Value _ 
       Or .Value Like Worksheets("Filter").Range("E" & Counter).Value _ 
       Or .Value Like Worksheets("Filter").Range("A" & Counter).Value Then 
        Worksheets("STR").Range("D" & Count) = "X" 
        'Worksheets("STR").Row("A" & Count).EntireRow.Delete 
       End If 
      End With 
     Next Counter 
    Next Count 
LetsContinue: 
    Application.ScreenUpdating = True 
    Exit Sub 
Whoa: 
    MsgBox Err.Description 
    Resume LetsContinue 
End Sub 

INTERESTING READ。

TOPIC：为了 '犯错' 是人类

LINK：http://siddharthrout.wordpress.com/2011/08/01/to-err-is-human/