随便右击一个工作表标签，查看代码，把下面的代码贴过去，按F5运行即可Sub chiefzjh()Dim i%For i = 1 To 3 '工作表新增个数3Worksheets.Add after:=Worksheets(Worksheets.Count)Next iEnd Sub
很好用
