クリアコンテンツK

Question

例コードを実行する前に、

コードを実行した後ここに私のコードですが、私はメートルに使用するかわからないんだけどそれは動作します

Set rng = Range("K3", Range("K1000").End(xlUp)) 
For Each cel In rng 
If cel.Value = "Remove" Then 

'ClearContents in column B to G for each row that has Remove in column K 

End If 
Next cel 

Answer 1

コードのその位置で使用できる多くのステートメントがあります。一つは、次のようになります。

cel.Offset(0, -9).Resize(1, 6).ClearContents 

---

もう一つは次のようになります。

cel.EntireRow.Range("B1:G1").ClearContents 

Answer 2

別：

With ActiveSheet 
    .Range(.Cells(cel.Row,2),.Cells(cel.row,7)).ClearContents 
End with 

Answer 3

もう一つの方法は、このようにそれを行うことです。

With ActiveSheet 
    .Range(.Cells(cel.row,2),.Cells(cel.row,7)).clearcontents 
end with 

シートを参照すると、いくつかのエラーを回避するのに少し役立ちます - https://msdn.microsoft.com/en-us/library/office/ff196273.aspx