複数行選択して移動するには、どうしたらよいですか？

質問

複数行選択して移動するには、どうしたらよいですか？

たびたび、すみません。
E列に数値が並んでいて、その順位をF列に記述するようにしました。
これで、A,B,C,D列も一緒にG,H,I,J例に記入する方法を教えて頂けませんでしょうか？
数値が記入されていてA→G、B→H、C→I、D→Jに値だけ移動させたいのですが、すみませんが宜しくお願いします。

Sub Macro1()

Dim r As Range, a As Range
Range("E1:E17").Select
For Each r In Selection
If r.Value <> "" Then
r.Offset(, 1).Value = Application.WorksheetFunction.Rank(r, Selection, 1)
End If
Next r
End Sub

あと、Select
しない書き方も研究してください。と指摘、頂いたのですがまだ未解決なので、そこはそのままになっております

回答No.1

kmetu · ベストアンサー

値だけ移動だと

Range("G：J").Value=Range("A:D").Value
Range("A:D").Clear

になりますけど…

ランクをA→G、B→H、C→I、D→Jに設定したいというのでしたら

Range("E1:E17").Select
のE列指示をそれぞれ各列に
r.Offset(, 1).Value
の数値をGの場合は6にしてくださいAからGまでの差6列という意味の数値

お礼

kmetu様
有難うございます。各列それぞれ指示で出来ました。