Excel VBA循环代码不工作

此代码不适用于循环。我不明白为什么。我知道这很简单，但看不见。电子表格名称是正确的。当我运行它时，它可以工作，但每次都要调试

Sub Button1_Click()

    Dim X As Integer
    Dim Y As Integer
    Dim Z As Integer
    Dim Count As Integer

    X = 17
    Y = 2
    Z = 1
    Count = 4560

    Do While Z < Count
        If Sheets("Ind").Range("A" & X) = 1 Then
            Sheets("Returns").Range("A" & Y) = Sheets("Ind").Range("D" & X)
            Sheets("Returns").Range("B" & Y) = "Buy"
            Y = Y + 1
        ElseIf Sheets("Ind").Range("C" & X) = 2 Then
            Sheets("Returns").Range("A" & Y) = Sheets("Ind").Range("D" & X)
            Sheets("Returns").Range("B" & Y) = "Sell"
            Y = Y + 1
        End If
        X = X + 1
        Z = Z + 1
        Y = Y + 0
    Loop
End Sub

子按钮1\u单击（）
作为整数的Dim X
Dim Y作为整数
将Z调整为整数
将计数设置为整数
X=17
Y=2
Z=1
计数=4560
当Z

如果没有错误编号和描述（并且不知道该行在何处断开以及该点的Z值），则很难确定问题的原因

在任何情况下：您都可以绕过错误（只要您看到它没有破坏最终结果）

免责声明：这不会解决您的问题，只会绕过它。请小心，因为这可能会导致代码无法使用某些变量组合执行。建议你尝试修改你的代码，而不是在它上面放一个创可贴。 只需添加：

关于错误转到循环器

在更新变量之前添加：

错误转到0

活套：

~~~~~~~~~~~~~~

您的代码包含上述错误处理程序：

子按钮1\u单击（）
作为整数的Dim X
Dim Y作为整数
将Z调整为整数
将计数设置为整数
X=17
Y=2
Z=1
计数=4560
关于错误转到循环器
当Z

预期的输出是什么？从窗体和工作表中对我有效。是否设置了断点？“它一直告诉我要调试”-这意味着发生了运行时错误。该消息包含错误号和说明。我们需要这个，以及突出显示的代码行。正是。。。所需信息：错误编号和说明；高亮显示的行，程序中断时的Z值。要做到这一点，您只需阅读告诉您调试的消息（对于err num&description），然后单击debug并查看黄色的行，然后将光标悬停在Z上（它将显示当前的Z值）。我强烈建议不要这样做，最好是识别并修复错误，而不是跳过它。你是绝对正确的。但在不知道错误的实际来源的情况下，这是我能做的最好的了。如果最终结果看起来很好，那么可能是因为错误首先不应该运行循环。我明白你的意思，但我认为在发布答案之前，提示用户提供更多信息并在调试过程中在注释中手拿这些信息是更好的解决方案。我之所以这么说，是因为对VBA相当陌生的人会看到这个答案并抓住它，而不会费心走更困难的道路，按照我们的指示向我们获取更多信息，这会让他们成为一个编写糟糕代码的程序员。真的。我会在上面写一个强烈的免责声明。