ryo********

2022/6/22 22:38

33回答

マクロ（VBA）の書き方を教えて下さい。 複数の品番に対し、数量が記入された表があります。 その数量の合計（I列）が0ゼロのとき、その品番と数量の行を削除させたいです。

マクロ（VBA）の書き方を教えて下さい。 複数の品番に対し、数量が記入された表があります。 その数量の合計（I列）が0ゼロのとき、その品番と数量の行を削除させたいです。 イメージは添付画像の通りです。 ご教示の程お願い致します。。

画像

Visual Basic | Excel・118閲覧・xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

1
taihenda****

カテゴリマスター

2022/6/23 9:23

1個ずつ判定して行の削除をするとバタバタするのでまとめてから削除しますが 削除という処理はとても重いので数万行のデータになると時間がとてもかかります。 その場合はまとめて削除しても時間がかかるのでSortを使います。 今回はせいぜい1000行程度まで、という見込みでUnionメソッドでまとめます。 詳しくは https://www.relief.jp/docs/excel-vba-application-union-method.html が参考になると思います。 Sub Test() Dim i As Long, rng As Range, r As Range For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row Step 2 If Cells(i, "I") = 0 Then Set r = Cells(i - 1, 1).Resize(2) If rng Is Nothing Then Set rng = r Set rng = Union(rng, r) End If Next If Not rng Is Nothing Then rng.EntireRow.Delete End If End Sub

1人がナイス！しています

ThanksImg質問者からのお礼コメント

有難う御座います。 Unionは使った事がなかったので大変勉強になりました。 また、解説のリンク先まで貼っていただき有難う御座います。

お礼日時：6/26 23:24

その他の回答（2件）

1
1150246010

2022/6/24 20:18

貴方の質問の趣旨は分りませんが、こんな単純なコードでは駄目ですか。 Sub 行の削除() Dim n0 As Integer For n0 = Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1 If Cells(n0, 2).Value = "数量" And Cells(n0, 9).Value = 0 Then Range(Cells(n0, 2), Cells(n0 - 1, 9)).Select Selection.Delete Shift:=xlUp End If Next End Sub

画像

1人がナイス！しています

1
tak********

2022/6/23 5:39

以下のようなものでしょうか？ ・「Private Sub CommandButton1_Click()」はACTIVEXのボタンの場合です。実施環境にあわせてください。 ・「合計値が０の場合」とありますが、０以下で判断しています。０だけでいいのであれば、 If Cells(ii, "I") <= 0 Then を If Cells(ii, "I") = 0 Then にしてください。 Private Sub CommandButton1_Click() Dim ii As Long Application.ScreenUpdating = False For ii = Cells(Rows.CountLarge, "B").End(xlUp).Row To 3 Step -2 If Cells(ii, "I") <= 0 Then Cells(ii - 1, "A").Resize(2).EntireRow.Delete End If Next ii Application.ScreenUpdating = True End Sub

1人がナイス！しています