訂正します。(VBAでのセルの結合)

先ほどは解りづらい文章ですいませんでした。


同じ内容ですが

ＡＢＣＤ…
＝＝＝＝…
あアＡ－
－－Ｂ－
－イＣ－
－－Ｄ－
いウＥ－
－エＦ－
－－Ｇ－
うオＨ－
－カＩ－
－－Ｊ－
－－－－
－－－－

上のような表で３列目のＪを最終行とします。
列の“あ”から“い”の手前まで縦にセルの結合をしたいのです。
そして次ぎの“い”から“う”の手前まで。

そして最後に“う”も縦に結合したいのですが、Ｊが最終行になっていて“う”から最終行までへの結合のやり方をご教授頂きたいと思い質問させていただきました。


先ほどは回答頂いた方有り難うございました。

No.1 ベストアンサー 回答者： n-jun 回答日時： 2010/12/01 21:57

Ａ・Ｂ・Ｃ列にデータがあって、

Ａ列の結合をしたいと言う事ですか？

仮に3行目からデータがあったとしたら、
Ｃ３～Ｃの最終行の範囲と観ました。

Sub try()
Dim r As Range

For Each r In Range("C3", Cells(Rows.Count, 3).End(xlUp)).Offset(, -2).SpecialCells(xlCellTypeBlanks).Areas
Union(r, r.Item(0)).Merge
Next

End Sub

一例になれば。

この回答へのお礼

nーjunさん有り難うございます。

今日会社で試してみます。解りにくい文章ですいません。

お礼日時：2010/12/02 04:38