柔軟に働き方を選ぶ時代に必要なこと >>

A列の各セルに文字が改行されて入力されている場合、それを各セル改行から元の1行に戻す必要がある時、各セル一つずつ元に戻すのは大変なので何か便利な方法は無いでしょうか?

A 回答 (4件)

関数案ですが


別列に =SUBSTITUTE(A1,CHAR(10),"")
下までコピィしてみてください。
    • good
    • 2
この回答へのお礼

できました!  有難うございます

お礼日時:2008/08/13 11:21

A列を全選択して、置換ウィンドウ(CTRL+H)を開く。


検索する文字列の入力フィールドで「CTRL+J」を押す。(表示されないけど、改行になってる)
置換後の文字列で何も入れない。
そのまま「すべて置換」でどうかな?
    • good
    • 1
この回答へのお礼

こんな裏技あるなんて・・・ 有難うございます 出来ました

お礼日時:2008/08/13 11:23

A列をすべて選択→右クリック→セルの書式設定→配置→「折り返して全体を表示する」のチェックを外す→OK

    • good
    • 0
この回答へのお礼

これでは出来ないと思ってました 有難うございます

お礼日時:2008/08/13 11:26

マクロでやるなら


Sub test()
ActiveSheet.Range("a:a").Replace What:=vbLf, Replacement:="", LookAt:=xlPart
End Sub
ご参考まで。
    • good
    • 0
この回答へのお礼

できた- 有難うございます

お礼日時:2008/08/13 11:30

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QExcelで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.(雨降って地固まる)

Aベストアンサー

(データ)A1:A100
(1)A little knowledge is a dangerous thing.
(2)(生兵法はけがのもと)
(3)空白行
(4)After a storm comes a calm.
(5)(雨降って地固まる)
(6)空白行
(7)・・・・(略)
(8)・・・・
(9)・・・・
(関数式)E1に(B1でも良いが)
=INDEX($A$1:$A$100,(ROW()-1)*3+1,0)&INDEX($A$1:$A$100,(ROW()-1)*3+2,0)
E2以下最下行の1/3行まで複写する。
(結果)
(1)A little knowledge is a dangerous thing.(生兵法はけがのもと)
(2)After a storm comes a calm.(雨降って地固まる)
(3)以下略

Qセル内で改行された文字列を1行ずつ他のセルに移す

excelで、こんなことできますか?
book1で、セル内に下のような改行した文字列があり、それを入力したら、
book2に、文字列を1行ずつ他のセルに取り出したいのですが…できますか?

book1 (セルは折り返して全体を表示する) book2 (仕上げの画面)
A         A
あいうえお                    1 あいうえお
1 かきくけこ                    2 かきくけこ
さしすせそ                    3 さしすせそ
→ 4 たちつてと
2 たちつてと                    5 なにぬねの
なにぬねの                     6 はひふえほ

3 はひふへほ

教えていただけると助かります。(ただしマクロはよくわからないのですが…)

excelで、こんなことできますか?
book1で、セル内に下のような改行した文字列があり、それを入力したら、
book2に、文字列を1行ずつ他のセルに取り出したいのですが…できますか?

book1 (セルは折り返して全体を表示する) book2 (仕上げの画面)
A         A
あいうえお                    1 あいうえお
1 かきくけこ                    2 かきくけこ
さしすせそ...続きを読む

Aベストアンサー

シート1のA1セルに入力された文字が有るとしたらシート2のA1セルには次の式を入力して下方にドラッグコピーします。

=TRIM(MID(SUBSTITUTE(Sheet1!$A$1,CHAR(10),REPT(" ",100)),(ROW(A1)-1)*100+1,50))

横方向の列に表示させるとしたらシート2のA1セルには次の式を入力して右横方向にドラッグコピーします。

=TRIM(MID(SUBSTITUTE(Sheet1!$A1,CHAR(10),REPT(" ",100)),(COLUMN(A1)-1)*100+1,50))

その場合にはシート1のA列に同様の文字の入力が複数行あった場合でも、式を下方にもドラッグコピーすることで良いでしょう。

Qエクセルのセルの中で改行して入力したものを分割したいんです。

エクセルの入力編集について質問です。

