VBAでシートを最後に追加する方法

方法1: SheetsコレクションのAddメソッドを使用する方法Sub AddSheetToEnd() Dim wb As Workbook Dim ws As Worksheet Set wb = ThisWorkbook ' 現在のワークブックを取得 Set ws = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count)) ' 最後のシートの後に新しいシートを追加 ' 新しいシートの設定 ws.Name = "新しいシート" ' シート名を設定 ' 他の設定を行う場合はここに追加 End>>More