【EXCEL VBA】SHEET追加 ' On Error Resume Next'Sheet1をコピーSheet2を作成work_s0 = "Sheet1 (2)"work_s1 = "Sheet1"work_s2 = "Sheet2"Sheets(work_s2).SelectSheets(work_s2).DeleteSheets(work_s0).Delete Sheets(work_s1).Copy Before:=Sheets(1) 'Sh…