Excelで2行を1行にまとめるには?

質問

Excelで2行を1行にまとめる方法を教えてください。下の6行を2行にするには、どうしたらいいのでしょうか?
よろしくおねがいします。

Excel2003です。

A little knowledge is a dangerous thing.
（生兵法はけがのもと）
空白行
After a storm comes a calm.
（雨降って地固まる）
空白行

↓
第1行：A little knowledge is a dangerous thing.（生兵法はけがのもと）
第2行：After a storm comes a calm.（雨降って地固まる）

回答No.12

imogasi · ベストアンサー

(データ）A1:A100
（１）A little knowledge is a dangerous thing.
（２）（生兵法はけがのもと）
（３）空白行
（４）After a storm comes a calm.
（５）（雨降って地固まる）
（６）空白行
（７）・・・・（略）
（８）・・・・
（９）・・・・
（関数式）E1に（B1でも良いが）
=INDEX($A$1:$A$100,(ROW()-1)*3+1,0)&INDEX($A$1:$A$100,(ROW()-1)*3+2,0)
E2以下最下行の１／３行まで複写する。
（結果）
（１）A little knowledge is a dangerous thing.（生兵法はけがのもと）
（２）After a storm comes a calm.（雨降って地固まる）
（３）以下略

お礼

ありがとうございました。参考になりました。
大変、助かっています。

回答No.11

jindon

#のjindonです。

ギャップなしで表示するには。
データがA列の：

１行目からの場合
B1に
=IF(ROW()<=COUNTA(A:A)/2,INDIRECT("a"&ROW()*2-1)&INDIRECT("a"&ROW()*2),"")

2行目からの場合
B2に
=IF(ROW()<=COUNTA(A:A)/2,INDIRECT("a"&ROW(A1)*2)&INDIRECT("a"&ROW(A1)*2+1),"")

として、下方コピー+ペースト

回答No.10

noname#176215

済みません質問の意図を勘違いしたようです。
下の回答は忘れて下さい。入力のパターンが決まって
いるのなら

=INDEX(A:A,(ROW(A1)-1)*3+1)&INDEX(A:A,(ROW(A1)-1)*3+2)

で良いと思います。失礼しました。

回答No.9

noname#176215

一発でやるのは難しいですね。ひとつの式だと

=IF(A1="",CHAR(10),A1)
&IF(A2="",CHAR(10),A2)
&IF(A3="",CHAR(10),A3)
&IF(A4="",CHAR(10),A4)
&IF(A5="",CHAR(10),A5)

こうなります。作業列に分けた方が面倒がなく
て良いかもしれません。

お礼

ありがとうございました。参考になりました。

回答No.8

handomari

＃７のhandomariです。

Excelの式でよければ、次の式が簡単ですよ。

●セルA1とセルA2の文字列を結合する。
　=A1&A2

●セルA1とセルA2の文字列を空白を空けて結合する。
　=A1&"　"&A2

お礼

ありがとうございました。参考になりました。

回答No.7

handomari

私のやり方は、独特ですが、参考にしてください。

１．元のデータを、Wordにコピーします。
２．Wordでセルの結合をします。
３．手動で改行を削除します。
４．データをExcelにコピーして戻します。

いかがですか？

回答No.6

noname#8094

4です、すみません、間違って解釈しておりました。
セルを結合すると、片方の中身は失われてしまうんですよね、そうじゃない方法でひとつにしたいということでしたら、やはりきりとり、はりつけしかないと思います。

回答No.5

POKIE

上からA1～A6に元の文が入ってるものとします。
どこか開いているセルに
=concatenate(A1,A2)
=concatenate(A4,A5)
と入れれば出来ます。
英文と"（"の間にスペースを入れたければ
=concatenate(A1," ",A2)
とすればスペースも入ります。

お礼

ありがとうございました。参考になりました。

回答No.4

noname#8094

通常、ひとつにまとめたいセルをクリックして、”書式”、”セル”、”配置”で、いちばん下の、セルを結合するにチェックを入れます。
あるいは、Altキーを押しながら、Enterキーを押すと、ひとつのセル内で改行できます。

回答No.3

hika_chan_

切り取り→貼り付け
これじゃめんどくさいですか？

（生兵法はけがのもと） を切り取ります
そして、thing.のところに貼り付けます。
そうすると、空白が2行現れると思うので、
その空白の右側の数字のところを消したい分だけドラッグして『右クリック』します。
そして、削除をクリックします。

これを繰り返します。

回答No.2

jindon

A列にデータがあって、もし先頭行が：

奇数なら
=IF(MOD(ROW(),2)=0,"",A1&A2)

偶数なら
=IF(MOD(ROW(),2)=1,"",A1&A2)

として下方にコピー+ペーストです。

お礼

ありがとうございました。参考になりました。