|
>例:
>シート1のA1に金額、A2に個数が入っているとする。
>(それが永遠とA列に300行にそんな感じで入っているとする・・・)
>で、シート2のA1にシート1のA1を貼り付け、B1にシート1のA2を貼り付け。
>
>これでわかりますか?
>上記の例だとシート1のA9のデータはシート2のA5、A10はシート2のB5に貼り付く
単純にアルゴリズムの話しだと思いますが、
基本的な処理は以下のような感じになると思います。
Private Sub Seiretu()
Dim s1row As Long 'シート1の操作先の行番号
Dim s2row As Long 'シート2の操作先の行番号
s1row = 1
s2row = 1
While (Sheet1.Cells(s1row, 1).Value <> "")
Sheet2.Cells(s2row, 1).Value = Sheet1.Cells(s1row, 1)
Sheet2.Cells(s2row, 2).Value = Sheet1.Cells(s1row + 1, 1)
s1row = s1row + 2
s2row = s2row + 1
Wend
End Sub
いかがでしょうか。
|
|