セルの移動で、お知恵をお貸しください。

質問

セルの移動で、お知恵をお貸しください。
Ａ列に数字を入れるとＢ列のセルを数字の分だけ、右や上に移動させたいのですが、可能でしょうか。

　　A列 B列 C列 　　 D列 　 E列 　　　Ｆ列　
　　１　　　　関数
　　２　　　　関数
　　５　　　　関数
　　１　　　　関数
　　３　　　　関数

右に移動↓

　　A列 B列 C列 　　 D列 　 E列 　　　Ｆ列　
　　１　　　　関数
　　２　　　　　　　　　関数
　　５　　　　　　　　　　　　　　　　　　　　　　　　　関数
　　１　　　　関数
　　３　　　　　　　　　　　　　　関数

回答No.3

hige_082 · ベストアンサー

Sub test()
Dim i
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 2).Cut Cells(i, 2).Offset(, Cells(i, 1).Value)
Next i
End Sub

補足

感謝です。右に移動できました！
上に移動は、できないものでしょうか。
よろしくお願いいたします。

回答No.4

hige_082

＞上に移動は、できないものでしょうか。
出来ますよ
質問には右に移動の条件しかありませんが？
条件が無いものには回答が出来ません

offsetで移動先を決めているので
後はヘルプかネットで調べてみてください

回答No.2

DOUGLAS_

こういうことでしょうか？

　A1:A5 に「1、2、5、1、3」と入っているとして、B1 に
=IF($A1=COLUMN(A1),"関数","")
と入力し、これを B1:F5 に コピーする。

回答No.1

hige_082

Sub test()
Dim i
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 2).Copy Cells(i, 2).Offset(, Cells(i, 1).Value)
Cells(i, 2).ClearContents
Next i
End Sub

補足

ありがとうございます。
コピーされずに、移動だけにしたいのですが、どこを変更すればよろしいのでしょうか。
上に移動する場合は、どこを変更すればよろしいのでしょうか。