excel - for each を使用した VBA Excel の処理範囲

Question

簡単な質問:

私は3つの範囲を設定sourceRng1し、sourceRng2 targetRng. サイズはすべて同じです。

私はこれを達成したい:

For each cell in targetRng
    cell.value = sourceRng1 / sourceRng2
next cell

sourceRng1ここで、 andのインデックスはsourceRng2各反復で 1 ステップジャンプします。

したがって、 and の最初と 2 番目の値がandのsourceRng1場合sourceRng24 71 3

その後cell.value = 4/1、最初の反復で。cell.value = 7/3秒で。

この操作を行う方法について何か提案はありますか?

Answer 1

Dim x as long
For x=1 to targetRng.cells.count
    targetRng.Cells(x).value = sourceRng1.cells(x).value / sourceRng2.Cells(x).value
next cell