For AD_numb = 1 To 2 Step 1
       Select Case AD_numb
       Case 1
       Range("AD") = 1
       Case 2
       Range("AD") = 2
       End Select
         
        If Range("AD") = 1 Then
        For ppm_numb = 1 To 6 Step 1
        Select Case ppm_numb
        Case 1
        prem_term = 1
        Case 2
        prem_term = 10
        Case 3
        prem_term = 15
        Case 4
        prem_term = 20
        Case 5
        prem_term = 25
        Case 6
        prem_term = 30
        End Select
        
        Next ppm_numb
        
        Else
        For ppm_numb = 1 To 4 Step 1
        Select Case ppm_numb
        Case 1
        prem_term = 1
        Case 2
        prem_term = 5
        Case 3
        prem_term = 10
        Case 4
        prem_term = 20
        End Select
        
        End If
   就是这部分代码，vba报错说end if 没有锁住if，各位大神知道怎么解决的吗？