セルに改行(Alt&Enter)をして下記のように入力を行ったのですが、

 Γ ̄ ̄Τ ̄ ̄ ̄ ̄¬
 |番号|内容1 |
 |  |内容2 |
 L__⊥____」

データ処理に不便なために同一セル内にある「内容1」と「内容2」を下記のように別々のセルにしたいと思います。

 Γ ̄ ̄Τ ̄ ̄ ̄ ̄¬
 |番号|内容1 |
 ―――――――――
 |  |内容2 |
 L__⊥____」

もしくは、
 Γ ̄ ̄Τ ̄ ̄ ̄ ̄¬
 |番号|内容1 |
 ―――――――――
 |番号|内容2 |
 L__⊥____」

手作業にてコピーアンドペーストと行の挿入を繰り返しを行うのは、非常に時間がかかるかと思います。

そこで、なにか一括で処理できる方法はありませんでしょうか?お願いします。
また、一括ではなくても入力が簡単になる方法はありませんか?

最後になりますが、Excel 2003を利用しています。

Aベストアンサー

    A      B
1  番号A  内容A
         内容B
2  番号B  内容C
         内容D
3  番号C  内容E
         内容F

のように並んでいる場合ですが、

1.A1:B3を選択してコピーし、Wordに形式選択(HTMLかリッチテキスト)で貼り付け。
2.Wordに貼り付けた全体を選択してコピーし、Excelの別シートに貼り付け。
3.番号の列が結合された状態なので、それらのセルをまとめて選択して結合解除。

ではいかがでしょうか。

Qエクセルで1列に500行並んだデータを5列毎に改行

エクセル2000で、A1~A500までデータが縦並びに入力されています。

これを5列毎に改行して、横並びのデータに加工したいのですが、何か方法ありますか?

図解すると、、


A1
A2
A3
A4
A5
A6
A7


A500

のデータを

A1 A2 A3 A4 A5
A6 A7 A8 A9 A10
・・・・・・
A496 A497 A498 A499 A500



したいのです。

何かよい方法ありましたらお教え願います。

Aベストアンサー

'直接シートをいじるのでコピーをしてから試してみてください。
Sub Macro1()
COUNTER = 0
For INP = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 5
COUNTER = COUNTER + 1
Range("A" & INP & ":A" & INP + 4).Copy
Range("B" & COUNTER).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
Next INP
Range("A1").EntireColumn.Delete
End Sub

Qエクセルのデータ、1行を複数行に展開し直したいです。

うまく説明できませんが、筆まめの住所録データをCSV形式にてエクセルに落とし込みました。

その状態では、宛名~備考までの項目が約20、A2~S2に1行に
展開されています。

住所録を社内で回覧できる状態にしたいのですが、今のままでは
項目が多すぎるため、1件について3行程度に項目を折りたたんで
展開したいです。

 宛名|敬称|担当者|郵便番号|住所|番地|ビル名|備考
 
 ↓
 
 宛名 | 敬称 |担当者
 郵便番号 | 住所 | 番地 | ビル名
 備考

 という風に。

別シートに「=sheet1!A2」「=sheet1!B2」というように配置し、
以下ドラックすると、データが2件飛ばしになってしまいます。

簡単に展開しなおせる方法を教えて下さい!!

ずっと調べているのですが、一向に分からずに煮詰まってしまいました。

Aベストアンサー

住所録データ1件がA列~S列まであるんですよね。
質問には何も書いていませんが、本当は何件もデータがあって、別シートに1件につき3行で表示したい。と、言うことであっていますか?
例では8項目ですが、本来は19項目あると……。
質問を見ると住所録データが1件しかないような記述でしたので、思い違いでしたらごめんなさい。

とりあえず、7項目、7項目、5項目と別けると仮定します。
別シートのA2に以下を入れ、G4までコピーし、F4とG4の式を削除します。
=INDEX(Sheet1!$A:$S,INT((ROW()-2)/3)+2,COLUMN()+MOD(ROW()-2,3)*7)

次にA2からG4までを選択して下にずらずらっとコピーします。
表示する項目を変えるときは COLUMN()+MOD(ROW()-2,3)*7 が項目になりますので、1~19までの数字を入れてください。

