第66页的作业有答案吗？

sxo

我只会这样
sub  
  Dim ubb As Integer
    Worksheets.Add after:=Worksheets(3)
    ubb = Worksheets.Count
    MsgBox "共有" & ubb & "个工作表"
End Sub

379889681

1. Sub 最后一张工作表后添加一张表()
   
2.     Dim sht As Integer
   
3.     sht = Worksheets.Count
   
4.     Worksheets.Add after:=Worksheets(sht)
   
5.     ActiveSheet.Name = "excelhome"
   
6. End Sub
   
7. 
   

复制代码

379889681

Sub 最后一张工作表后添加一张表()
    Dim sht As Integer
    sht = Worksheets.Count
    Worksheets.Add after:=Worksheets(sht)
    ActiveSheet.Name = "excelhome"
End Sub