这题用函数......至少我做不到自动增加.....
SO 我用代码
Sub Ma()
Dim i As Long, m As Long
i = Sheets.Count
m = Right(Sheets(i).Range("f6"), 2)
Sheets(i).Copy After:=Sheets(i)
Sheets(i + 1).Range("f5") = Date
If Sheets(i).Range("f5") = Sheets(i + 1).Range("f5") Then
Sheets(i + 1).Range("f6") = Format(Range("f5"), "YYMMDD") & Format(m + 1, "00")
Else
Sheets(i + 1).Range("f6") = Format(Range("f5"), "YYMMDD") & "01"
End If
End Sub