PrivateSubWorksheet_Change(ByValTargetAsRange)IfTarget.Column=3AndTarget.Count=1AndTarget.Row>1AndTarget>0AndLeft(Target,2)"超限"ThenA1=70:A2=60:A3=50:A4=40'这里是四个固定数S1="
WPS有没有安装VBA插件？
