VBA：如何在嵌套循环中跳过包含不包含“A”的行？

Question

我对 VBA 比较陌生。

我有 2 个文件：(1) 主文件 (2) 月度统计文件。我正在尝试遍历主文件中的一列，以查看它是否与月度文件相对应。如果匹配，则从主文件中提取名称。但是，该列中有很多 N/A 输入，我只想遍历以字符串“A”开头的行。因为我已经有一个嵌套循环，所以我不能输入另一个 Next A。这是我的代码：

Sub SummaryData()

Dim CustCode As String
Dim CustName As String
Dim wkb As Workbook
Dim Count As Integer

Workbooks.Open Filename:=Sh_Source.Range("HKS").Value

Set wkb = Workbooks("DataHK.xlsx")

For A = 2 To Sh_Main.Range("E" & Rows.Count).End(xlUp).Row
        
    If Left(Range("E" & A).Value, 1) = "A" Then
    CustCode = Sh_Main.Range("E" & A).Value
    
    Else
    'Not sure what to put'
    
    Count = 0
    CustName = ""
        
        For b = 2 To wkb.Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row
                
            X = wkb.Sheets("Data").Range("C" & b).Value
                
            If CustCode = X Then
                CustName = Sh_Main.Range("F" & A).Value
                Count = Count + 1
            
            Else
            End If
            Next b
      
     Sh_Body.Range("A" & A).Value = CustCode
     Sh_Body.Range("B" & A).Value = CustName
     Sh_Body.Range("C" & A).Value = Count
     
Next A

wkb.Close savechanges:=False

End Sub

非常感谢任何帮助，因为我是新手，谢谢！

Answer 1

如果您只想跳过当前循环迭代的其余部分，您可以使用goto。我知道人们不喜欢它，但它比其他解决方案更简单。在这种情况下，将skip: 放在Next A 行的正上方，然后在您的else 条件中将goto skip 放在您有“不确定要放什么”的位置，然后关闭您的if 语句，如下所示：

    If Left(Range("E" & A).Value, 1) = "A" Then
        CustCode = Sh_Main.Range("E" & A).Value
    Else
        Goto skip
    End if

这样整个代码就是

Sub SummaryData()

Dim CustCode As String
Dim CustName As String
Dim wkb As Workbook
Dim Count As Integer

Workbooks.Open Filename:=Sh_Source.Range("HKS").Value

Set wkb = Workbooks("DataHK.xlsx")

For A = 2 To Sh_Main.Range("E" & Rows.Count).End(xlUp).Row
        
    If Left(Range("E" & A).Value, 1) = "A" Then
        CustCode = Sh_Main.Range("E" & A).Value
    Else
        Goto skip
    End If
    
    Count = 0
    CustName = ""
        
        For b = 2 To wkb.Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row
                
            X = wkb.Sheets("Data").Range("C" & b).Value
                
            If CustCode = X Then
                CustName = Sh_Main.Range("F" & A).Value
                Count = Count + 1
            
            Else
            End If
            Next b
      
     Sh_Body.Range("A" & A).Value = CustCode
     Sh_Body.Range("B" & A).Value = CustName
     Sh_Body.Range("C" & A).Value = Count
     
     skip:
     
Next A

wkb.Close savechanges:=False

End Sub

通常人们避免使用 goto（出于一些好的原因和一些不好的原因），但我确实认为它很有用，而且我认为它本质上并不坏。但是，在您的情况下，大多数人会将整个块放在 if 语句中，如下所示：

Sub SummaryData()

Dim CustCode As String
Dim CustName As String
Dim wkb As Workbook
Dim Count As Integer

Workbooks.Open Filename:=Sh_Source.Range("HKS").Value
Set wkb = Workbooks("DataHK.xlsx")

For A = 2 To Sh_Main.Range("E" & Rows.Count).End(xlUp).Row
        
    If Left(Range("E" & A).Value, 1) = "A" Then
    
        CustCode = Sh_Main.Range("E" & A).Value
        Count = 0
        CustName = ""
        
        For b = 2 To wkb.Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row
                
            X = wkb.Sheets("Data").Range("C" & b).Value
                
            If CustCode = X Then
                CustName = Sh_Main.Range("F" & A).Value
                Count = Count + 1
            End If
            
            Next b
      
     Sh_Body.Range("A" & A).Value = CustCode
     Sh_Body.Range("B" & A).Value = CustName
     Sh_Body.Range("C" & A).Value = Count
     
    End If
     
Next A

wkb.Close savechanges:=False

End Sub

然后 if 块中的代码只有在满足条件时才会执行，并且不需要尝试跳过 for 循环的其余部分。

我会注意到您的某些变量似乎*没有引用任何内容，尤其是工作表？变量：Sh_Source、Sh_Main 和 Sh_Body。如果不提供这些参考，此代码将失败。

• 它们可能是在您提供的子目录之外定义的