请vba大牛出山，指点下迷路小书童

kingdom119

各路大神，帮我看下，如何在截图所示的工作薄中，在“手穿线量表”后再生成一个空白的，名为”机穿线量表“的工作表

饮冰e士

1. Option Explicit
   
2. 
   
3. Sub AddSht()
   
4.   With Worksheets.Add(after:=Sheets(Sheets.Count))
   
5.     .Name = Sheet2.[R1]
   
6.   End With
   
7.   Sheet2.Select
   
8. End Sub

复制代码

liulang0808

Sub test()
    Sheets.Add after:=Sheets("手穿线量表")
    ActiveSheet.Name = "机穿线量表"
End Sub
在 "机穿线量表"不存在的条件下，执行代码