test
Dim sheet As Worksheet
Set sheet = Worksheets("值勤空白表")
currentsheets = Worksheets.Count
sheet.Copy after:=Worksheets(currentsheets)
currentsheets = currentsheets + 1
Worksheets(currentsheets).Activate
Cells(1, 1) = "吃吃喝喝"