Excelマクロで複数行を一つのセルにまとめる方法

会社でデータ管理シートを作成しているのですが、
当方マクロ初心者でして、ちんぷんかんぷんです。
提出期限も明日の定時までに迫り、切羽詰ってきたのでご教授をお願い致します。


シート名「データ」として、以下のシートを作っております。
[No.][分類１][N1][分類２][N２] [内容] [N3][コード1][F1][F2][F3][cd]
　1　　NA1　 X　　 ０　　 X　 商品1 XXXX DATE1 0000 000 0 XXXX　
　2　　NA1　 X　　 ０　　 X　 商品2 XXXX DATE1 0000 000 1 XXXX　
　3　　NA1　 X　　 ０　　 X　 商品3 XXXX DATE1 0000 000 0 XXXX　
　4　　NA1　 X　　 ０　　 X　 商品4 XXXX DATE1 0000 000 1 XXXX　
　5　　NA1　 X　　 ０　　 X　 商品5 XXXX DATE1 0000 000 2 XXXX　
　6　　NA1　 X　　 ０　　 X　 商品6 XXXX DATE1 0000 000 0 XXXX

大まかに記入するとこの様な形になるのですが、
ボタンを押すと、[F3]が１～9の値の時、[内容][cd]を直前の0の行の[内容][cd]それぞれのセルと結合するマクロを作らなければなりません。

[No.][分類１][N1][分類２][N２] [内容] [N3][コード1][F1][F2][F3][cd]
　1　　NA1　 X　　 ０　　 X　 商品1 XXXX DATE1 0000 000 0 XXXX　
** 　　 　　　　　　　　　　　 商品2 　 　 　*****　　　 ***　 XXXX　
　3　　NA1　 X　　 ０　　 X　 商品3 XXXX DATE1 0000 000 0 XXXX
** 　　 　　　　　　　　　　　 商品4 　 　 　*****　　　 ***　 XXXX
**　　 　　　　　　　 　　　　 商品5 　 　 　*****　　　 ***　 XXXX　
　6　　NA1　 X　　 ０　　 X　 商品6 XXXX DATE1 0000 000 0 XXXX


（「*」は文字位置調整用です）
分かりずらいかもしれませんが、ボタンを押して実行した結果このような状態にしたいのです。

VBAの教科書と共に、うんうん唸りながら色々試してみたのですが、
ただ時間だけが過ぎ、期限が差し迫ってしまいました...

どうかお知恵を拝借させて下さい、よろしくお願い致します。

No.2 ベストアンサー 回答者： keithin 回答日時： 2014/12/03 23:17

＞[F3]が１～9の値の時、[内容][cd]を直前の0の行の[内容][cd]それぞれのセルと結合する

Ｆ３が１～９なら、内容やＣＤ列の「実際の内容は見ないで」問答無用でセル結合しちゃって良い、というご相談ですね。
ご相談の修正は無しでお願いします。


＃マクロのセル結合は、実際には結構ラフで構いません。

sub macro1()
　dim r as long
　application.displayalerts = false
　for r = 2 to range("K65536").end(xlup).row
　　if 1 <= cells(r, "K") and cells(r, "K") <= 9 then
　　　cells(r - 1, "F").resize(2, 1).merge
　　　cells(r - 1, "L").resize(2, 1).merge
　　end if
　next r
　application.displayalerts = true
end sub

この回答への補足

動作確認をしたところF3の値から内容列、CD列の結合をする事が出来ました。
ありがとう御座います。

後は結合されたデータが結合したセルに全て格納する様に自分なりに頑張ってみます！

補足日時：2014/12/04 12:10

この回答へのお礼

回答ありがとうございます。

その通りで御座います。
中身は一切考慮せずにデータをマージしてそのセルを結合させるマクロです。

マクロ文まで書いて下さってありがとう御座います。
まだ試せてないですが、後で実行させて頂きたいと思います。

お礼日時：2014/12/04 09:39

No.1 回答者： High_Score 回答日時： 2014/12/03 22:53

補足要望です。

[内容]は商品１、商品２の列ですか？
[cd]は最終列のxxxxですか？
「結合する」というのは具体的に何ですか？文字列として数珠つなぎにするのですか？それとも数値として足し算するという意味ですか？

実行結果の[内容]や[cd]が、実行前と比べて変わってないように見えますが、何が変わったのでしょうか？

時間的に間に合うか否かはまったく分りませんが。。。

この回答への補足

回答ありがとうございます。

[内容]は商品１、商品２の列です。
[cd]は最終列のXXXXで間違いありません。

「結合する」というのは「セル結合」の事で御座います。
文字列として、１つのセル内に入れ込みたいということです。

図が随分と悪かったと見直して思いましたが、
1の行の[内容」セルには商品１と商品２が、[cd]セルにはXXXXという文字列が２つ格納されています。
また、３の行の[内容」セルには商品３、商品４、商品５が、[cd]セルにはXXXXという文字列が３つ格納されています。

正直諦め気味ですが、明日朝から頑張ります...

補足日時：2014/12/04 02:21