VBAエクセル二つの異なるシートに値の比較

Question

私は別のシートに配置されている2つの列の値を比較するために探しています。一致が見つかった場合、私は一致した値と同じ行にある3番目の列の値を減少します。私は、以下の方法をハードコードにそれを知っているが、私はむしろ、Excelのすべての行に対して、このコードを含める必要がありません。

If Range("g12").Value = Worksheets("Inventory Levels").Range("b2").Value Then 
    Worksheets("Inventory Levels").Range("c2").Value = Worksheets("Inventory Levels").Range("c2").Value - 1 
End If 

Answer 1

これは簡単なループで行うことができます。詳しくは私のコメントを参照してください。

Dim i as Integer 
' Use "With" to fully qualify your sheet objects. 
With ThisWorkbook 
' Loop over rows 2 to 20 (change this as necessary) 
For i = 2 to 20 
    ' Use ampersand (&) for concatenation of strings 
    If .Sheets("Sheet1").Range("G" & (i + 10)).Value = .Sheets("Inventory Levels").Range("B" & i).Value Then 
     .Sheets("Inventory Levels").Range("C" & i).Value = .Sheets("Inventory Levelts").Range("C" & i).Value - 1 
    End If 
Next i 
End With