Excel VBA 全てのセルを読み込み、背景色で判断
VBA初心者です。環境はWindowsXP,Excel2003です。
よろしくお願い致します。
1~3のシートの全てのセルを読み込んで、背景色が赤色のセルの文字をシート4にコピペしたいのです。
このとき、赤色になるセルの列は必ずF~ABまで結合されています。
替わるのは何行目かという行数のみです。
(結合セルは、最初のH列と見なせば良いのであれば気にしないで下さい。)
さらに、赤色のセルをコピペする際に、
赤色のセルから上に上がって、
最初の空白のあるセルの下3行も一緒にコピペして
シート4に連れて行きたいのです。
ほとんどのセルは文字と数字で埋まっていますので、
空白セルを条件にすると組み易いかと考えました。
【シート4】は下記のようになる予定です。
ABCDEFGHIJKLMNOPQRSTU
1~背景色が赤かったシート1のセル~~~~~
2~を上に行って最初の空白のあったセルの~~
3~下3行の丸々コピペ~~~~~~~~~~~
4~~背景色が赤かったシート1のセル内容~~
5~背景色が赤かったシート2のセル~~~~~
6~を上に行って最初の空白のあったセルの~~
7~下3行の丸々コピペ~~~~~~~~~~~
8~~背景色が赤かったシート2のセル内容~~
9~背景色が赤かったシート1のセル~~~~~
10~を上に行って最初の空白のあったセルの~~
11~下3行の丸々コピペ~~~~~~~~~~~
12~~背景色が赤かったシート1のセル内容~~
カナリの初心者なため、組まれたものは読めるのですが、
最初から組む事がなかなか出来ません。
お手数をおかけしますが、
どなたか分かる方がいらっしゃったらお願い致します。