エクセル 抽出マクロについて

質問

はじめまして。マクロ初心者です。
エクセルで抽出結果を別シートにコピーしたいのですが、
抽出条件が２列にわたっています。

Ａ　　　　　Ｂ　　　　　　Ｃ　　　　　　Ｄ
日付　　　タイトル　　　分類(あ)　　分類(い）
11/22　　　テレビ　　　　3　　　　　　2
12/15　　　ラジオ　　　　1　　　　　　4
11/18　　　雑誌　　　　　2　　　　　　5

…というような感じです。

例えば分類が「2」のものを抽出したい時に、
●シート１のあるセルに「2」と入力してマクロを実行。
　↓
●シート２に以下のように結果をコピーして表示。
Ａ　　　　　　　Ｂ
日付　　　　　タイトル
11/22　　　　　テレビ
11/18　　　　　雑誌
という具合にしたいのです。（Ｃ列、Ｄ列は表示しない）
データはシート３に入力されていて、今後どんどん増えていく予定です。
エクセルは２００７です。

本やホームページを参考に試行錯誤したのですが、うまくいきません…。
どなたかご回答よろしくお願いいたします。

回答No.1

n-jun · ベストアンサー

Excel(エクセル) VBA入門：フィルタオプション(AdvancedFilter)でのデータ抽出
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_advancedfilter.html

が参考になるのでは？
（抽出条件を２列：【分類(あ)・分類(い）】で行なえば）

お礼

早速のご回答、ありがとうございました。
ご紹介いただいたホームページを参考にやってみたらば、望んでいたような形で出来ました！！

実は、質問前に見ていたのが同じホームページの《Excel(エクセル) 基本講座：フィルタオプションの設定(データ抽出）》という部分だったのですよ。
なのに、VBA入門の方にはまるで気づいていなかったので、本当に助かりました。

どうもありがとうございました。

回答No.5

netmaster

どうしてもマクロで抽出したいというなら別ですが
作業セルE列にとしE2セルに
=OR(C2=$E$1,D2=$E$1)*1
以下コピー
E1に抽出したいコード入力
2行目以下をE列を基準に降順に並び替えA：B列をシート2にコピーと言う手も有ります

回答No.4

pkh4989

参考にしてください。
EXCEL2003の例です。2007でも問題ないはず

Sub 検索_表示()
　　Dim ws1　　 As Worksheet
　　Dim ws2　　 As Worksheet
　　Dim ws3　　 As Worksheet
　　Dim mR　　　As Long
　　Dim wR　　　As Long
　　Dim eR　　　As Long
　　Dim wStr　　As String
　　'
　　Set ws1 = Worksheets("Sheet1")　　　'シート１
　　Set ws2 = Worksheets("Sheet2")　　　'シート２
　　Set ws3 = Worksheets("Sheet3")　　　'シート３

　　wStr = ws1.Range("A1")　　　　　　　'←シート１のあるセル「A1とします」
　　eR = ws2.Cells(Rows.Count, "A").End(xlUp).Row　'シート２の現在設定データ行数を求める
　　With ws3
　　　　mR = .Cells(Rows.Count, "A").End(xlUp).Row 'シート３の現在入力データ行数を求める
　　　　For wR = 2 To mR
　　　　　　If .Cells(wR, 3) = wStr Or _
　　　　　　　 .Cells(wR, 4) = wStr Then
　　　　　　　　eR = eR + 1
　　　　　　　　ws2.Cells(eR, 1) = .Cells(wR, 1)　 '日付
　　　　　　　　ws2.Cells(eR, 2) = .Cells(wR, 2)　 'タイトル
　　　　　　End If
　　　　Next
　　End With
End Sub

お礼

丁寧なご回答をいただき、ありがとうございます。
今回はn-junさんがご紹介してくださったホームページを参考に作ってしまいましたが、まだまだ理解できていない部分も多いので、今度pkh4989さんのもやってみたいと思います。

ありがとうございました。

回答No.3

hallo-2007

VBAの勉強というのであれば、まずはマクロの記録を実行してみてください。
マクロの実行開始
１、シート３を選択、オートフィルター
２、C列が２を抽出、D列が２を抽出
３、1行目から1000行くらい（データ以上にたっぷりと選択）
４、シート２に選択A1セルに貼り付け
マクロの記録の終了
上記で作成されたコードを少し編集すれば便利なものにあると思います。

お礼

ご回答ありがとうございます。
マクロの記録、今後やってみます。自分で一から入力するより、マクロが身近になりそうですよね。
ありがとうございました。

回答No.2

mt2008

私なら、マクロを使わず、Sheet3に作業列を追加してやります。
こんな感じで

Sheet1のA1に検索値が入るとして……
Sheet3の左端に作業列を追加します（A列）
A2に　=IF(COUNTIF(D2:E2,Sheet1!$A$1)>0,MAX(A$1:A1)+1,0)　と入れて下までコピー。

Sheet2のA2に　=IF(ROW()<=(MAX(Sheet3!A:A)+1),VLOOKUP(ROW()-1,Sheet3!A:C,2,FALSE),"")
B2に　=IF(ROW()<=(MAX(Sheet3!A:A)+1),VLOOKUP(ROW()-1,Sheet3!A:C,2,FALSE),"")
と、入れてA2:B2を下までコピー

マクロがご希望のようですが、ご参考までに

お礼

ご回答ありがとうございます。
関数でもできるのですね。今回はマクロ希望だったのですが、今後の参考にさせていただきます。