- ベストアンサー
Excelで2行を1行に結合する方法
- Excelで2行の罫線枠中に上段：空白、下段：文字列とか、上段：文字列、下段：文字列のように様々な罫線枠内を1行に結合したいです。数段、数シートに渡って同様の形式があります。上下に結合する方法を教えてください。
- Excelで2行を1行に結合したいです。具体的には、罫線枠内に上段が空白で下段に文字列がある場合や、上段と下段に文字列がある場合、など様々な形式があります。同じ形式が複数の段落やシートに渡っている状況です。Excelで上下に結合する方法を教えてください。
- Excelで2行の罫線枠内に上段と下段の要素があり、それらを1行に結合したいです。同じ形式が複数の段落やシートで繰り返されています。Excel上で上下に結合する方法を教えてください。
- みんなの回答 （6）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (5)
- imogasi
- ベストアンサー率27% (4737/17070)
例えばA1に「あ」、A2に「い」と値があるとして、A1:A2をセル結合すると、A1だけ残り、A2の値は捨てられます。 （１）これでは困るので、A2のデータをA1にもって来て 結合しなければなりません。 （２）A1に集約されても、それまでのA1:A2の値の上下位置関係を保って欲しいと言うのが要求でしょう。 これを実現するのも一工夫要ります。 （３）セル結合の操作ですが、関数式では出来ません。 関数の本質は、値を扱うもので、セルの挿入・削除・結合・書式・表示形式は設定出来ません。このことを肝に命じておくこと。無理な期待をし勝ちである。 それで沢山有ればセル結合の操作が面倒であるから、VBAででもやらないといけない。CTRL＋Yも有り得るかもしれないが、確認メッセージも出る。A1.A2の一方のセルが空白であれば確認メッセージは出ないようである。 （例データ）A1:A4 東京都の知事は誰ですか 石原知事です 弟は誰でした？ 裕次郎です。 （関数式） B列の書式を、書式－セル－配置で「折り返して全体を表示する」にする。 B1に=IF(MOD(ROW(),2)=0,"",A1&REPT(" ",20-LEN(A1))&CHAR(10)&A2) と入れる。２０は上段の文字数の最大値を見積もったものです。 CHAR(10)を入れて入るところがポイントです。 これで奇数行に、次行と結合した文字列が出来る。 編集－コピー－編集－形式を選択して貼りつけ－値を 自分自身のセルに行い、式を消す。 （VBA） Sub Macro3() d = Range("A65536").End(xlUp).Row Application.DisplayAlerts = False For i = 1 To d Step 2 Range(Cells(i, "B"), Cells(i + 1, "B")).Select Selection.MergeCells = True Next i End Sub これをツール－マクロ－ＶＢＥで出るVBE画面のメニューで 挿入－標準モジュールで出る画面に上記をコピペする。 F５キーを押して実行する。 （結果）B1とB3は "東京都の知事は誰ですか 石原知事です" "弟は誰でした？ 裕次郎です。" となりました。あと罫線を引いて完成。
お礼
す、すごい！！ こんなことが出来るんですね。 大変役に立ちました。 あとは、アレンジしていけばいいですね。 そこで質問なんですが、これは、１列に対して次の１列に表示していますが、複数列を全て行なおうとするとどの様にするのですか。 すばらしい回答を得ても、尚こんな質問する無礼をお許し下さい。 ちなみに、１３列です。
- konica
- ベストアンサー率28% (2/7)
真中の文字列をみ落してました
補足
度々、ありがとうございます。 中列の上下文字列も、１行にして上下表示にしたいのです。
- cyobin_man
- ベストアンサー率24% (298/1216)
私にはできませんが １ １行の中に ２行入力できるか？ ２ 関数などで一気にできるか という意味でしょうか？
補足
早速ありがとうございます。 関数、並び替えなどで、一気に出来ますか？
お礼
無事、実行することが出来ました。 大変ありがとうございました。