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

締切済

質問者：drymmz
質問日時：2013/02/04 09:59
回答数：4件

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

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

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

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

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

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

よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

最新から表示
回答順に表示

No.4

回答者： keithin
回答日時：2013/02/05 17:22

お薦めしませんが，マクロの中で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

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

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

- 0
- 件

通報する

No.3

回答者： web2525
回答日時：2013/02/04 12:29

一列全て3行結合なら

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

- 0
- 件

通報する

この回答へのお礼

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

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

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

通報する

お礼日時：2013/02/04 13:06

No.2

回答者： keithin
回答日時：2013/02/04 10:55

ＡＬＴ＋Ｆ１１を押す

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

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

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