准提部林

1) 2月份, 哪有"上上個月" ????
2) 若有一個月漏了複製公式, 下下個月不就無法複製公式???
3) 12月, 要等隔年1月處理???

不如保留1月份公式, 當月複製1月份公式, 並將前一個月至2月份貼成值~~
Sub 複製公式()
Dim xArea As Range, M%
Set xArea = [B2:M8]
M = Month(Date)
If M = 1 Then Exit Sub
xArea.Columns(1).Copy xArea.Columns(M)
If M <= 2 Then Exit Sub
With xArea.Columns(2).Resize(, M - 2): .Value = .Value: End With
End Sub


=====================================