他のシートの任意の列に１行おきに表示する

質問

よろしくお願いします。
下の構文ですと
Worksheets("入力")の３列目５行目以降のデーターが
Sheet2の同じ列（３列目）５行目以降に１行おきに表示されます。

これを
Worksheets("入力")の３列目５行目以降のデーターを
Sheet2の７列目５行目以降に１行おきに表示したいのですが
どのように書き直せばよいでしょうか。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long, j As Long
j = 5
With Worksheets("入力")
For i = 5 To .Cells(Rows.Count, 3).End(xlUp).Row
.Rows(i).Copy Worksheets("Sheet2").Cells(j, 1)
j = j + 2
Next i
End With
End Sub

回答No.1

hige_082 · ベストアンサー

自分でコードを書いたなら、質問がピンポイントになりそうですが・・・

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long, j As Long
j = 5
With Worksheets("入力")
For i = 5 To .Cells(Rows.Count, 3).End(xlUp).Row
.Range(.Cells(i, 3), .Cells(i, 20)).Copy Worksheets("Sheet2").Cells(j, 7)
j = j + 2
Next i
End With
End Sub

変更箇所は２つ
よーく見比べてみてください

お礼

お礼を書き込むのを忘れていました。
すみません　
hige_082さん　ありがとうございました。