VBAループ：セルに特定の値が含まれている場合、その値とその次の3行を含む行を削除します。

Question

こんにちは、私は削除を削除する長いレポートをループしようとしています。

一般的なロジックは次のとおりです。スクリプトが列B1に値 "DELETE"を見つけたら、範囲 "A1：I4"を削除する必要があります。私は明らかに動作しない以下のスクリプトを持っています。私は "X"変数を使用して複数の列にわたる範囲の正しい構文を理解しようとしています。どんな助けもありがとう！

Sub RemoveDel() 
lastrow = Cells(Rows.Count, "B").End(xlUp).Row 
For x = 1 To lastrow 

    If Range("B" & x).Value = "DELETE" Then Range("A" & x:"I" & x + 4)).ClearContents 

    Next x 
End Sub 

Answer 1

私はあなただけのこの部分を修正して引用符でコロンを置くことを考える：

は、私は、次のループを持っています。

If Range("B" & x).Value = "DELETE" Then Range("A" & x & ":I" & x + 4)).ClearContents 

EDIT

ます。また、最初のビットのための "セル" のではなく範囲を使用することができます。

If Cells(x,"B").Value = ..... 

これが私の作品：

Sub RemoveDel() 
lastrow = Cells(Rows.Count, "B").End(xlUp).Row 
For x = 1 To lastrow 

    If Range("B" & x).Value = "DELETE" Then Range("A" & x & ":I" & x + 4).ClearContents 

Next x 
End Sub