セルの照合と列の削除

質問

以下のようにデータの整理をしたいのですが、関数やマクロで処理できませんか？
良い方法があれば宜しくご指導お願い致します。

B1とB2が同じなら、C2をD1にコピーして2列を削除
但し、D1が空白で無い場合はE1に
E1も空白で無い場合はF1に
F1も空白で無い場合はG1に…以下続く…

と言うようなものです。

どうぞ宜しくお願い致します。

回答No.3

web2525

マクロですがとりあえず順に

If Range("B1") = Range("B2") Then
これは分かりますよね
次に1行目の空白セルをD列から探していく方法ですが
i = 4
While Cells(1, i) <> ""
i =　i + 1
Wend
で空白セルを探し出して
Cells(1, i) = Range("C2")
でC2の内容をコピー

削除するのがどこなのかがいまいち分からないので後はご自分で工夫を

回答No.2

ja7awu

VBAで出来ますが、表現に曖昧なところがあります。

> B1とB2が同じなら、C2をD1にコピーして2列を削除

「値」が同じなら　という意味ですね？
「２列を削除」って AとB列ですか？　　正確に表現しましょうね。

関数で、列削除なんてことは出来ません。
VBAは、経験ありますか？

補足

レスありがとうございます。
2列ではなくて、2行の間違いでした。

VBAはなんとなくしか解りません。
作っていただいたものを貼り付けた程度です。
if文を使えば出来るのだろうという程度の認識です。

IF B1とB2が が等しければ
if D1 が空白であれば　C2をD1へ
if E1 が空白であれば　C2をE1へ
if F1 が空白であれば　C2をF1へ
　　　以下、希望のセル分だけ書く　2行削除
ELSE 何もしない

みたいな感じですが、EXCELのマクロにどう書けば良いのかまったくわからず質問させていただきました。
ご指導いただければ幸いです。どうぞ宜しくお願い致します。

回答No.1

orangezzzz

こんばんは。
関数でもマクロでも無理ですよ。
いったい、どこまで続ける気ですか。
申し訳ないですが、地道にやって頂くしかありません。