VBA EXCEL2007 別シートへの セルのデータの貼り付けまたはコピー 連続

Question

Sheet1･･･貼り付け先

Sheet2･･･貼り付けデータ元

Sheet2のH2～Hのz　のデータを

Sheet1のB12～Bのz　へ貼り付けたい。  

※Zは増えたり減ったりする

・For～Nextを使用したい。

・Rnageで選択したい。  

変数の宣言

Dim z As Long

Dim i As Long 　はしてあります。  

上記希望がかなわないようでしたら、

For～Nextは絶対に使用したいです。  

VBAについて、かじったばかりでよくわかっておりませんので、

説明が足りない部分があったら申し訳ございません。  

何卒、よろしくお願い致します。

Answer 1

こんなのでいいでしょうか？

Sub データ転記()

    Dim i As Long

    Dim z As Long

    z = Sheets("Sheet2").Range("H2").End(xlDown).Row

    For i = 2 To z

        Sheets("Sheet1").Range("B" & i + 10).Value = _

            Sheets("Sheet2").Range("H" & i).Value

    Next

End Sub

Answer 2

TETUO様

ご回答ありがとうございます。

正常に動作致しました。

iの定義に「+ 10」という考え方があることがが勉強になりました。

ありがとうございました。