VBAでシートの追加と削除をするには

Tweet

Pocket

追加する構文

Sub test1()

Dim ws As Worksheet　①
Set ws = Worksheets(“test”)　②
Dim i As Long　③
For i = 2 To ws.Range(“B” & Rows.Count).End(xlUp).Row　④
Worksheets.Add after:=Worksheets(“test”)　⑤
ActiveSheet.Name = ws.Range(“B” & i)　⑥
Next

End Sub

変数を宣言する

wsはworksheetです。と宣言します。

ワークシートにセットします

worksheetの名前を”test”にします。

変数 i を宣言します

変数 i はLong型の値を宣言します。

B列の最終行を取得します

B列の２行目から最終行までの値を取得します。

シートを追加します

testシートの後ろにシートを追加します。

For ~ Next文で繰り返します

B列の名前をファイル名に空欄になるまで繰り返し追加します。

削除する構文

Sub test2()

Dim w As Worksheet
Application.DisplayAlerts = False
For Each w In Worksheets
If Left(w.Name, 4) <> “test” Then
w.Delete
End If
Next

End Sub