• ベストアンサー

Excelの質問です。改行データを含むセルを検索して抽出、もしくはダイアログボックス等で表示したいです。

セル内の改行データを検索したいのですが、うまくいきません(>_<) Ctrl+J↓ http://trendy.nikkeibp.co.jp/article/tec/excel/20040308/107599/ によって検索することができるようなのですが、うまく検索できなかったりします。また、添付画像(改行の情報が入っているものは色が付いてます)をご覧いただきたいのですが、データが列をまたがってある場合は、Ctrl+Jで、どのセルに改行情報が入っているのか、普通にCtrl+Fで出した「検索と置換」ダイアログボックスでは、抽出することができません(;_;) 何かよい方法はありませんでしょうか?

質問者が選んだベストアンサー

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

http://www.relief.jp/itnote/archives/000248.php を読んで、参考になることはないですか(このサイトは、他のテーマの解説も含め、全般にお勧めのサイトです) ーー >データが列をまたがってある場合は とはどういう意味ですか。 「またがる」とは? 検索の単位はあくまでセルが基本で、検索には、1つのセルの値について、部分一致と全体一致(セル内容が完全に同一・・)があると思うが。 ーー VBAでやってみると下記のようなもので Sub test01() Set x = Cells.Find(what:=Chr(10), lookat:=xlPart) MsgBox x.Value x.Activate Do Set y = Cells.FindNext(after:=ActiveCell) If y Is Nothing Or y.Address = x.Address Then Exit Sub MsgBox y.Value y.Activate Loop While Not y Is Nothing And y.Address <> x.Address End Sub 文字コード10の在るセルを探すことになる。 これを実行してでも検索にもれますか。

dj-s
質問者

お礼

imogasiさんいつもありがとうございます<m(__)m> このマクロすごいですね! 行とか列とか関係なく、改行を含むセルを抽出してくれました!! ありがとうございます(^_^;)

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (2)

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.3

例えばA2セルから下方に問題のデータがあるとしてB2セルには次の式を入力して下方にオートフィルドラッグします。 =IF(ISERROR(FIND(CHAR(10),A2)),"",MAX(B$1:B1)+1) これで改行のあるセルがあれば上から番号が振られます。 改行のあるセルのデータをD2セルから下方に表示するためにはD2セルに次の式を入力して下方にオートフィルドラッグします。 =IF(COUNTIF(B:B,ROW(A1))=0,"",INDEX(A:A,MATCH(ROW(A1),B:B,0)))

dj-s
質問者

お礼

こんなやり方もあるんですね・・・驚きです( ゜д゜) ご指導ありがとうございます<m(__)m>

全文を見る
すると、全ての回答が全文表示されます。
  • kmetu
  • ベストアンサー率41% (562/1346)
回答No.1

> うまく検索できなかったりします。 どのように上手く検索できないのでしょうか? > データが列をまたがってある場合は、Ctrl+Jで、どのセルに改行情報が入っているのか、普通にCtrl+Fで出した「検索と置換」ダイアログボックスでは、抽出することができません(;_;) 検索してヒットすると対象セルが選択された状態にならないでしょうか?

dj-s
質問者

お礼

