[[20130523132157]]　『ある条件の時に、あるセルの文字を、上のセルの文』（困ってしまうま）　ページの最後に飛ぶ

『ある条件の時に、あるセルの文字を、上のセルの文字に合体させたい』（困ってしまうま）

■は空白を表しています。
このような状態を

 Ａ■■■Ｂ■■■Ｃ■■■Ｄ■■■Ｅ■■■
1あ■■■い■■■う■■■え■■■お■■■
2か■■■き■■■く■■■け■■■こ■■■
3■■■■■■■■■■■■■■■■さ■■■
4■■■■■■■■■■■■■■■■た■■■
5な■■■に■■■ぬ■■■ね■■■の■■■
6■■■■■■■■■■■■■■■■は■■■
7ま■■■み■■■む■■■め■■■も■■■

このようにしたい

 Ａ■■■Ｂ■■■Ｃ■■■Ｄ■■■Ｅ■■■
1あ■■■い■■■う■■■え■■■お■■■
2か■■■き■■■く■■■け■■■こさた■
3■■■■■■■■■■■■■■■■■■■■
4■■■■■■■■■■■■■■■■■■■■
5な■■■に■■■ぬ■■■ね■■■のは■■
6■■■■■■■■■■■■■■■■■■■■
7ま■■■み■■■む■■■め■■■も■■■

ある行のD列のセルが空白の場合に、同じ行のE列のセルの文字を、
上の行の（となりのD列セルが空白でない）E列のセルの文字の後ろに合体（セルの結合ではない）させる
ようなマクロを作りたいです。
　　　　　　　　　　　　　　
よろしくお願いします。

WINDOWS7 EXCEL2003

 こんなことでしょうか？(ROUGE)
　
Sub Zebra()
Dim i As Long, txt As String
For i = Range("E" & Rows.Count).End(xlUp).Row To 2 Step -1
    txt = Range("E" & i).Value & txt
    If Range("D" & i).Value <> "" Then
        Range("E" & i).Value = txt
        txt = ""
    Else
        Range("E" & i).ClearContents
    End If
Next
End Sub

出来ました！ありがとうございます！
ありがしまうま！
（困ってしまうま）

コメント返信：

[ 一覧(最新更新順) ]

[[20130523132157]] 『ある条件の時に、あるセルの文字を、上のセルの文』（困ってしまうま） ページの最後に飛ぶ

[[20130523132157]]　『ある条件の時に、あるセルの文字を、上のセルの文』（困ってしまうま）　ページの最後に飛ぶ