在A7填写题目中写到的公式。请看是否满足要求?Sub AddFormulaToA7()Range("A7").Formula = "=IF(OR(B3="""",B4="""",D3="""",D4=""""),""检查输入坐标"",IF(D3-B3=0,IF(D4-B4=0,""同一坐标"",IF(D4-B4>0,90,270)),IF(D3-B3>0,IF(D4-B4=0,0,IF(D4-B4>0,(90-((ATAN((ABS(D3-B3)/ABS(D4-B4))))*180/PI())),(270+((ATAN((ABS(D3-B3)/ABS(D4-B4))))*180/PI())))),IF(D4-B4=0,180,IF(D4-B... |