
Excelのシートコピーを複数つくるVBAを探しています。
Sheet1を10シートコピーする場合に方法はありますでしょうか?
本当は、それの名前もVBAで変更できればよいと考えているのですが、とりあえずシート名の変更は、以下のVBAでできました。
Sub シート名変更()
Const OrgSh = "Sheet2"
Dim Rw As Long
Dim Cnt As Integer
Sheets(OrgSh).Move Before:=Sheets(1)
For Cnt = 2 To Sheets.Count
Sheets(Cnt).Name = "Tentative" & Cnt
Next
For Cnt = 2 To Sheets.Count
Sheets(Cnt).Name = Cells(Cnt, 1).Value
Next
End Sub
なので、最初にシートをコピーして、名前を変更する、2段構えの覚悟はできています。
シートコピーのみでもよいので、だれか教えていただけませんか?
No.4ベストアンサー
- 回答日時:
コピー元は「Sheet1」とし,複製は「test○○」のようだとすると
sub macro1()
dim i as long
dim n as long
dim w as worksheet
’既にあるシート名を付けようとしてエラーで止まらないようにすること
for each w in worksheets
if w.name like "test*" then
n = application.max(n, val(mid(w.name,5,9)))
end if
next
’シートを複製して正しい名前を付けること
for i=n + 1 to n + 10
worksheets("Sheet1").copy after:=worksheets(worksheets.count)
activesheet.name = "test" & i
next i
end sub
#デタラメをやっても動かないのは当然なので,ヘルプなどを良く読む習慣をまず身につける必要がありそうですね。
No.3
- 回答日時:
NO2です。
>Sheets("sheet1").Copy after:=Sheets(Sheets.Count), Count:=3 と作ったのですが動きませんでした
⇒VBAの学習不足です。
VBAの知識もなくVBAを始める事は無理があります。
先ずは、沢山あるVBA入門サイトか参考書の一つでも読破して下さい。
一例の入門サイトを添付しましたので一度ご確認下さい。
参考URL:http://www.eurus.dti.ne.jp/~yoneyama/
No.2
- 回答日時:
>Excelのシートコピーを複数つくるVBAを探しています。
⇒コードコピーから始まっても良いが、そのコードの意味を咀嚼しないと駄目です。
自分で作成してなんぼなのだから回答の丸映しはやめましょう。
ヒント例です。
Sheets("sheet1").Copy after:=Sheets(Sheets.Count) ‘シート1を最右端へコピー
ActiveSheet.Name = "シート名" ’コピーシート名前の変更
いろいろとご指導ご鞭撻のほどよろしくお願いします
例えば、3シート追加する場合は
Worksheets.Add After:=Worksheets("Sheet1"), Count:=3 ですよね
上記のヒントを利用して
Sheets("sheet1").Copy after:=Sheets(Sheets.Count), Count:=3 と作ったのですが動きませんでした。
また、いろいろと勉強してみます。
No.1
- 回答日時:
初心者です。
m(_ _)m流れだけですが、マクロ記録開始にしてシートタブを選択してコピーします。
1シートでも良いのですが、2~10シートコピーして、マクロを終了させます。
○シフトキーを押しながら2枚目のシートをクリックするとその間のシートも全て選択
できます。
○コントロールキーを押しながらシートを選択すると、複数のシートを選択できます。
○右クリックで、【移動またはコピー】→【コピーの項目にチェックを入れる】→【OK】
で瞬時にシートがコピーされて増えます。
必要に応じてシート名を書き換えます。
記述をボタンに記録します。
次回からはマクロボタンをクリック下だけで、コピーされたシートがマクロで
バンバンできます。
マクロにしなくても、○印だけでも相当早いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) シート名を簡単に書く方法があれば教えてください。 4 2023/08/24 12:40
- Visual Basic(VBA) 最終行の指定について教えてください。 複数シートを1シートへまとめる下記マクロでは各シートの6行目を 1 2022/10/04 18:37
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 複数シート一括作成後に、特定範囲の数式は値で貼り付けしたい 3 2022/10/07 11:18
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) VBAで、シート間の転記するコードをFOR~NEXTで教えてください。 9 2023/04/30 20:04
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Visual Basic(VBA) 別ブックからシートのコピー 3 2022/04/01 20:07
このQ&Aを見た人はこんなQ&Aも見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
何回やってもうまくいかないことは?
みなさんには、何回やってもうまくいかないことはありますか?
-
みんなの【マイ・ベスト積読2024】を教えてください。
積読、ついついしちゃいませんか?そこでみなさんの 「2024年に買ったベスト積読」を聞きたいです。
-
コーピングについて教えてください
皆さんはストレスを感じたとき、どのような方法や手段、テクニックで対処していますか?
-
【お題】斜め上を行くスキー場にありがちなこと
運営も客も一流を通り越して斜め上を行くスキー場にありがちなことを教えて下さい。
-
【ExcelVBA】指定のシート以外を削除する方法
Visual Basic(VBA)
-
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの選択範囲以外を削除...
-
Excel 関数を使ってデータと一...
-
EXCELのVBAでシートコピーをし...
-
Excelの行をコピーして貼り付け...
-
EXCELで別のブックから式をコピ...
-
Excel シートのコピーの際、ペ...
-
VBA シートをコピー後、ボタン...
-
【Excel VBA】シートコピー時、...
-
EXCEL2007でシートをコピーする...
-
Excel 数式の保護をしたセルを...
-
EXCEL VBA シートをコピーする...
-
エクセルシートを別のエクセル...
-
PDFファイルをコピーしてエクセ...
-
【VBA】コピー&複数個所のペー...
-
エクセルVBAですが教えてくださ...
-
シートが保護されていないのに...
-
エクセルのワークシートをUSBメ...
-
ExcelVBAで、ユーザーフォーム...
-
エクセルのページをシートごと...
-
【エクセル】プルダウン設定の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの選択範囲以外を削除...
-
Excel 関数を使ってデータと一...
-
EXCELのVBAでシートコピーをし...
-
Excelの行をコピーして貼り付け...
-
EXCELで別のブックから式をコピ...
-
Excel シートのコピーの際、ペ...
-
Excel 数式の保護をしたセルを...
-
エクセルの1シートの内容を複...
-
エクセルシートを別のエクセル...
-
エクセルでシートを「移動また...
-
エクセルのワークシートをUSBメ...
-
【VBA】コピー&複数個所のペー...
-
シートが保護されていないのに...
-
PDFファイルをコピーしてエクセ...
-
ExcelVBAで、ユーザーフォーム...
-
【Excel VBA】シートコピー時、...
-
エクセルVBA 1行飛ばしで転記す...
-
【エクセル】プルダウン設定の...
-
エクセルのページをシートごと...
-
ページの設定を別シートにコピ...
おすすめ情報