Sheets("TP02").Range("F2").Formula = "=IF(AT2="综保","EPENP","PPMCP")"编译错误
vba string里表示"用""代替以防被误判为字符串分段
Sheets("TP02").Range("F2").Formula = "=IF(AT2=综保,EPENP,PPMCP)"去试一下。骚年