用VBA复制sheet1考勤表生成12个月考勤表，并用月份命名sheet。
改成这样好了！
Sub AddSh()
Dim a$, b% 'a%改为a$
For b = 1 To 12
a = b & "月"
Sheets(1).Activate '此句不可少
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = a
Sheets(1).Cells.Copy Sheets(a).Cells
Sheets(a).Range("a2").MergeArea.ClearContents
Sheets(a).[a2].Value = "2017年" & b & "月1日"
Next
End Sub
多重随机标签