如果语句“错误消息结束，如果没有块如果”

If T = Empty Or SGg = Empty Or mugi = Empty Or Bgi = Empty Or xe = Empty Or _ Area = Empty Or hres = Empty Or phires = Empty Or Sgi = Empty Or _ kres = Empty Or pbari = Empty Or zi = Empty Or xf = Empty Or wf = Empty Or _ Hf = Empty Or tauyhb = Empty Or nhb = Empty Or khb = Empty Or Tsc = Empty _ Or psc = Empty Or Tsurf = Empty Or psurf = Empty Then _ MsgBox ("Provide all the missing data on 'INPUT' sheet and in field units") Exit Sub End If 

问题 ：我得到上面的代码行End if without block if的错误消息。 我没有看到代码中的任何问题。

Answer 1

你有两个select。 像所做的那样把它全部放在一行上，但是end if （VBA的IF / THEN语句的单行版本不接受它） end if删除end if 。 或者，您可以在Then关键字之前添加换行符，在End If之前添加换行符。

Answer 2

显然你需要一个新的线后“然后”