スキャン値を求めると残し条件が満たされたとき、ブランク（またはゼロ）

Question

I次のコードを持っている：

Sub DELETE2() 

Dim dat As Variant 
Dim rng As Range 
Dim i As Long 

Set rng = Range("C12:K89") 
dat = rng 
For i = LBound(dat, 1) To UBound(dat, 1) 
    If dat(i, 1) = "3" Or dat(i, 1) = "2" Then 
     dat(i, 1) = "" 
    End If 
Next 
rng = dat 

End Sub 

私の目標は、その範囲内の値3または1と離れると、すべてのセルを見つけることでした条件が満たされても動作していない場合は空白（または0で塗りつぶします）。エラーメッセージも出力もありません。

Answer 1

私はExcel Replace Allがこれを簡単に提供し、これを行うためのマクロは必要ないと思います。

マクロコードを探している場合は、以下のコードを試してみてください。以下のコードを試してみましたが、私のサンプルデータでうまく動作しました。

Sub DELETE2() 

Dim rng As Range 
Dim cellval As Variant 


Set rng = Range("C12:K89") 

For Each cellval In rng.Cells 

     If (cellval .Value = "3" Or cellval .Value = "2") Then cellval .Value = "" 


Next cellval 

End Sub 

Answer 2

シヴァはすでに答えを与えたが、ここにコードを「修正」する方法です：

ループに配列全体を通じて、列のための二番目のパラメータを使用し

Dim i As Long 
Dim j As Long 
'... 
For i = LBound(dat, 1) To UBound(dat, 1) 
    For j = LBound(dat, 2) To UBound(dat, 2) 
     If dat(i, j) = "3" Or dat(i, j) = "2" Then 
      dat(i, j) = "" 
     End If 
    Next j 
Next i 

あなたは配列上でFor Eachループを使用できますが、参照ではなく値のみを取得するため、配列内の要素を置換しない要素にのみアクセスできます。

あなたは配列でそれを行うにはしたくない場合は、それがFor EachループとなりますReplaceメソッドは、おそらく1については