[求助]关于宏的代码问题

cake_super

现在有a,b,c，d四列
a为截止期，日期型，b为检查期，日期型，现在我想b-a，c列显示相减的日期数，如果c>30,d列显示“正常"，如果c<0，d列显示“已经过期”，不知道怎么用宏来实现。

还有个问题：如何通过宏来实现定时在c列后面增加一列，格式和c列一样

方漠

用公式简单些吧.

C2的公式:=B2-A2  (*注意将单元格格式设为General)

D2的公式: =IF(C2>30,"正常",IF(C2<0,"已经过期",""))

用宏代码如下:

Sub Macro1()
Dim Lrow As Long
    Range("C2").FormulaR1C1 = "=RC[-1]-RC[-2]"
    Range("D2").FormulaR1C1 = "=IF(RC[-1]>30,""正常"",IF(RC[-1]<0,""已经过期"",""""))"
    Lrow = Range("A65536").End(xlUp).Row
    Range("C2" & Lrow).Select
    Selection.FillDown
    Columns("C:C").Select
    Selection.NumberFormatLocal = "G/通用格式"
    Range("C2").Select
End Sub

cake_super

谢谢