Sub Macro3()
'
' Macro3 Macro
'

'
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "=IF(C[-2]=1,C[-1],)"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = "=IF(C[-3]=2,C[-2],)"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "=IF(C[-4]=3,C[-3],)"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "=IF(C[-5]=4,C[-4],)"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "=IF(C[-6]=5,C[-5],)"
        Range("C3:AJ3").Select
    Selection.AutoFill Destination:=Range("C3:AJ2469")
    Range("C3:AJ2469").Select
    Range("D3").Select
End Sub
要求其中的    Range("C3").Select
    ActiveCell.FormulaR1C1 = "=IF(C[-2]=1,C[-1],)"
数字2、1以N+1递增，并对应输出在C、D、E、F、G、H........AJ列

这是自动录制的宏。
有点繁琐。读写单元格使用
worksheet.cells(行,列)方法操作简洁
若要选择：.cells(行,列).select 即可
设置单元格的格式，在选中后，不清除录制宏查看（许多行），选取有用的行，粘贴过来。