excel中使用vba新建一個工作表的方法

1、首先我們打開一個工作樣表作為例子。

2、使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼：

Option Explicit

Sub ddt()

Dim a As Integer

a = InputBox("請輸入工作表編號")

ThisWorkbook.Sheets.Add Before:=Worksheets(a) '添加一個新工作表在第一工作表前

End Sub

3、寫這段代碼的時候我們需要理解add這個命令的作用，在sheets對象中，add命令就是增加一個新的sheets（工作表），這里用一個空格befor：=來表示是在該表格之前。

4、工作表序列的表示方法有三種，這里寫的是用的序列表示，如果我們要在特定的工作表前新建一個工作表，我們也可以直接指定，比如像這樣寫

ThisWorkbook.Sheets.Add Before:=Sheets("5月工資")

5、如果寫具體的工作表名稱是能夠達到準確的目的，但是為了靈活性，我們還是建議選擇序列方式新建工作表更加的容易一些。所以這里我們使用了inputbox函數通過輸入來獲取工作表的序列。

6、需要注意的的是，對于變量的聲明一定要做好數值型的聲明，如果使用變量默認聲明，那么會出現聲明錯誤，導致序列下標錯誤。

相關推薦：

excel表格怎么利用vba自動填充公式?

excel如何使用vba函數計算指定間隔月后的日期?

excel表格中的日期怎么通過vba計算日期所在季度?