モジュール名: CopyRangeToNewWorkbook
モジュール説明:
このモジュールは、選択範囲を新しいブックにコピーする機能を提供します。
使用方法:
コピーしたいセル範囲を選択します。
マクロを実行します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Sub CopyRangeToNewWorkbook() ' コピー対象のセル範囲を取得 Dim rngCopy As Range Set rngCopy = Selection ' 新しいブックを作成 Dim wbNew As Workbook Set wbNew = Workbooks.Add ' コピー対象のセル範囲を新しいブックに貼り付け rngCopy.Copy Destination:=wbNew.Sheets(1).Range("A1") ' メッセージボックスを表示 MsgBox "選択範囲を新しいブックにコピーしました。" End Sub |
