Excelマクロの繰り返しの書き方

2023/09/07 07:18

このQ&Aのポイント

Excelマクロで、B4行からB100行まで特定の操作を繰り返す方法について教えてください。
For NextやDo loopを使用して繰り返し処理を行いたいが、セル内の書式について理解ができません。
また、別の操作も同様に繰り返したい場合もあります。Excelのversionは2019です。

ベストアンサー

Excelマクロの繰り返しの書き方

2018/12/01 16:32

Excelマクロで、下記のような操作を、B4行から、B100まで繰り返したいです。このような行を、100行まで書くのは、面倒なので、 For Nextや、Do loopを使いたいのですが、いろいろな指南書を読んでも、セル内の書式がイマイチ理解できないので、申し訳ないのですが、どなたか、ご指南いただけないでしょうか？ Range("B4").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("B6").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 同様な問題ですが、下記を50行繰り返したい、上記のご回答をいただければ、下記も理解できると思うのですが下記も作れないで困っています。できれば、これも教えていただければ助かります。 Range("A5").Select Selection.EntireRow.Delete Range("A6").Select Selection.EntireRow.Delete Excelのversionは2019です。以上、よろしくお願いします。

M_R_S
お礼率74% (109/147)

Excel（エクセル）
回答数2
ありがとう数0

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

f272
ベストアンサー率46% (8009/17117)

2018/12/01 17:04 回答No.1

まず Range("B4").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove これはselectしてそのselectされたセルにinsertしているが，いちいちselectする必要はない。したがって Range("B4").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove で十分です。次に繰り返しですが，Range("B4")の行を2行おきに100までということだと思う。直接にB4を変化させてもよいが，私ならoffsetを使う。つまり Range("B4").Offset(2)でRange("B6")と同じことになるのです。後はこの2を変数にして For i=2 To 100 Step 2 Range("B4").Offset(i).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Next i とすればよい。 Deleteの方もまず Range("A5").Select Selection.EntireRow.Delete ではなくて Range("A5").EntireRow.Delete とすべきです。そして上と同じように書き換えればよいのだが，5行目を削除したら元の6行目は5行目になっていますよ。つまり上のセルから順に削除していくのは削除後にどうなっているかを考えないといけないので面倒です。下の方の行から順に削除すればそういうことを考えないで済みます。したがって5行目から54行目までを削除するのなら For i=49 To 0 Step -1 Range("A5").Offset(i).EntireRow.Delete Next i とします。なお，一応ループさせるコードが欲しいようだからこのようにしたのだが，この場合には一気に Range("A5").Resize(50).EntireRow.Delete の方がもっとよい。

その他の回答 (1)

skp026
ベストアンサー率45% (1011/2238)

2018/12/01 17:02 回答No.1

以下のようなCellsを使ったサンプルが参考になると思います。 https://www.e-sanwa.co.jp/sbs/column/20170907/ Rangeにする必要があるなら以下を参考ください。 https://qiita.com/e-katayama/items/97024a58b891507af632 ※ 以下はoffsetを使った別の方法です。 http://www.start-macro.com/55/w/s035.html ※ 以下のようなキーワードで検索すると、今回の件に関係する情報は集めやすいと思います。 Excel vba ループセル位置移動以上、参考にならなかったらごめんなさい。

関連するQ&A

