我收到语法错误，你能检查我的代码吗？

Question

请检查代码，我认为错误在于退出错误循环。

Option Explicit
Dim mm
Dim person As Range
Dim amount As Range
Dim ans

Sub Macro1()

again:
mm = InputBox("Enter the name of the sales person")
If mm = "Jack" Then
    GoTo Start
ElseIf mm = "Heather" Then
    GoTo Start
ElseIf mm = "Jeff" Then
    GoTo Start
ElseIf mm = "Stephanie" Then
    GoTo Start
ElseIf mm = "Mike" Then
    GoTo Start
ElseIf mm = "Marty" Then
    GoTo Start
ElseIf mm = "Peter" Then
    GoTo Start
ElseIf mm = "Jack" Then
    GoTo Start
ElseIf mm = "Lisa" Then
    GoTo Start
Else
GoTo Error
Error:
MsgBox ("Error: invalid name,no match found")
ans = MsgBox("Do you want to try again?", vbYesNo)
If ans = 8 Then
GoTo again
ElseIf ans = 7 Then
GoTo Exit

Start:
    Set person = Range(Cells(6, 2), Cells(148, 2))
    Set amount = Range(Cells(6, 3), Cells(148, 3))
    Cells(13, 8) = mm
    Cells(14, 8) = WorksheetFunction.SumIfs(amount, person, mm)
    Cells(15, 8) = WorksheetFunction.AverageIfs(amount, person, mm)
    Cells(16, 8) = WorksheetFunction.MinIfs(amount, person, mm)
    Cells(17, 8) = WorksheetFunction.MaxIfs(amount, person, mm)
    ans = MsgBox("Do you want to try again?", vbYesNo)
If ans = 8 Then GoTo again
    End If
Exit:
End Sub

由于某些奇怪的原因，excel不允许我输入退出：它显示编译错误，但我不知道为什么

非常感谢您的帮助

Answer 1

Exit 是保留关键字，对于标识符是非法的。

Exit:
End Sub

那个Exit标签需要重命名。

Answer 2

这就是我将如何重新构建您的代码。请注意，由于GoTo 的实例，代码不会从这里跳转到那里。现在，您可以从头到尾遵循逻辑而无需跳过一行。这对可读性有很大帮助，有助于调试、将来修改和首先编写脚本。

您可以添加Do Loop，如果您想提供继续尝试名称的选项，直到他们碰巧输入您的操作名称之一。您应该查找该方法，如果您决定实施并遇到任何问题，请在您的代码和问题中发布一个新问题！

这里有一些关于该主题的随机链接，应该有助于您入门。 Here，或here

---

Sub Test()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- Update sheet name
Dim mm As String, Person As Range, Amount As Range

Set Person = ws.Range("B6:B148")
Set Amount = ws.Range("C6:C148")

mm = InputBox("Enter the name of the sales person")

Select Case mm
    Case "Jack", "Heather", "Jeff", "Mike", "Marty", "Peter", "Jack", "Lisa"
        ws.Range("H13") = mm
        ws.Range("H14") = Application.WorksheetFunction.SumIfs(Amount, Person, mm)
        ws.Range("H15") = Application.WorksheetFunction.AverageIfs(Amount, Person, mm)
        ws.Range("H16") = Application.WorksheetFunction.Minifs(Amount, Person, mm)
        ws.Range("H17") = Application.WorksheetFunction.Maxifs(Amount, Person, mm)
    Case Else
        MsgBox "Invalid Entry. Please re-run macro to try again"

End Select

End Sub