[[20200502081445]]　『シート1からシート2へ、行をずらして転記』（ミキ）　ページの最後に飛ぶ

『シート1からシート2へ、行をずらして転記』（ミキ）

    シート1                シート2
    A     B    C         A    B .,,.E  
5 数字  数字  数字文字   7 数字 数字  数字文字
6 数字  数字  数字文字  10 数字 数字  数字文字
7 数字  数字  数字文字  13 数字 数字  数字文字  
                             C,D空白セル
シート1に5行目から入力すると、シート2の7行目から
2行おきに自動転記のコードを教えてください。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

自己流のマクロですが。

Sub Posting()

  Dim sr As Long
  Dim ar As Long

  sr = 5
  Do While Sheets("Sheet1").Cells(sr, 1) <> ""
    Sheets("Sheet2").Cells((sr - 4) * 3 + 4, 1) = Sheets("Sheet1").Cells(sr, 1)
    Sheets("Sheet2").Cells((sr - 4) * 3 + 4, 2) = Sheets("Sheet1").Cells(sr, 2)
    Sheets("Sheet2").Cells((sr - 4) * 3 + 4, 3) = Sheets("Sheet1").Cells(sr, 3)
    sr = sr + 1
  Loop
End Sub

（メジロ） 2020/05/02(土) 09:38

＞Dim ar As Long

変数 ar は使わなかったので上のステートメントは不要です。
（メジロ） 2020/05/02(土) 10:26

早々に回答ありがとうございます、また相談したい事が
有りましたらよろしくお願いいたします。
（ミキ） 2020/05/02(土) 11:01

コメント返信：

[ 一覧(最新更新順) ]

[[20200502081445]] 『シート1からシート2へ、行をずらして転記』（ミキ） ページの最後に飛ぶ

[[20200502081445]]　『シート1からシート2へ、行をずらして転記』（ミキ）　ページの最後に飛ぶ