エクセルのマクロでセル選択するには

質問

初心者です！
エクセルのＳｈｅｅｔ１に30箇所のセルをマクロで選択したいのですが、
たまに選択するセルが変わります。
そこで、Ｓｈｅｅｔ2のＡ１から下へＳｈｅｅｔ１の選択する位置を「Ｂ２」「Ｃ５」「Ｄ１０」・・・としてマクロで一発で30箇所のセルを選択する方法を教えてください
Ｓｈｅｅｔ2のＡ１から下へ入力するセル位置はその都度変化します。
変化したときにそのマクロを実行すると選択できるといいのですが！！
よろしくお願いします。

回答No.1

okormazd · ベストアンサー

こんなんかな。
Sub test()
Dim r As Integer, i As Integer
Dim slc As String, slc1 As String
r = Sheet2.Range("A1").End(xlDown).Row - 1
For i = 0 To r
slc1 = Sheet2.Range("A1").Offset(i, 0)
slc = slc & slc1 & ","
Next
slc = Left(slc, Len(slc) - 1)
Sheet1.Select
Range(slc).Select
End Sub

お礼

早々、ご回答　大変ありがとうございました。
出来ました！！
これで、エクセルが使いやすくなりました。
今後も、よろしくお願いします！！