
No.2ベストアンサー
- 回答日時:
繰り返し作業はマクロの得意とするところです。
まず、「マクロの記録」機能で記録してみました
Sub マクロの記録()
Sheets("Sheet1").Select '元シートの「Sheet1]を選択
Application.Goto Reference:="R1:R100" '名前ボックスで「1:100」を入力
Selection.Copy 'コピー
Sheets.Add 'シートを追加
ActiveSheet.Paste '貼り付け
Sheets("Sheet1").Select '元シートの「Sheet1]を選択
Application.Goto Reference:="R101:R200" '名前ボックスで「1:100」を入力
Application.CutCopyMode = False 'コピーの解除
Selection.Copy 'コピー
Sheets.Add 'シートを追加
ActiveSheet.Paste '貼り付け
Sheets("Sheet1").Select '元シートの「Sheet1]を選択
Application.CutCopyMode = False 'コピーの解除
End Sub
上記の記録情報をもとに下記のように改良してみました
[Alt]+[F11]VBE起動
挿入 - 標準モジュール - 下記貼り付け
Sub マクロの記録改()
Dim n As Long '変数の定義
For n = 1 To 4901 Step 100
Sheets("Sheet1").Select '元シートの「Sheet1]を選択
Application.Goto Reference:="R" & n & ":R" & n + 99
Selection.Copy 'コピー
Sheets.Add 'シートを追加
ActiveSheet.Paste '貼り付け
Next n
Application.CutCopyMode = False 'コピーの解除
End Sub
シートに戻り、[Alt]+[F8] で対象のマクロを実行します。
質問部分から読み取れない部分は勝手に補完しています
VBAはあまり自信がないので参考まで
この回答へのお礼
お礼日時:2013/01/25 16:58
ありがとうございました!
全く分からないままですが、ご回答の通りに入力してみた所…
ササッとできてしまいました!
マクロって、すごいんですね(*^-^*)
本当に助かりました。
ありがとうございました。
No.3
- 回答日時:
下記URLの過去ログのページをご参照下さい。
No.2またはNo.3のどちらでも出来ますよ。
「エクセルで20万行あるシートから100行ずつ抽出したいのですが」
http://oshiete.goo.ne.jp/qa/4273114.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel シート複数 金額日計表と日付 簡単にシートコピーしたら前日の残高と日付を変更させたい 1 2022/07/15 22:10
- Excel(エクセル) Excelで質問です! 現在マクロを勉強中の初心者です。 以下のような表から、会社名が空白のもの以外 2 2022/06/14 12:16
- Excel(エクセル) Excelについて 1 2023/03/06 10:26
- Excel(エクセル) 添付写真上のExcelシートのように時間と曜日ごとに担当者が振り分けられているシートがあります。 例 1 2023/03/08 13:02
- Visual Basic(VBA) excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける 2 2022/08/11 05:33
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリー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行飛ばしで転記す...
-
【エクセル】プルダウン設定の...
-
エクセルのページをシートごと...
-
ページの設定を別シートにコピ...
おすすめ情報