＆＃34;编译错误：阻止如果没有结束如果＆＃34;

Question

首先，我用我的眼睛和Ctrl + F和另一个人的眼睛来检查结束如果，我不明白为什么我收到此错误消息：

  

编译错误：阻止如果没有结束，如果

我试图正确地缩进宏，希望很清楚阅读。

这是整个函数，因为我不确定错误消息在哪里。编译器在此函数的最后选择End Sub。

IF EXIST D:\*Backup*\ (
   ECHO "directory exist"
) ELSE (
   ECHO "directory not exist"
)

Answer 1

你遗失的结尾 - 如果在这个区块中：

If ifshift = vbYes Then
    For counter = 1 To cases
        Cells(1, counter).Value2 = counter ' will print 1, 2, 3... in the columns
    Next
ElseIf shift = vbNo Then
    shift = InputBox("What's shift?")
    For counter = 1 To cases
        Cells(1, counter).Value2 = counter + shift ' will print x, x+1...
    Next

您应该清理/格式化代码，以便轻松发现这样的问题。如果你不让你的代码看起来很整齐有序，你就会浪费很多时间来处理这样的问题。