excel - 尝试运行产生错误 91 的 VBA 代码

Question

我正在使用以下代码根据另一个单元格的值复制相应单元格的值，但我收到错误 91。你能看看我做错了什么吗？出错

Dim ws As Worksheet, Snags As Worksheet
Dim lr As Long, lrSnags As Long, i As Long
Application.ScreenUpdating = False
For Each ws In Worksheets
    If ws.Name <> "Snags" Then
        lr = ws.Range("A" & Rows.Count).End(xlUp).Row

        For i = 2 To lr
            lrSnags = Snags.Range("A" & Rows.Count).End(xlUp).Row + 1
            If ws.Range("B") = "Fail" Then
                ws.Range("A" & i).Copy
                Snags.Range("A" & lrSnags).PasteSpecial xlPasteValues
            End If
        Next i
    End If
Next ws
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Complete"

End Sub

在下一行出现错误

lrSnags = Snags.Range("A" & Rows.Count).End(xlUp).Row + 1

Answer 1

我猜你没有定义名为“Snags”的工作表

您需要设置Snags定义后:
例如:

   Set Snags = Worksheets("Snags")

或者，您可以只更改您的行而不将其定义为:

lrSnags = Sheets("Snags").Range("A" & Rows.Count).End(xlUp).Row + 1