用VBA复制sheet1考勤表生成12个月考勤表，并用月份命名sheet。
改成这样好了！Sub AddSh()Dim a$, b% 'a%改为a$For b = 1 To 12a = b & "月"Sheets(1).Activate '此句不可少Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = aSheets(1).Cells.Copy Sheets(a).CellsSheets(a).Range("a2").MergeArea.ClearContentsShee···
