Excel エクセル 2003 セル内のデータ移動 マクロ？

データはＥ６からＥ297まであります。
Ｅ７のデータをＤ６へ、Ｅ９のデータをＤ８へ下に、これを最後まで行いたいのです。
ドラッグアンドドロップや切り取り、貼り付け(ショートカット)では時間がかかるので何かいい方法はありませんでしょうか？(マクロなのかな？)

また、Ｅ列だけでなく他の列(任意)へ移動したときや、Ｅ17などのように任意から始まるときなど、そしてＥデータが297ではなくもっと増えたときなどの対応などをあわせてお教えいただくとうれしいです。
よろしくお願いします。

No.1 ベストアンサー 回答者： zap35 回答日時： 2007/03/24 13:31

D6セルに

　=IF(E7="","",E7)
と入力して下方向にコピーする方法ではいけませんか？

行削除をする可能性があるなら以下の式の方が良いかもしれません。
　=IF(OFFSET(D6,1,-1)="","",OFFSET(D6,1,-1))

列の挿入や削除で列が変わっても問題なく表示できます

この回答へのお礼

ありがとうございます。
Ｅ列は空白はないのでＩＦ文は使わずに使用しました。
=OFFSET(D6,1,1)
でできました。
ありがとうございました。

お礼日時：2007/03/25 12:43

No.2 回答者： merlionXX 回答日時： 2007/03/24 15:14

E6からE297まであるデータのうち、奇数行のデータをD列の一つ上のセルに移動させるということでしょうか？

Sub test01()
With ActiveSheet
For i = 6 To 297
If i Mod 2 <> 0 Then
.Cells(i - 1, "D") = .Cells(i, "E")
.Cells(i, "E").ClearContents
End If
Next
End With
End Sub

この回答へのお礼

>E6からE297まであるデータのうち、奇数行のデータをD列の一つ上のセルに移動させるということでしょうか？
そうです。

マクロではこう組むのですね。
使ってみたいと思います。
ありがとうございました。

お礼日時：2007/03/25 12:45