Sub 新建表格() Worksheets.Add after:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = "表名" End Sub Sub 新建表格1() With Worksheets.Add(after:=Worksheets(Worksheets.Count)) .Name = "表名" End With End Sub Sub 新建表格2() Dim Sh As Worksheet Set Sh = Worksheets.Add(after:=Worksheets(Worksheets.Count)) Sh.Name = "表名" End Sub