エクセルマクロでの参照の仕方

質問

お世話になります。
早速質問させていただきます。
A1からA5までセルの位置が入っています。
B列には店舗名が入っています。
C列には数量が入っています。

　 　　 A 　　　　　 B 　　　　　　 C
1 　　　 B19 　　　 a店 　　　 10
2 　　　 G19 　　　 b店 　　　 20
3 　　　 L19 　　　 c店 　　　 30
4 　　 　Q19 　　 　d店 　　　 40
5 　　　 V19 　　　 e店 　　　 50

上の様なデータが有り、A列のデータがsheet2でC列のデータを入力する各セルになります。
sheet1のA列のデータを参照して、sheet2のセルにC列のデータを入れたいのですが（例えば「Sheets("sheet2").Range(B19)」には「10」を入れる）、セル内の文字列をセルの対象とすることができるのでしょうか。教えてください。、回答でなくアドバイスでも結構です。よろしくお願いします。

回答No.1

merlionXX · ベストアンサー

うまくアドバイスできないのでサンプルを書きました。
こんな感じでしょうか？

Sub test01()
Dim s1 As Worksheet, s2 As Worksheet
Dim c As Range
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
For Each c In s1.Range("A1:A5")
s2.Range(c) = c.Offset(0, 2)
Next
End Sub

お礼

早速の回答ありがとうございました。
おかげさまで出来ました。
マクロは独学で勉強していて分からないことが多いため、また質問させていただくかも知れませんが、その時にはまたよろしくお願いします。