|
发表于 2013-10-19 21:53
|
显示全部楼层
本楼为最佳答案
- Sub 替换公式中月份1()
- With Range("B2")
- .FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-1],'" & Val(Range("L1")) - 1 & "月'!C1:C2,2,)),"""",VLOOKUP(RC[-1],'" & Val(Range("L1")) - 1 & "月'!C1:C2,2,))"
- .AutoFill Destination:=Range("B2:B" & Range("B65536").End(xlUp).Row)
- End With
- End Sub
复制代码 |
|