如何在for循环中跳过＃N/A，同时保持原样并继续？

Question

我正在通过我的代码运行此循环，但列AV中的某些单元格存在＃N/A并且出现错误。剩下的就是我想要的，但是如果它碰到＃N/A就停止。我发现有些东西像IFERROR和ISNA一样使用，但我无法弄清楚如何将它放入我的代码中。我只想忽略＃N/A并移到下一行，同时将＃N/A留在原来的位置。我只是想跳过它并继续执行代码。我将如何能够做到这一点呢？

Dim lngRow As Long 
Dim lngRows As Long 
'Find the last row in Column A 
lngRows = Range("A" & Rows.Count).End(xlUp).Row 

For lngRow = lngRows To 2 Step -1 

     If (LCase(ActiveWorkbook.Worksheets("SAP to ADP").Cells(lngRow, "AV").Value) = "lu" _ 
      Or LCase(ActiveWorkbook.Worksheets("SAP to ADP").Cells(lngRow, "AV").Value) = "st" _ 
      Or LCase(ActiveWorkbook.Worksheets("SAP to ADP").Cells(lngRow, "AV").Value) = "so") _ 
      And LCase(ActiveWorkbook.Worksheets("SAP to ADP").Cells(lngRow, "AU").Value) = "union" Then 
      ActiveWorkbook.Worksheets("SAP to ADP").Cells(lngRow, "AW").Value = "MATCH" 

     End If 

Next 

感谢您提前提供所有帮助！

Answer 1

我建议使用一个错误处理程序。如果发生错误，On Error Goto语句指示Excel跳转到不同的代码行。使用它最简单的形式是：

Dim lngRow As Long 
Dim lngRows As Long 
Dim s as String 

With ActiveWorkbook.Worksheets("SAP to ADP") 
    'Find the last row in Column A 
    lngRows = .Range("A" & .Rows.Count).End(xlUp).Row 
    On Error Resume Next    
    For lngRow = lngRows To 2 Step -1 
     s = "" 
     s = LCase(.Cells(lngRow, "AV").Value) 
     If (s = "lu" Or s = "st" Or s = "so") _ 
     And LCase(.Cells(lngRow, "AU").Value) = "union" Then 
      .Cells(lngRow, "AW").Value = "MATCH" 
     End If 
    Next lngRow 
    On Error Goto 0 
End With 

您的代码还有其他更改。首先，每次引用ActiveWorkbook.Worksheets("SAP to ADP")时都不需要引用，因此可以在With块中使用它。其次，在计算最后一行时出现了一个小错误。 range未被明确引用，因为该表可能是宏运行时活动的任何表单。 With块现在就处理这个问题。
最后，如果多次使用中间值并存储函数调用会更经济。它使代码更具可读性。
编辑：
A On Error Goto语句激活错误处理例程。如果我们在这里使用它，第二个运行时错误不会被忽略。相反，使用On Error Resume Next只是跳过下一个可能的违规行。所有＃N/A字段现在被忽略。

Answer 2

添加一个测试错误：

Dim lngRow As Long 
Dim lngRows As Long 
'Find the last row in Column A 
lngRows = Range("A" & Rows.Count).End(xlUp).Row 

For lngRow = lngRows To 2 Step -1 
    IF Not IsError(ActiveWorkbook.Worksheets("SAP to ADP").Cells(lngRow, "AV") Then 

     If (LCase(ActiveWorkbook.Worksheets("SAP to ADP").Cells(lngRow, "AV").Value) = "lu" _ 
      Or LCase(ActiveWorkbook.Worksheets("SAP to ADP").Cells(lngRow, "AV").Value) = "st" _ 
      Or LCase(ActiveWorkbook.Worksheets("SAP to ADP").Cells(lngRow, "AV").Value) = "so") _ 
      And LCase(ActiveWorkbook.Worksheets("SAP to ADP").Cells(lngRow, "AU").Value) = "union" Then 
      ActiveWorkbook.Worksheets("SAP to ADP").Cells(lngRow, "AW").Value = "MATCH" 

     End If 
    End If 
Next