Sheets("Sheet" & i).Name = "高一" & i &"班"
Sub dffff()For i = 1 To 18Sheets.Add After:=ActiveSheetActiveSheet.Name = "高一" & i & "班"Next iEnd Sub请测试效果!
办公室女警，高手啊，佩服中....
