質問: シートを追加・名前を次月に変更、前月内容を貼り付け エクセルでマクロを使って、シートを追加して、シート名を次月となるように変更したいのです。欲を言えば、今のシートをコピーして新しく作ったシートに貼り付けまでできれば最適です。例ですが、今操作中のシート名が3月とします。内容は3月の集計表を作成です。ここでマクロを実行して、新しくシートを追加しシート名を4月としてシートの内容は3月の内容をコピーして貼り付けしたいのです。仮に5月でも実行すれば6月のシートが作成できるようにしたいのです。ご教授ください。マクロは初心者です。操作はできます。
回答: こんにちは! 一例です。 同一ブック内で同じsheet名を付けることはできませんので、 今操作中のsheet名の月の翌月sheet名はないということが大前提です。 sub test() dim i as long i = worksheetfunction.substitute(activesheet.name, "月", "") * 1 activesheet.cells.select selection.copy worksheets.add after:=worksheets(worksheets.count) activesheet.paste activesheet.name = i + 1 & "月" application.cutcopymode = false activesheet.range("a1").select end sub こんな感じではどうでしょうか?m(__)m