- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：VBAでボタンを押すとシ-トのコピ－そして名前変更までできましたけどシ）
VBAでシートのコピー・名前変更の方法とは？
このQ&Aのポイント
- VBAを使用してボタンを押すと、シートのコピーと名前変更を行うことができます。しかし、シート名が重複する場合にはどうすれば良いのでしょうか？
- シート名の後に枝番号（-1、-2、-3など）を付けて重複を回避する方法があります。エクセル2003の場合も同様に適用できます。
- 上記のVBAコードは、指定したシートを末尾にコピーし、コピー先のシート名を特定のセルの値に設定しています。
- norimaki99999
- お礼率57% (4/7)
- オフィス系ソフト
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
エラーナンバーでチェックしてはどうですか Sub sheetの複写() j = 1 For i = 17 To 17 Sheets("サンプル").Copy After:=Sheets(Sheets.Count) On Error GoTo ERRO ActiveSheet.Name = Sheets("サンプル").Range("Z" & i).Value & "-" & j Next Exit Sub ERRO: If Err.Number = 1004 Then j = j + 1 End If Resume End Sub
お礼
有難うございました。 思い描いたようになりました。 今後とも宜しくお願いします。