Excel “；如果没有结束，则阻塞if”；在线教程之后VBA中出现错误

我对VBA和宏比较新，所以我一直在关注这个，YouTube教程。出于某种原因，我被一个工作表更改代码卡住了，它一直在说“阻塞如果没有结束如果”。我不确定我的代码中缺少了什么，因为我完全遵循了教程，有人能看看这段代码并提供帮助吗？我会很感激的

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:J18")) Is Nothing Then
    If Target.Count > 1 Then
        Application.ScreenUpdating = False
        Application.Undo
        Application.ScreenUpdating = True
        End
End If
If Sheet9.Range("B4").Value = False Then
If Sheet2.Range("N5").Value = Empty Then End
Dim UserRow As Long
Dim CurrentUser As String
Dim SharedFolder As String
Dim UserName As String
Dim Filename As String
Dim fso As Object
Dim oFile As Object
Set fso = CreateObject("Scripting.FileSystemObject")
CurrentUser = Sheet9.Range("B8").Value 'Current User
SharedFolder = Sheet2.Range("N5").Value 'Shared Folder
For UserRow = 6 To 24
    If Sheet9.Range("D" & UserRow).Value = Empty Then GoTo NoUser
    UserName = Sheet9.Range("D" & UserRow).Value
    If CurrentUser = UserName Then GoTo NextUser
    If Dir(SharedFolder & "\" & UserName & "\", vbDirectory) = "" Then fso.createfolder (SharedFolder & "\" & UserName & "\")
    Filename = SharedFolder & "\" & UserName & "\" & Target.Worksheet.Name & Target.Address & ".txt"
    Set oFile = fso.CreateTextFile(Filename)
    oFile.Writeline Target.Worksheet.Name & "," & Target.Address & "," & Target.Value
    oFile.Close
NextUser:
    Next UserRow
        Set fso = Nothing
        Set oFile = Nothing
    End If
End Sub

---

在顶部，你有一个

End

如果在那之后，应该有一个

End，即使是在线教程也可能有语法错误…你需要一个关于正确缩进的在线教程，以帮助你轻松找到修复方法。