hide_kichiの情報

気になる情報,その他役立つ情報をアップしていきます

【EXCEL VBA】SHEET追加

EXCEL VBA】SHEET追加

'  
On Error Resume Next
'Sheet1をコピーSheet2を作成
work_s0 = "Sheet1 (2)"
work_s1 = "Sheet1"
work_s2 = "Sheet2"
Sheets(work_s2).Select
Sheets(work_s2).Delete
Sheets(work_s0).Delete

Sheets(work_s1).Copy Before:=Sheets(1) 'Sheet1をコピー
Sheets(work_s2).Select
Sheets(work_s2).Delete
Sheets(work_s0).Name = work_s2 'Rename