EXCELのマクロについて
お世話になっております。以下のマクロを1万行分繰り返したいのですが、回数を1万回と指定する構文を教えてください。よろしくお願いします。 Sub Macro16() ' ' Macro16 Macro ' ' Keyboard Shortcut: Ctrl+Shift+Z ' ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ActiveCell.Offset(-1, 0).Range("A1:M1").Select Selection.Copy ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste ActiveCell.Offset(-1, 2).Range("A1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "7/5/1905" ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.FormulaR1C1 = "7/6/1905" ActiveCell.Offset(1, -2).Range("A1").Select End Sub
- ベストアンサー
- Excel（エクセル）
エクセルのマクロ
こんばんは、宜しくお願いします。エクセルで行を挿入し前行の数式をコピーするマクロの記録を行ったのが下記の内容です。 Sub Sounyu() ' ' Sounyu Macro ' Rows("4:4").Select Selection.Insert Shift:=xlDown Range("B3:C3").Select Selection.AutoFill Destination:=Range("F3:F4"), Type:=xlFillDefault Range("F3:F4").Select Range("G3").Select Selection.AutoFill Destination:=Range("G3:G4"), Type:=xlFillDefault Range("G3:G4").Select Range("A2").Select End Sub 最後の　Range("A2").Selectを挿入した行のＡのセルへカーソルがいくようにするにはどのように変更したら良いのでしょうか？教えてください。
- ベストアンサー
- オフィス系ソフト
VBA進捗状況を可視化（数値）で
お願いします。いま以下の作業をかりに1000回繰り返し、なおかつその進捗状況を可視化（数値で）する一番簡単な記述はどのように書けばいいのでしょうか。実行の順番も併せて VBA上級者の方、よろしくお願いいたします。 Sub 移動() ' ' 移動 Macro Range("D6:D15").Select Selection.Copy Range("H6").Select ActiveSheet.Paste Columns("G:G").Select Application.CutCopyMode = False Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("C2").Select End Sub
- ベストアンサー
- Visual Basic
VBAマクロエラー【オーバーフローしました。】
以下のVBAマクロで突然エラーが出るようになってしまいました。原因がわからず困っています。どなたかご教授ください。該当部分 :S = Range("B2").End(xlDown).Row エラーMrg:実行時エラー'6': オーバーフローしました ----------マクロ文---------- Sub 部担コード読み替え() Dim R_Count As Integer Dim P_Sheet As String Dim S As Integer 'データ取込用のファイルを開く Workbooks(D_Book).Activate Sheets("Data1").Select Columns("C:C").Select Selection.Insert Shift:=xlToRight Range("B2").Select S = Range("B2").End(xlDown).Row Range("C2:C" & S).Formula = "=SUBSTITUTE(SUBSTITUTE(RC[-1],""%"",""1""),""*"",""2"")" Range("C1").Value = "部担コード" Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Columns("B:B").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("A1").Select Sheets("Data2").Select Columns("C:C").Select Selection.Insert Shift:=xlToRight Range("B2").Select S = Range("B2").End(xlDown).Row Range("C2:C" & S).Formula = "=SUBSTITUTE(SUBSTITUTE(RC[-1],""%"",""1""),""*"",""2"")" Range("C1").Value = "部担コード" Columns("G:G").Select Selection.Insert Shift:=xlToRight Range("G2:G" & S).Formula = "=SUBSTITUTE(SUBSTITUTE(RC[-1],""%"",""1""),""*"",""2"")" Range("G1").Value = "キー" Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Columns("B:B").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Columns("E:E").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("A1").Select End Sub
- 締切済み
- Excel（エクセル）
エクセルマクロで行を変えて千回カット＆ぺースト
下記のコードでB,C,D・・・と行を1,000回変えて同じ作業をしたいのですが、どのようにしたらよいか分かりません。どなたかお詳しい方アドバイスをお願いします。 Range("A18:A32").Select Selection.Cut Destination:=Range("B3:B17")　←B,C,D・・と変えてカットしたい。 Rows("18:32").Select Selection.Delete Shift:=xlUp Range("A18:A32").Select Selection.Cut Destination:=Range("C3:C17") Rows("18:32").Select Selection.Delete Shift:=xlUp Range("A18:A32").Select Selection.Cut Destination:=Range("D3:D17") Range("D3:D17").Select End Sub
- ベストアンサー
- Excel（エクセル）
[ マクロ ]　エラーになったりならなかったりする
マクロがエラーになったり、ならなかったりします。エラーメッセージは、[ 起動されたオブジェクトはクライアントから切断されました。 ]　で、エクセルが固まってしまい、タスクマネージャーから強制終了をして、再度動かすと動きます。また、検索をして、下記フォルダ内を削除したりしましたが、あまり変化はないようです。 C:\Users\ユーザー名\AppData\Local\Temp 1000行×12列ほどのシート（文字と数字）が10シートほどなので、それほど重いとも思えません… デバックでひっかかる（黄色く変わる）のは、下記コードのこの部分です。 ●ひっかかる部分 Selection.Insert Shift:=xlToRight ●コード（コピーして、挿入貼り付けをしている） Dim ABC As Worksheet Set ABC = ActiveSheet Sheets("tagハリカ").Select Columns("T:W").Select Selection.copy ABC.Select Columns("F:F").Select Selection.Insert Shift:=xlToRight Range("F2").Select 3回に1度ほどひっかかるので、この部分のコードだけを別にして、下記エラー実験用のマクロをつくりましたが、これでも、同じエラーが出ることがあります。 ●実験マクロ１ ※　アクティブシートをaという名前に変えました Sub エラーのための実験() Sheets("tagハリカ").Range("T:W").copy Sheets("a").Range("F:F").Insert Shift:=xlToRight End Sub →　5回目くらいに、オートメーションエラーが出て、（先ほどと同じエラーメッセージ）下記部分が黄色くなります。 Sheets("a").Range("F:F").Insert Shift:=xlToRight ☆　どのようにしたら、スムーズに動いてくれるのでしょうか… どうぞ、よろしくお願いいたします。
- 締切済み
- Excel（エクセル）
簡単なマクロですが教えてください。
マクロで、現在アクティブになっているセルのある行全体を選択し、そこに行を追加（挿入）する。その後、1行目にある行全体をコピーして、追加（挿入）した行に1行目の数式をコピーしたいのです。マクロの記録から作成しようとしたら、毎回13行目に挿入・コピーするようになってしまいました。例えば、マクロ実行時に5行目にアクティブセルがあれば、 5行目に挿入したいのです。この方法を教えて頂けませんでしょうか。現在の誤ったマクロ構文を付けますので、どのように直したらよいか教えて頂けませんか。何卒よろしくお願いいたします。 Sub osietekudasai() ' ' osietekudasai Macro ' ' Rows("13:13").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows("1:1").Select Selection.Copy Rows("13:13").Select ActiveSheet.Paste Application.CutCopyMode = False Range("A13").Select
- ベストアンサー
- その他MS Office製品
セル結合と列挿入
マクロの記録を使い書いて見ましたが、１行置きに３行挿入し、A2:A5 , B2:B5 ,C2:C5 ,D2,D5 言う感じでセル結合を5000行まで行い、最後にＤ、E列、列の挿入したいのですが、どのように書けば宜しいでしょうか？すでに、データが入っています。 Sub Macro1() Rows("3:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows("7:9").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A2:A5").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("B2:B5").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("C2:C5").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A6:A9").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("B6:B9").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("C6:C9").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Columns("D:E").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Selection.ColumnWidth = 18.88 Range("A2:A5").Select End Sub
- ベストアンサー
- Visual Basic
Excel　繰り返しマクロ
下記のようなマクロを使ってn個あるシートの内容を「集計」シートにコピーさせるようにしました。 (自動マクロとの組合せなので、スマートではないかもしれませんが) でも、これだと「集計」シートもコピー作業を行ってしまうので、「集計」シートはコピー作業をしないように除外したいのですが、どうしたら良いのでしょう? 実際にはシート数は30程度、コピペ項目は1シートあたり30項目程度あります。よろしくお願いします。 ------------------------- Sub テスト2() ' For i = 1 To Worksheets.Count '案件番号等コピー ' Sheets(i).Select Range("D3").Select Application.CutCopyMode = False Selection.Copy Sheets("集計").Select Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '案件名 Sheets(i).Select Range("F3").Select Application.CutCopyMode = False Selection.Copy Sheets("集計").Select Range("B4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '国名 Sheets(i).Select Range("E3").Select Application.CutCopyMode = False Selection.Copy Sheets("集計").Select Range("C4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '選択セルの解放 Application.CutCopyMode = False '行挿入 ' Sheets("集計").Select Rows("4:4").Select Selection.Insert Shift:=xlDown Next i End Sub
- ベストアンサー
- その他(業務ソフトウェア)
エクセルのマクロ実行→オブジェクトがはみでるエラーについて
エクセルでマクロを作り、実行したのですが、データを集計し「2」で集約する部分で「オブジェクトからはみでます」というエラーがでます。原因がわかりません。正しく実行できる方法を教えてください。 Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3, 4, 5, 6, _ 7, 8, 10, 13), Replace:=True, PageBreaks:=False, SummaryBelowData:=False Range("D2").Select 　　↓この部分でエラーになります。 ActiveSheet.Outline.ShowLevels RowLevels:=2 Range("A2").Select Selection.Insert Shift:=xlDown Range("P2:R2").Select Selection.Insert Shift:=xlDown Range("B1").Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy
- 締切済み
- オフィス系ソフト