运行VBA代码报"end if block without if"错误如何解决

错误原因 #

核心问题是VBA中If语句的语法规则冲突：

• 若If判断和执行语句写在同一行（格式为If 条件 Then 执行语句），属于单行If结构，不需要额外写End If闭合
• 你代码中的If a >= 20 Then GoTo label2是标准单行If写法，VBA判定这个If分支已经执行完毕，后续多余的End If找不到对应的If块，因此触发报错
• 额外逻辑问题：当前代码存在死循环风险，当a等于20时会跳回label2把a重置为2，程序会无限循环无法终止

解决方法 #

根据你的实际业务需求，可选两种修正方案：

方案1：仅修复语法错误，保留原有跳转逻辑 #

直接删除多余的End If即可，修正后代码如下：

Sub test()
    Dim Total As Double
    Dim Timein As Date
    Dim Timeout As Date
    a = 2
    b = 0
label2: a = 2
   For a = 2 To 21
   b = a + 1
      If a >= 20 Then GoTo label2 ' 单行If不需要End If闭合
         Timein = CDate(Cells(a, 1).Value)
         Timeout = CDate(Cells(b, 1).Value)
         Total = TimeValue(Timeout) - TimeValue(Timein)
         Debug.Print Total
         Debug.Print Format(Total, "hh:mm:ss")
         Cells(a, 4).NumberFormat = "hh:mm:ss"
         Cells(a, 4).Value = Total
         Debug.Print "Number of hours = " & Total * 24
   Next a
End Sub

注：该方案仍保留原有死循环逻辑，仅解决语法报错问题

方案2：同时修复语法和死循环问题，优化为块If结构 #

如果你是要a遍历到20就结束循环，不需要重置循环，可改成标准块If结构，避免跳转逻辑风险：

Sub test()
    Dim Total As Double
    Dim Timein As Date
    Dim Timeout As Date
    Dim a As Integer, b As Integer ' 建议显式声明所有变量，避免隐式声明风险
    a = 2
    b = 0
   For a = 2 To 21
      b = a + 1
      If a >= 20 Then
         Exit For ' 直接退出循环，替代跳转逻辑，避免死循环
      Else
         Timein = CDate(Cells(a, 1).Value)
         Timeout = CDate(Cells(b, 1).Value)
         Total = TimeValue(Timeout) - TimeValue(Timein)
         Debug.Print Total
         Debug.Print Format(Total, "hh:mm:ss")
         Cells(a, 4).NumberFormat = "hh:mm:ss"
         Cells(a, 4).Value = Total
         Debug.Print "Number of hours = " & Total * 24
      End If
   Next a
End Sub

内容的提问来源于stack exchange，提问作者Vathsala MJ