エクセルで「セルを結合して中央揃え」を大量にしたい

質問

質問致します。
エクセル2007を使用しています。

例えば
Ａ列　　　　　　Ｂ列
りんご　　　　　青森
りんご　　　　　長野
りんご　　　　　福島
みかん　　　　　愛媛
みかん　　　　　和歌山

上記のように入っていて、
Ａ列のりんごの入力されている3つのセルを選択し「セルを結合して中央揃え」をしたいのですが
それをひとつずつ作業するのではなく、みかん、その下にも同じ言葉が複数あってまた違う言葉が・・・
というデータなのですがこれを簡単にセルを結合する方法はないでしょうか。

Ｂ列はそのまま生かして使用します。

イメージは以下のようになります。

Ａ列　　　　　　　　Ｂ列
　　　　　　　　　　青森
りんご　　　　　　長野
　　　　　　　　　　福島
みかん　　　　　　愛媛
　　　　　　　　　　和歌山

よろしくお願いします。

回答No.4

keithin

お薦めしませんが，マクロの中でAと書かれているところをBやCに書き換えると，Ｂ列やＣ列に対して動作します。

手順：
ＡＬＴ＋Ｆ１１を押す
先にマクロ１を記入したシートに，続けて下記をコピー貼り付ける

sub macro2()
　dim r as long
　application.displayalerts = false
　for r = range("B65536").end(xlup).row to 2 step -1
　if cells(r, "B") = cells(r - 1, "B") then
　　range(cells(r, "B"), cells(r - 1, "B")).merge
　end if
　next r
　application.displayalerts = true
end sub

sub macro3()
　dim r as long
　application.displayalerts = false
　for r = range("C65536").end(xlup).row to 2 step -1
　if cells(r, "C") = cells(r - 1, "C") then
　　range(cells(r, "C"), cells(r - 1, "C")).merge
　end if
　next r
　application.displayalerts = true
end sub

ファイルメニューから終了してエクセルに戻る
ＡＬＴ＋Ｆ８を押し，マクロ２や３を選んで実行する。

なお，「Ｂ列やＣ列についてＡ列と同じように」と口で言ってみるのは簡単ですが，実際にはそうではありません。
まずはあなたのエクセルで実際にやってみて，これでホントのホントに上手くいけば勿論それにこしたことはありません。でももし思ったのと違う結果になってしまったら「実際にはこうなっている時にどうあって欲しい」と詳しく状況やヤリタイ事を整理して，改めて今度は別のご相談として投稿し直してみて下さい。

回答No.3

web2525

一列全て3行結合なら
A1:A3を選択してセル結合⇒そのまま右クリックコピー
A4セル選択してShift+Ctrl+↓（データ範囲前選択）⇒右クリックで【形式を選択して貼り付け】⇒書式を選択してOKクリック

お礼

3行だったり4行だったり色々パターンがあります。。。

全て3行ならできるということですね。

ありがとうございました。

回答No.2

keithin

ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim r as long
　application.displayalerts = false
　for r = range("A65536").end(xlup).row to 2 step -1
　if cells(r, "A") = cells(r - 1, "A") then
　　range(cells(r, "A"), cells(r - 1, "A")).merge
　end if
　next r
　application.displayalerts = true
end sub

ファイルメニューから終了してエクセルに戻る
ＡＬＴ＋Ｆ８を押し，今登録したマクロ１を実行する。

お礼

ありがとうございます。

大変助かります。
もうひとつお伺いしたいのですが、
Ａ列だけでなく、Ｂ列、Ｃ列もＡ列のようなデータが入っている場合はどのようになりますでしょうか？

マクロは全くの初心者なもので、すみませんがよろしくお願いします。

補足

ありがとうございます。

大変助かります。
もうひとつお伺いしたいのですが、
Ａ列だけでなく、Ｂ列、Ｃ列もＡ列のようなデータが入っている場合はどのようになりますでしょうか？

マクロは全くの初心者なもので、すみませんがよろしくお願いします。

回答No.1

cat_cat

セルの結合は横方向だけでなく上下も出来るので
横方向と同じ方法で出来ます。

A列の縦3行を選んでアクティブの状態で「セルの結合」を押せば終わりですが、
同じ3行の結合を行いたいなら「F4」を押せば同じさぎょの繰り返しをします。
後はマクロを組むですね。
縦に同じ言葉が入っていた場合は結合するというマクロを組む・・・くらかな？

お礼

ありがとうございます。
Ｆ４ですね、少し短縮になりそうですが
データ量がたくさんありまして。。。
マクロは、、、全くわかりません・・・

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