两列相减并产生第三列的问题，如何用宏实现
现在有a,b,c三列
a为截止期，日期型，b为检查期，日期型，现在我想b-a，如果b-a> 30,c列显示“正常 "，如果b-a <0，显示“已经过期”，不知道怎么用宏来实现。
[解决办法]
ActiveSheet.Range( "C1 ").FormulaR1C1 = "=DAYS360(RC[-2],RC[-1],FALSE) "
ActiveSheet.Range( "D1 ").FormulaR1C1 = "=IF(RC[-1]> 30, " "正常 " ", " " " ") "
