質問: はじめまして。今回は以下のコードで壁にぶつかりました。 何度もデバックしたり調べましたが、打開策が見つかりません。 皆さんのお知恵をお貸しいただけると幸いです。 **■コード** ThisWorkbook.Sheets("SheetC").Copy before:=Workbooks(CreateFileName).Worksheets(3) **■発生問題** シート3にSheets("SheetC")の内容をペーストするため、.Worksheets(3)としていますが なぜかシート6として新規作成されてしまいます。 そのため後続の処理もうまくいきません。
回答: 質問の回答が途絶えたので先走って回答しておきます。 今わかっている要件(未確定) * ThisWorkbookには「SheetC」がある。 * Workbooks(CreateFileName)には、「シート1」「シート3」がある。 * 「SheetC」を「シート4」の名前で「シート3」の後ろ(3番目)に複製したい。 ``` ThisWorkbook.Sheets("SheetC").Copy after:=Workbooks(CreateFileName).Worksheets(2) Workbooks(CreateFileName).Worksheets(3).Name = "シート4" ```