変数を利用したマクロ

質問

以下のようなことをやりたいと思っています。

変数iはA列にランダムに入る整数です。
以下の表に対して
　A B
1 1
2
3
4 2

Cell("i +12”,”D”)にSheets(2).Cell("i + 10","i").Valueを入れたいとおもっています。
A1は1だから、D13にシート２のA11の計算結果の値を返す。
A2、3は空白だから何も返さない。
A4は2だからD16にシートシート２のD14の計算結果を返す・・・
以上を指定の行＝A120までこの処理を繰り返す。

これをマクロで組む方法を教えて頂けませんか？
また、上の例では変数iを列にも行にも使用していますが、このようなことは可能ですか？

回答No.1

tom04 · ベストアンサー

こんばんは！

質問文をそのまま素直にやれば

Sub Sample1()
Dim i As Long
For i = 1 To 120
If Cells(i, "A") <> "" Then
Cells(i + 12, "D") = Worksheets("Sheet2").Cells(i + 10, i)
End If
Next i
End Sub

といった感じになると思うのですが、
これではA列に入っている数値の意味が全くありませんね！

それともサンプルが少ないためにたまたまこうなっているのか判りませんが、
実際はもっと複雑なのですかね？m(_ _)m

お礼

ご回答ありがとうございます。そうです。質問するにあたって、知りたい部分のみを中心に簡略化致しました。Iは行にも列にも適用できるんですね。

回答No.2

keithin

作成例：

sub macro1()
　dim r as long
　dim i as long
　worksheets("Sheet1").select

　for r = 1 to 120
　　if cells(r, "A") <> "" then

　　’Ａ列の数字を変数に受けてから
　　　i = cells(r, "A").value

　　’該当の転記を行う
　　　cells(i + 12, "D").value = worksheets("Sheet2").cells(i + 10, i).value

　　end if
　next i
end sub

＞A4は2だからD16にシートシート２のD14の計算結果を返す・・・

+12が途中から+14に化けてるのか、それともＡ４は２なのに４と勘違いしたのか、どっちですかね。
いずれにしても「何をしたいのか」の説明がそもそも間違ってたら、正しい回答は寄せられませんよ？

お礼

申し訳ございません。今後は桐光する際に、よく内容を確認します。
ありがとうございした。