我完全懂你的困扰——用GoTo虽然能凑合用，但总觉得代码不够规整，调整结构后又不小心陷入继续遍历内层循环的坑。其实核心思路很简单：把内层循环的执行逻辑整个包裹在条件判断里，这样当array1(x, 4) = 0时，直接跳过整个内层循环块，自动进入下一个x的迭代，完全不需要依赖GoTo。

优化后的代码结构 #

先还原一下你带GoTo的原代码逻辑：

Dim x As Long, y As Long
Dim array1 As Variant, array2 As Variant, array3 As Variant

' 假设这里已经完成array1、array2的初始化
' ...

ReDim array3(UBound(array1, 1) To LBound(array1, 1), UBound(array2, 1) To LBound(array2, 1)) ' 按需调整维度

For x = LBound(array1, 1) To UBound(array1, 1)
    If array1(x, 4) = 0 Then
        GoTo Line1 ' 原来的跳转语句
    End If
    
    For y = LBound(array2, 1) To UBound(array2, 1)
        ' 这里是生成array3的计算逻辑
        array3(x, y) = array1(x, 1) * array2(y, 2) ' 示例计算，替换成你的实际代码
    Next y
Line1:
Next x

我们可以改成条件包裹内层循环的写法，彻底去掉GoTo：

Dim x As Long, y As Long
Dim array1 As Variant, array2 As Variant, array3 As Variant

' 初始化array1、array2的代码保持不变
' ...

ReDim array3(UBound(array1, 1) To LBound(array1, 1), UBound(array2, 1) To LBound(array2, 1))

For x = LBound(array1, 1) To UBound(array1, 1)
    ' 只有当array1(x,4)不等于0时，才执行内层的array2遍历
    If array1(x, 4) <> 0 Then
        For y = LBound(array2, 1) To UBound(array2, 1)
            ' 你的array3生成逻辑
            array3(x, y) = array1(x, 1) * array2(y, 2)
        Next y
    End If
    ' 如果array1(x,4)=0，直接跳过上面的内层循环，进入下一个x
Next x

为什么这个写法能解决问题？ #

你之前调整代码后出错，大概率是把条件判断放在了内层循环里面，导致只是跳过当前y的迭代，而非整个x对应的内层循环。现在把内层循环完全放在If array1(x,4) <> 0的代码块内，当条件不满足时，整个内层循环都不会执行，直接进入下一个x的循环，完美匹配你想要的逻辑。

这种写法不仅避免了GoTo带来的代码跳转混乱，还让逻辑更直观，后续维护起来也更省心。

内容的提问来源于stack exchange，提问作者UserX