返信が遅くなってしまいすいません(>_<) 問題は解決しました、ありがとうございます(^_^;)

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • excelでセル内の改行を削除する

    excelの改行削除について質問です。 セル内の改行を一括削除する方法として「Ctrl」+「J」の 置換でできると思うのですが、文字がたくさん入っているセルに 対して行うと、「数式が長すぎます。」のポップアップが出てしまいます。 CLEAN関数で行おうとするも、文字数が多いためかきちんと表示されません。 他に何か良い方法はないでしょうか?

  • EXCEL DATAの置換ダイアログの利用方法は

    別タイトル:  EXCELのDATAを抽出して日別の表を作る式は  でご指導いただいた手順のなかで、 Ctrl+Hで置換ダイアログの手順で先に進めません。 『Ctrl+Hで置換ダイアログを出し、「オプション」ボタンを押し、「ワイルドカードを使用する」にチェックを入れ、検索する文字列に「^t」置換後の文字列に「、」を入力して「すべて置換」し、そのまま検索する文字列に』 の『すべて置換」のボタンを押す前後の手順・確認すること・入力のしかたのご指導をお願いいたします。

  • エクセルシートへ検索ダイアログの貼り付け

    勝手な注文かもしれませんが、エクセル2007のシート上に「検索と置換」ダイアログを貼り付けることが出来るでしょうか。複数シートからデータを検索する際にCtrl+Fキーで検索すれば事足りるのですが、シート1に検索ダイアログボックスを作成したいと思い質問させて頂きました。宜しくお願いします。

  • Excelでセル内改行する方法

    セル内改行法で、改行記号ごと、他のソフト (notepad)にコピー、ペーストして編集できないものかと考えています。 昔は、A1セルにセルに、 高い山 青い海 と表示させるために、「高い山Alt+ Enterキー青い海」 http://trendy.nikkeibp.co.jp/article/tec/excel/20040310/107753/ と入力する方法を使っていたのですが、一旦A1セルの内容をテキスト(ノートパッド等)にコピーしてから再度A1セルに張り付けると 今度は、A1セルに「高い山」、A2セルに「青い海」と、A1,A2セルにまたがって入力されてしまいます。 さて、社内文書のルール上、Excelのセル内に、下記マクロで記載したようなものを書かなければならないことが多くあります。今、私は、 Sub Macro1() ' Cells(1, 1) = "高い山" & Chr(10) & "青い海" Cells(1, 2) = "" & Chr(10) & "陽気な仲間たちは" & Chr(10) & " -青い山" _ & Chr(10) & " -広い海" _ & Chr(10) & "と共に現れる。" End Sub のように裏で記載しておいて最後にマクロを消して提出してますが…。これも面倒です。 ■本題 願わくば、Excelのfx欄に、 陽気な仲間たちは<br> &nbsp -青い山<br> &nbsp - 広い海 … のように記載しておけば、セル上では、所望の表示が得られているといったことってないのでしょうか?

  • DBで改行が入っているデータをExcelに改行なく貼り付けたい。

    ちょっとわかりにくいかもしれない質問をしてしまうのですが・・・。 OracleからBrioQueryというソフトを介してExcelにデータを貼り付けようとしています。 Oracleデータベース内で文字項目のデータがあるのですがメモみたいに使用している項目で長い文などで途中で改行されてデータが入っています。 このデータベースからBrioQueryという、データを抽出・分析したりするソフトを使ってデータを抽出します。このソフトは画面的にはExcelに近い感じで上記の文字項目データは1つのセルの中で改行された形でセットされています。(BrioQueryではデータの修正ができないようです) このBrioQueryからデータをクリップボードにコピーしてExcelに貼り付けられるのですが、上記文字項目がExcelでは1つのセルに収まらず改行の部分で本当に次の行の頭に改行されてしまうのです。 Excelに貼り付ける時に次の行に改行されずに貼り付けられる方法ってあるのでしょうか? OracleからBrioQueryの部分は自分からすると高度すぎるのでこのまま使いたいのでなんとかExcelの部分で対応できればという事で質問させて頂きました。 よろしくお願い申し上げます。

  • 【エクセル】セル最後にある無駄改行を検索・削除したい

    改行付きテキストデータを一杯持っているエクセルファイルがあるとします。 1つのセル複数の行があります。 最後の行になんらかの文字があればOKですが、 文字が無く、空の改行だけが存在する場合があります。 このような、最後の行が空の改行のセルを見つけて、検索・置換みたいな感じで最後の空改行だけ削除する方法はあるのでしょうか。 教えて頂ければ幸いです。どうぞよろしくお願い致します。

  • MacOS10.6 エクセル2008 改行コード 置換方法

    MacOS10.6 にてExcel2008を使用しています。 いま処理しようとしているデータのセル中に改行が含まれており、これらを置換にて一括消去をしたいのですが改行コードの入力方法がわかりません。 Windowsでしたら「Ctrl+J」で検索文字列の欄に入力できるようなのですがMacで行うと変な文字がでて当然ながら置換はできません。 セル中で「Control+Option+Return」にて改行を入力する事はできますが、これを上記の置換の検索文字列欄で行うと最終セルまで移動してしまうだけで置換はされません。 大量のデータで、しかも今後定期的な作業が必要となる為に途方にくれてます。 どなたか検索置換にて「検索文字列欄」に改行コードを入力する方法ご存じでしたら教えてください。 お願いいたします。

  • エクセルのセル内改行のエクスポートについて

    システムの設計で、人が手入力した情報をtsvファイルにエクスポートして、そのファイルをシステムで取り込もうと検討しています。 けれども、元ファイル内に、エクセルのセル内改行が含まれていて、それをどうしても何かの記号に置換して、改行を詰めてテキストファイルに吐き出すことができません。 やりたいことは以下になります。 1.エクセルの改行を、テキストに吐き出すときには詰めたい。 2.テキストファイルで、改行は詰まっているけれど、変わりに別の文字「"」や「|」などに置換されていたい。 ややこしいですが、どなたか教えてください!

  • Excelのセル内にある特定文字で改行させたい

    ある汎用のシステムから出力されるテキスト(文章)をCSV形式のデータをEXCELデータに変換しています。そのEXCELに変換されたデータは、文章です。 1点問題があります。そのセル内の文章は、ある特定の記号を改行の代わりとして、連続したテキスト文章になっているため、非常に読み辛いものになっていますいます。その改行を意味する特定記号は、複数個存在し、セル内の個数は一定ではありません。  そのため、読み辛さを解消するためい、その特定記号をセル内での改行に置換させる、マクロまたはVBAでの一括処理することが出来ないでしょうか。置換処置後は、特定記号は不要です。 なお、(1)改行を意味する特定記号は、「~|」です。~と|の組み合わせで、それはそれぞれ半角表記されています。(2)1ファイルにおける対象レコード(行)は、約3,000~10,000行あり、手作業での処理は不可能です。 宜しくお願いします。

  • Excel セル内での改行文字「・・」

    Excel2000のデータをいただいたときに、 1つのセルの中で、文章の間に、「・・」の文字が 表示されています。 このデータをVisualBasic6.0などのソフトを介して フォームで内容を表示した場合、 1つのテキストボックスの中で「・・」の文字がなく、 改行されているのです。 こういった表示の仕方は、Excel2000にて意図的に文章を 作成することが出来るのでしょうか。 よろしくお願いいたします。 ****************************************** Q:1+1の答えはどれか。・・(1),1 ・・(2),2 ・・(3),3 ・・ というセル内の表示が・・・ VBなどのソフトを使用したフォームでは、 Q:1+1の答えはどれか。 (1),1 (2),2 (3),3 という表示になります。

専門家に質問してみよう