エクセルで、異なる日付の入っている行を抽出する。

質問

1　あ　　20060102　　20060102　　さる
2　い　　20060203　　20060203　　いぬ
3　う　　20060303　　20060301 　　きじ
4　え　　20060404　　20060404　　ねこ
5　お　　20060501　　　　　　 　 　　わに

2つの列に年月日が入力されてますが、上のように数値として入力されています。
5の行のように右の列の日付が空白になっているものもあります。
この中から2つの列の日付を比較して、両方に日付が入力されていてかつ異なる行を下記のように、抽出したいのです。

3　う　20060303　20060301 きじ

オートフィルタのフィルタオプションでやろうと思ったのですが、うまくいきませんでした。
よろしくお願いします。

回答No.1

bin-chan · ベストアンサー

A　B　　C　　　　　　D　　　　　　E
1　あ　　20060102　　20060102　　さる
としますね。

１）セルF１に式[if(and(B1<>"",C1<>"",B1<>C1),"NG","OK")]を設定
２）セルF1を必要なだけコピー（今回はＦ２からＦ５まで）
３）列Ｆにオートフィルタを設定
４）"NG"だけ拾わせる（NGが見えるのイヤなら"NG"を空白にしても可）

お礼

早速ご回答いただきありがとうございます。
実際のデータは何千行もあるものなので、途方にくれていたのですが、これで、やる気が出てきました。
助かりました。

回答No.3

Wendy02

こんにちは。

フィルタオプションでは、このようにします。

　A　　　 B　　　　　C　　　　　D
aa　　bb　　　　　cc　　　　　dd　　←フィールド名をつけてください。
あ　　20060102　　20060102　　さる
い　　20060203　　20060203　　いぬ
う　　20060303　　20060301　　きじ
え　　20060404　　20060404　　ねこ
お　　20060501　　　　　　　　わに

適当な場所に、
ここでは、F2 (1行目に入れてはいけません。1行目はブランクです）

=B2<>C2

マウスカーソルをデータ側に置いてから、

データ－フィルタ－フィルタオプションの設定－
リスト範囲
「$A$1:$D$6」(参考例）
検索条件範囲　
「$F$1:$F$2」

とすれば出てきます。

ただし、「う　20060303　20060301 きじ」　だけではなく、5行目も出てきますから、もし検索条件を
=AND(B2<>C2,C2<>"")
とすれば、3行目だけになります。

お礼

貴重な時間を割いて、回答を頂いた皆さんありがとうございました。
本当に助かりました。
初めて、web2.0の世界に飛び込んでみたのですが、これはすごいですね。

回答No.2

ham_kamo

シート構成がNo.1の方の書かれているようにC列とD列が日付の場合、Sheet1に表からSheet2に該当する行を抜き出すマクロです。
Alt+F11でVBAの画面を開き、左側のツリーからブック名を選択し、右クリックから「挿入」＞「標準モジュール」を選択して、右の画面に以下のマクロをコピーして貼り付けてください。
その際、４行目から７行目は、注釈にしたがって実際のシートにあうように書き換えてください。

Sub DiffDate()
　Dim WS1 As Worksheet, WS2 As Worksheet
　Dim WS1Row As Integer, WS2Row As Integer
　Set WS1 = Worksheets("Sheet1") '元の表があるシート名
　Set WS2 = Worksheets("Sheet2") '抽出先のシート名
　Const Date1Col = "C" '日付が入力されている列１
　Const Date2Col = "D" '日付が入力されている列２

　WS2.Cells.ClearContents
　WS2Row = 1
　For WS1Row = 1 To WS1.Cells(Rows.Count, 1).End(xlUp).Row
　　If WS1.Cells(WS1Row, Date1Col) <> "" And _
　　WS1.Cells(WS1Row, Date2Col) <> "" And _
　　WS1.Cells(WS1Row, Date1Col) <> WS1.Cells(WS1Row, Date2Col) Then
　　　WS1.Rows(WS1Row).Copy WS2.Rows(WS2Row)
　　　WS2Row = WS2Row + 1
　　End If
　Next
　WS2.Activate
End Sub

その画面でF5キーを押すか、Alt+F11でExcelの画面に戻ってAlt+F8からマクロを実行してみてください。Sheet2に該当する行が抽出されます。

お礼

ありがとうございます。
私はマクロをいじったことが無いのですが、とりあえず丸写しでもいいので、やってみようと思います。