循环帮助和转到

Question

我有 3 个工作表。前两个让我转换成两个数组（array1 和array2），然后在它们之间进行计算以创建第三个。

我创建的宏利用了这段代码---

Z = 1

For x = 1 To UBound(array1, 1)
    For y = 1 To UBound(array2, 1)
        If array1(x, 4) = 0 Then
            GoTo Line1
        End If
        If array1(x, 1) = array2(y, 1) And array1(x, 2) = array2(y, 3)Then
            If array1(x, 4) > array2(y, 5) Then
                array3(z, 1) = array1(x, 3)
            ElseIf array1(x, 4) = array2(y, 5) Or array1(x, 4) < array2(y, 5) Then
                array3(z, 1) = array1(x, 3)
            End If
            z = z + 1
        End If
    Next y
Line1:
Next x

它需要一段array1 并通过array2 循环它并在array3 中创建一个结果

基本上当array1(x, 4) = 0 时，我需要它转到下一个X。如果没有GoTo Line1，我无法弄清楚如何循环这个。

如果我将它向下移动，那么它将继续循环通过array2(y)，而不是移动到下一个X。如果我将它移到上面，那么 y 会重置并再次运行 For y 循环

还在使用GoTo Line X，这是 VBA 中的不良做法。我是否应该总是尽量避免使用它。我对它还很陌生。

Answer 1

编写依赖于GoTo 的代码被广泛认为是不好的风格。

VB(A) 有一些内置结构，用于其需要GoTo 的错误处理方式。这些是不可避免的。应该避免所有其他的。

在这种情况下，这相当容易，您可以用Exit For 打破For 循环：

Z = 1

For x = 1 To UBound(array1, 1)
    For y = 1 To UBound(array2, 1)
        If array1(x, 4) = 0 Then Exit For
        If And array1(x, 1) = array2(y, 1) And array1(x, 2) = array2(y, 3) Then
            If array1(x, 4) > array2(y, 5) Then
                array3(z, 1) = array1(x, 3)
            ElseIf array1(x, 4) = array2(y, 5) Or array1(x, 4) < array2(y, 5) Then
                array3(z, 1) = array1(x, 3)
            End If
            z = z + 1            
        End If
    Next y
Next x

替代（多一层嵌套）：

For x = 1 To UBound(array1, 1)
    If array1(x, 4) <> 0 Then
        For y = 1 To UBound(array2, 1)
            If And array1(x, 1) = array2(y, 1) And array1(x, 2) = array2(y, 3) Then
                If array1(x, 4) > array2(y, 5) Then
                    array3(z, 1) = array1(x, 3)
                ElseIf array1(x, 4) = array2(y, 5) Or array1(x, 4) < array2(y, 5) Then
                    array3(z, 1) = array1(x, 3)
                End If
                z = z + 1            
            End If
        End If
    Next y
Next x