Excelセル範囲内の値のみ1行づつ開ける

下記コードでは1行づつ挿入により下段（罫線枠）までずれてしまいます。
範囲内（E8:G15）での値のみ1行づつ開け表-2のように罫線をずらさずにするにはどのようにすれば良いでしょうか。
どなたか解る方よろしくお願いします。

Sub Test()
Dim i As Long
If TypeName(Selection) <> "Range" Then Exit Sub
With Selection
For i = .Rows.Count To 2 Step -1
Intersect(.Cells(i, 1).EntireRow, .Columns).Insert xlDown
Next
End With
End Su

No.5 ベストアンサー 回答者： jin34 回答日時： 2013/04/03 10:06

行挿入ではなくコピー＆ペーストを使う方法。

セル範囲の開始行から数えてｉ行目のデータは開始行から数えて2×ｉ行下にずれることを利用。
Sub test()

Dim toprow As Long
Dim i As Long

If TypeName(Selection) <> "Range" Then Exit Sub

toprow = Selection(1).Row

For i = Selection.Rows.Count - 1 To 1 Step -1
Range(Cells(toprow + i, 5), Cells(toprow + i, 7)).Copy Cells(toprow + 2 * i, 5)
Range(Cells(toprow + i, 5), Cells(toprow + i, 7)).ClearContents
Next i

End Sub

この回答へのお礼

有難うございます。うまく対応でき非常に助かりました。

お礼日時：2013/04/03 21:48

No.4 回答者： jin34 回答日時： 2013/04/02 01:35

2番めの解答より、

Range(Cells(lastrow,5), Cells(lastrow,7)).delete shift:=xlshiftup
で部分削除。
この程度の応用はかんたんに調べられますが。。。

この回答への補足

ちなみに下行に文字（値）がある場合、やはり枠線が下方にずれてしまいます。どうにか良い方法はないでしょうか。

補足日時：2013/04/02 21:42

この回答へのお礼

有難うございます。値のみずらすことができ助かりました。

お礼日時：2013/04/02 21:27

No.3 回答者： bin-chan 回答日時： 2013/04/01 21:47

列Dを使って、ソートするのは？

D8～D15まで、１，３，５，２，４，６，７を割り振ってソート。
ソート後にD8～D15消去。

この回答へのお礼

有難うございます。

お礼日時：2013/04/02 21:43

No.2 回答者： jin34 回答日時： 2013/04/01 17:08

1行挿入したら最終行＋1行目をその都度削除すればよいのではないでしょうか。

Dim lastrow As Long をはじめに宣言しといて、
Intersect　と　Next　の行の間に
lastrow=Rang("E65536").End(xlup).Row+1
Cells(lastrow,5).Entirerow.Delete
を入れる。　

この回答への補足

ちょっとできなかったのですがやはり空欄挿入となるので削除しなければならないのでしょね。値だけずらすというの無理ですよね。他の列にも値があるため行削除したらその列も削除されるので。

補足日時：2013/04/01 21:19

この回答へのお礼

有難うございます。

お礼日時：2013/04/01 21:18

No.1 回答者： bin-chan 回答日時： 2013/03/31 00:15

表１が表２になる？何か、元表があるのでは？

この回答へのお礼

いや、ないのですが、有難うございます。

お礼日時：2013/04/01 21:09