マクロの試験で出た問題で解けずに困っています。わかる方、教えてください。「売上」ワークシートをシート内の1番右端にコピーするコードを次の条件で記述してください。・シートのコピーには「copy」メソッドを使用し、引数は参照シート（1番右端のシート）の後ろに（after）を指定する・1番右端のシート位置は「worlsheets」プロパティで参照する・シートの名前はセルの「h1」の値と文字列\u0026quot;月売上\u0026quot;を連結演算子「\u0026amp;」でつなげたものを設定する上記でコピーした1番右端のシートのセル「a3」から右下の終端セル（セル「a14」）のデータを削除するコードを次の条件で記述してください。・削除範囲の参照方法:セル「a3」を基準にデータの終端（右及び下）を「end」プロパティで参照する・基準になるセル「a3」の参照には「range」プロパティを使用する・データの削除には「clearcontents」メソッドを使用する上記の内容がわかりません。教えてください。

Copilotの回答です。

①「売上」シートを右端にコピーして名前を付ける

Worksheets(\u0026quot;売上\u0026quot;).Copy After:=Worksheets(Worksheets.Count)



コピー後のシートは ActiveSheet になるので、その名前をセル H1 の値と \u0026quot;月売上\u0026quot; を連結して設定します。



Worksheets(\u0026quot;売上\u0026quot;).Copy After:=Worksheets(Worksheets.Count)

ActiveSheet.Name = ActiveSheet.Range(\u0026quot;H1\u0026quot;).Value \u0026amp; \u0026quot;月売上\u0026quot;



②コピーしたシートで A3 から右下の終端までを削除

基準セルは Range(\u0026quot;A3\u0026quot;)



右方向の終端は End(xlToRight)



下方向の終端は End(xlDown)



範囲指定は Range(\u0026quot;A3\u0026quot;, 終端セル)



削除は ClearContents



ActiveSheet.Range(\u0026quot;A3\u0026quot;, ActiveSheet.Range(\u0026quot;A3\u0026quot;).End(xlToRight).End(xlDown)).ClearContents





まとめたコード例



Sub CopyAndClear()

' ① 売上シートを右端にコピー

Worksheets(\u0026quot;売上\u0026quot;).Copy After:=Worksheets(Worksheets.Count)

ActiveSheet.Name = ActiveSheet.Range(\u0026quot;H1\u0026quot;).Value \u0026amp; \u0026quot;月売上\u0026quot;



' ② コピーしたシートのA3から右下終端まで削除

ActiveSheet.Range(\u0026quot;A3\u0026quot;, ActiveSheet.Range(\u0026quot;A3\u0026quot;).End(xlToRight).End(xlDown)).ClearContents

End Sub



これで試験問題の条件をすべて満たしています。 ポイントは Worksheets.Countで右端を参照、ActiveSheetでコピー直後のシートを操作、Range(\u0026quot;A3\u0026quot;).Endで終端を取得 です。