- ベストアンサー
EXCEL:複数シートから特定行を一覧化したい
- EXCELで複数のシートから特定の言葉が記入された行を新規ワークシートに自動的に抽出し、一覧化する方法について教えてください。
- 現在、エクセル初心者であり、ピボットテーブルやマクロの組み立て方には慣れていません。できるだけ簡単な方法を教えていただけると助かります。
- 仕事で使用するデータにおいて、特定の行を一覧化できると非常に役立ちます。参照するデータシートは8枚あり、それぞれのシートには60行程度の文字データがあります。
- その他MS Office製品
- 回答数6
- ありがとう数8
- みんなの回答 （6）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (5)
- MackyNo1
- ベストアンサー率53% (1521/2850)
＞ピボットテーブルもマクロも組んだことがありません。 今回のように、シートが分離されているようなケースで簡便な操作を行うにはマクロを利用する必要があります。 エクセルには「マクロの記録」という機能が用意されていますので、これを利用してご希望の操作を行うことも可能ですが、エクセルの基本的操作を熟知している必要があります。 また、マクロを利用する場合はご自分でコードの修正ができる程度の最低限の知識は必要になります（例えばクロで実行したものは通常の入力と違い「元に戻す」という操作ができないので、重大なミスにつながる可能性があります）。 また、ピボットテーブルの機能はエクセルの基本機能の一つですが、この程度はご自分でできるレベルになるようにされたほうが、今後のためにも良いと思います。 ＞工程数がかかってもいいので、できるだけ優しい方法を教えて下さい。 個人的には記録マクロを利用した方法が最も簡便と思われますが（記録マクロに挑戦する気持ちがあるのなら具体的な操作方法を提示します）、初心者でもわかりやすいという方法なら、リンク貼り付けとオートフィルタの機能を併用することをお勧めします。 作業用のシートを追加し、１行目に項目名を入力し、1枚目のシートのデータ範囲＋α（60行目まで）をコピーし、作業用シートのA2セルで右クリック「形式を選択して貼り付け」で「リンク貼り付け」します。 同様に2枚目のシートのデータ範囲＋αを選択して、作業用シートのA61セルにリンク貼り付けします。 すべてのシートのデータ範囲を1枚のシートにリンク貼り付けしたら、準備完了です。 必要なデータを抽出したい場合は「データ」「フィルタ」で抽出対象を絞り込みます。 この絞り込んだデータシートを新規シートにコピー貼り付けすれば完成です。 ＃Officeソフトはバージョンによって使用できる機能や操作方法が大きく異なりますので、質問の際には必ずバージョンを明記するようにしましょう。
お礼
恥ずかしながら「リンク貼り付け」というコピペ方法を知りませんでした！ これなら、元データを修正してもちゃんと更新されますし、 なにより簡単でしたので、私でもできました。 本当にありがとうございました。 また、バージョンについても、ご指摘いただきましてありがとうございました。 しかもEXCEL2003と書いてしまっていましたが 実際は2000でして（大汗）。 Excel 2000 9.0.6926 SP-3 でした。 大変失礼致しました。 なお、MackyNo1様がお考えの 記録マクロの利用する方法も よろしければお知らせいただきたいのですがよろしいでしょうか？ 何卒よろしくお願い申し上げます。
「マクロも組んだことが」ない私や関数が苦手な人向けの方法を紹介します。 少々工数がかかるけど「優しい方法」だと思います。 少々見づらい添付図を判読しながら下記の手順をお読みください。 １．８枚（簡単のために、此処では Sheet1～Sheet3 の３枚）のシート（添付図では内容を簡略化）のデータ部分をそっくり別シート Sheet9 にコピーして、最上行に[オートフィルタ]を設定。その結果を Fig-1 に示す。 ２．[進捗]の列において、[オートフィルタ]で“作業中”“と等しくない”の条件でデータを抽出した後、抽出されたレコードの全ての行全体を選択。その結果を Fig-2 に示す。 ３．その選択範囲内でマウスの右クリックから[行の削除]を選択する。 ４．[オートフィルタ]を解除する。その結果を Fig-3 に示す。 なお、添付図の中でどれかの拡大図を欲しければその旨をお知らせください。
お礼
ご丁寧に画像まで作成いただきまして、 本当に本当にありがとうございます！ ただ、この方法ですと、sheetの元データの内容が修正された際には 反映されないような気がしました。 お手間をいただいたのに、恐縮です。 ありがとうございました。
- tom04
- ベストアンサー率49% (2537/5117)
こんにちは！ 一番簡単で操作しやすいのは、No.1さんが仰っているように各Sheetでオートフィルタをかけ、 表示されているものを新規Sheetにコピー＆ペーストしていく方法だと思います。 関数でやろうと思えば可能だとは思いますが、下準備とかなり長い数式が必要かと思います。 そこでお望みの方法ではないと思いますがVBAの一例を載せておきます。 騙されたと思って参考程度で試してみてください。 ※ 新規SheetはSheet見出しにある最後（9番目）のSheetとして、Sheet1～Sheet8で G列が「作業中」だけのものをSheet9に表示するようにしてみました。 尚、すべてのSheetのフォーマットは同一としてタイトル行が2行まで、データは3行目からとします。 Sheet9のH列セルの表示形式は「日付」にしておきます。 Alt＋F11キー → VBE画面が出ますので、画面左下にある「This Workbook」をダブルクリック！ → ↓のコードをコピー＆ペーストしてマクロを実行してみてください。 （Alt＋F8キー → マクロ → マクロ実行です。） Sub 一覧表示() 'この行から Dim i, j, k As Long i = Worksheets(9).Cells(Rows.Count, 1).End(xlUp).Row If i > 2 Then Range(Worksheets(9).Cells(3, 1), Worksheets(9).Cells(i, 8)).ClearContents End If Application.ScreenUpdating = False For k = 1 To 8 'Sheet1～Sheet8まで For i = 3 To Worksheets(k).Cells(Rows.Count, 1).End(xlUp).Row '3行目～最終行まで For j = 1 To 8 'A列～H列まで If Worksheets(k).Cells(i, 7) = "作業中" Then Worksheets(9).Cells(Rows.Count, j).End(xlUp).Offset(1) = _ Worksheets(k).Cells(i, j) End If Next j Next i Next k Application.ScreenUpdating = True End Sub 'この行まで ※ Sheet1～Sheet8のデータ変更があった場合、最終作業としてマクロを実行します。 以上、参考になれば良いのですが・・・m(__)m
お礼
ご丁寧に、マクロ内容の詳細まで記入いただきまして 誠にありがとうございました。 がんばってマクロに挑戦してみましたが、 撃沈しました。 エラーが出たり、そもそもまったく反応しなかったりで・・・。 素人のため、どこが悪いのかも分からずただ時間だけが過ぎていく感じでしたのであきらめました。 ご丁寧にご回答いただいたにもかかわらず 大変申し訳ありませんでした。
- KURUMITO
- ベストアンサー率42% (1835/4283)
- aokii
- ベストアンサー率23% (5210/22063)
ツールバーの、データのフィルタのオートフィルターの（オプション）で、進捗と作業中をORで抽出し、それをコピーして新規シートに貼り付けて、8枚のデータシートをまとめてはいかがでしょう。
お礼
確かに…一番簡単ですね。 やっぱりこれがいいのでしょうかねえ・・・。
お礼
私にもできました！！ PhotoShopでいうところの「アクションの記録」のような機能なんですね。 本当に助かりました。 これで仕事がはかどりそうです。 お答えいただいた方全員をベストアンサーとさせていただきたいところですが 二度もご丁寧にお教えいただいたこと、 ならびに初心者の私でも実現できたことを踏まえ、 こちらをベストアンサーとさせていただきます。 本当にありがとうございました。