Qエクセルでセル内改行の1行目だけ抜き出す関数は?

エクセルでセル内で改行している文字列データがあります。
このセルの1行目だけを抜き出す関数はありますか?

Aベストアンサー

=LEFT(A1,FIND("
",A1)-1)
でできると思う。関数自体も2行になるね。これをコピーしてセルに貼り付けてもできると思うよ。
(実際には改行コードを検索してるわけですね。)

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。

また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コピー&リンク貼り付けを使うと便利です。

例)例)シート1のC1~C5に何かを入力したら、
  シート2のD2~D7にシート1で打ち込んだものが自動で表示される

  シート1にあるコピー元のセルを範囲選択して、
  シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
  をクリックします。

  そして出てきた小さな画面の左下にある「リンク貼り付け」という
  ボタンをクリックすると完成です。
  試してみてください。。

  念のためにリンク貼り付けを図解しているURLを載せておきます。
  参考にしてみてくださいね。。
  http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コ...続きを読む

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい

QExcel:複数のセルの内容を、ひとつのセルにすべて移したい。

たとえばA.B.Cのセルがあって、この内容をDのセルに
すべて移すにはどうしたらいいんでしょうか?

A.B.Cの内容をコピー貼り付けだと、
どうしてもDひとつだけでなく、その隣のセルに
内容をコピーしてしまいます。

Aベストアンサー

コピーしたいセルを選択してCtl+C

全部を貼り付けたいセルをダブルクリック

Ctl+Vではなく、オフィスクリップボードから貼り付け

Q複数行に渡るセルを1行にまとめることはできますか?

こんにちは。
画像上のような商品仕入れ表があります。
V列に品番、W列は品名、X列は規格(色など)、Y列は価格、W~AFは卸先にそれぞれ発送した数です。同じ品番(商品)でも規格が複数あるため、規格の数分行がわかれてます。
それを下の画像のように同じ品番のものは規格関係無しで1行にまとめたいのです。
違うシートのB列に品番、C列に品名、D列に価格、E~Kは卸先への全規格合計数を入れたいです。
VBAでも関数でも構いませんので教えてくださるとうれしいです。よろしくお願いします。

Aベストアンサー

こんにちは!

やり方だけ・・・
元データはSheet1にあり、Sheet2に表示するとします。
↓の画像のように作業用の列を設けるのが簡単だと思います。

Sheet1の作業列AH6セルに
=IF(COUNTIF(V$6:V6,V6)=1,ROW(),"")
という数式を入れ、フィルハンドルでずぃ~~~!っと下へコピーしておきます。

Sheet2のB2セルに
=IFERROR(INDEX(Sheet1!$V:$AF,SMALL(Sheet1!$AH:$AH,ROW(A1)),MATCH(B$1,Sheet1!$V$5:$AF$5,0)),"")
という数式を入れ、D2セルまでフィル&コピー!

E2セルには
=IF($B2="","",SUMIF(Sheet1!$V:$V,$B2,OFFSET(Sheet1!$V:$V,,MATCH(E$1,Sheet1!$V$5:$AF$5,0)-1)))
という数式を入れ、K2セルまでフィル&コピー!

最後にB2~K2セルを範囲指定 → K2セルのフィルハンドルで下へコピーすると
画像のような感じになります。

※ 作業列が目障りであれば、遠く離れた列にするか、
非表示にしておきます。m(_ _)m

こんにちは!

やり方だけ・・・
元データはSheet1にあり、Sheet2に表示するとします。
↓の画像のように作業用の列を設けるのが簡単だと思います。

Sheet1の作業列AH6セルに
=IF(COUNTIF(V$6:V6,V6)=1,ROW(),"")
という数式を入れ、フィルハンドルでずぃ~~~!っと下へコピーしておきます。

Sheet2のB2セルに
=IFERROR(INDEX(Sheet1!$V:$AF,SMALL(Sheet1!$AH:$AH,ROW(A1)),MATCH(B$1,Sheet1!$V$5:$AF$5,0)),"")
という数式を入れ、D2セルまでフィル&コピー!

E2セルには
=IF($B2="","",SUMIF(Sheet1!$V:$V,$...続きを読む


人気Q&Aランキング

おすすめ情報