1. Home » 
2. Excelの基本操作の目次 » 
3. フィルター(データ抽出) » 
4. 詳細設定で数式を使ってデータを抽出する

詳細設定で数式を使ってデータを抽出する：Excelの基本操作

数式を使ってデータを抽出する　　　　　　　Topへ

• Excelでデータを抽出する機能は　オートフィルターとフィルターオプションの設定があります。Excel2007以降は　フィルターと詳細設定となっています。
  なお、VBAでは　AutoFilter と　AdvancedFilter　になります。
• 複雑な条件でのデータ抽出は詳細設定(フィルターオプションの設定)で行うのが便利ですが、条件をシートの書き出しておく必要があります。
  この条件の書き出しが面倒、見た目が悪い・・・といった具合に使い勝手が良いとは言えないかもしれません。
  しかし、条件を数式で書くことによって、スマートな感じになりますし、変にシートを汚す?必要もありません。
• なお、この数式を使う方法は、オートフィルターで作業列として使うこともできますので、オートフィルターでも使用可な方法となります。
  オートフィルターでの使用例は　複雑な条件でデーターをフィルターしたい　の「複数列での　OR条件 でデータをフィルターする」をご覧ください。

詳細設定で検索条件をシートに書き出す方法　　　　　Topへ

1. ここでは、3教科のいずれかが　90以上の人を抽出します。
   J6:L9セルに検索条件を書き出しています。
   6行目には各列見出し、「国語」「数学」「英語」と入力しています。
   それぞれが90以上という条件は　OR条件になりますので、行を変えて書き出す必要があります。
   (ちなみに、同じ行に書くとAND条件になり、すべての強化が90以上といった条件になります)
   
2. データリスト内のセルを一つ選択して、[データ]タブの[詳細設定]を実行します。
   
3. 「選択範囲内」にチェックが入っているのを確認します。
   リスト範囲がデータ範囲と同じであることを確認します。ここでは　A1:H51 がデータリストの範囲です。
   検索条件範囲に書き出した条件の範囲 J6:L9　を指定します。
   [OK]ボタンをクリックします。
   
4. 3教科のいずれかが90以上のデータ 15件が抽出されました。
   
5. データ抽出(フィルター)の解除は、[データ]タブの[(フィルターの)クリア]をクリックします。
   

詳細設定で検索条件を数式で書く方法　　　　　Topへ

1. ここでは、3教科のいずれかが　90以上の人を抽出します。
   J1セルに「条件」と入力しています。ここは、空欄のままにしておくか、データの列見出しと重ならない文字列である必要があります。
   J2セルに検索条件を数式で入力します。ここでは　=OR(E2>=90,F2>=90,G2>=90)　と入力しました。
   数式はデータリストの先頭行を使った数式を作成します。ここでは2行目がデータの先頭行ですので、E2といった2行目のセルを使った数式となっています。
   
2. データリスト内のセルを一つ選択して、[データ]タブの[詳細設定]を実行します。
   
3. 「選択範囲内」にチェックが入っているのを確認します。
   リスト範囲がデータ範囲と同じであることを確認します。ここでは　A1:H51 がデータリストの範囲です。
   検索条件範囲に書き出した条件の範囲 J1:J2　を指定します。
   [OK]ボタンをクリックします。
   
4. 3教科のいずれかが90以上のデータ 15件が抽出されました。
   
5. データ抽出(フィルター)の解除は、[データ]タブの[(フィルターの)クリア]をクリックします。
   

詳細設定をVBAで処理する　　　　　Topへ

• 詳細設定をVBAで処理することができます。
  検索条件を1つのセルで指定できるなら、セルの数式(検索条件)を書き換えるだけでVBAを実行することができ、便利な気がします。
• [Alt]+[F11]でVBEを開き、下記のようなコードを入力します。
  
  • 検索条件は　J1:J2に入力してあるものとしています。
    データリストは　Sheet1のA1:H51　と指定しています。
    抽出先は　Sheet2のA1セルからにデータを抽出します。
    

    Sub Adfilter() 　　Worksheets("Sheet2").Range("A:H").Clear 　　Worksheets("Sheet1").Range("A1:H51").AdvancedFilter _ 　　　　Action:=xlFilterCopy, _ 　　　　CriteriaRange:=Worksheets("Sheet1").Range("J1:J2"), _ 　　　　CopyToRange:=Worksheets("Sheet2").Range("A1"), _ 　　　　Unique:=False End Sub

• Sheet2にデータを抽出した例です。
  
• なお、マクロの記録を利用する際の操作手順は、抽出先のシートを選択した(アクティブにした)状態で、[データ]タブの[詳細設定]を実行します。
  指定した範囲にチェックを入れて、抽出範囲などの設定を行います。