| シートを移動してから名前を変える方法 |
| ヘルプによると、シートコピーを行うcopyの使用例は「次の使用例は、シート 1 のコピーを、シート 3 の後に挿入します。Worksheets("Sheet1").Copy after := Worksheets("Sheet3")」とありますが、この方法では、コピー後のシート名が「Sheet1 (2)」という風に自動で設定されてしまいます。この後ろにつく(2)の文字は他のシート名に影響を受けるため、できれば、このコピー後のシート名を設定したいのですが、どうすればよいのでしょうか。 |
| Sheets("Sheet1").Select '
コピー元 Sheets("Sheet1").Copy Before:=Sheets(1) ActiveSheet.Name = "Sheet2" 'コピー後名前の変更 でよいのです。Copyを行うと、Copyされたシートがアクティブになりますので、単にアクティブシートの名前を変更するだけでよいのです。 |