excel - vba 新增工作表 ， 欄 ， 列

Sub 新增工作表()

x = InputBox("請輸入新增工作表的張數", "職訓局")
For i = 1 To x Step 1
Sheets(1).Select
Sheets.Add
Sheets(2).Move Before:=Sheets(1)

Next

End Sub
Sub 插入列()
x = InputBox("請輸入新增的列數", "職訓局")
For i = 1 To x Step 1
ActiveCell.Offset(1, 0).Select

Selection.EntireRow.Insert

Next

End Sub
Sub 插入欄()
x = InputBox("請輸入新增的欄數", "職訓局")
For i = 1 To x Step 1
ActiveCell.Offset(0, 1).Select

Selection.EntireColumn.Insert

Next



End Sub