EXCEL - 新增多張工作表

新增多張工作表
Sub 方法一()
Dim x, y
x = InputBox("請輸入增加工作表的數量", "增加工作表")
With Worksheets
.Add Count:=x '指定張數來新增

End With
End Sub