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,各位大神知道怎么解决的吗?