Excelデータを条件毎に分類したい

質問

Sheet1に検索用のデータ表があります。Sheet2に条件が入っています。シート2の条件と合うシート1のデータにフラグをたてたいのですが、検索用のデータ量、条件件数共にかなりあります。（その為、シートをわけました）。マクロを色々作ってみたのですが、どうしても上手く出来ません。シート1の各データがどの条件のものか判ればいいのですが。イメージでは下記の様になればいいのですが（簡略化していますが）。

シート1
　A　　B　　C
　課　品番　単価
1　E 　123　 450
2　A 　223　 350
2　E 　123　 450

シート2
　A　　B　　C D
　課　品番　単価 フラグNo
1　 E 　123　 450　1
1　 A 　223　 350　2
　　　↓
結果（マクロ処理後）
シート1
　A　　B　　C D
　課　品番　単価 フラグNo
1　E 　123　 450　1
2　A 　223　 350　2
1　E 　123　 450　1

回答No.3

Wendy02

こんばんは。

フィルタオプションではなくて、たぶん、オートフィルタのように思いますね。
たぶん、こういうことだと思います。そこに数はいくつでもよいわけですからね。

Sub FilterUsedChecker()

Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Set Sh1 = Worksheets("Sheet1")
Set Sh2 = Worksheets("Sheet2")
Application.ScreenUpdating = False
With Sh1.Range("A1").CurrentRegion
For i = 2 To Sh2.Range("A65536").End(xlUp).Row
　.AutoFilter Field:=1, Criteria1:=Sh2.Cells(i, 1).Value
　.AutoFilter Field:=2, Criteria1:=Sh2.Cells(i, 2).Value
　.AutoFilter Field:=3, Criteria1:=Sh2.Cells(i, 3).Value
　On Error Resume Next
　 .Columns(4).Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Value = Sh2.Cells(i, 4).Value
　On Error GoTo 0
Next
.AutoFilter
End With
Application.ScreenUpdating = True

Set Sh1 = Nothing: Set Sh2 = Nothing
End Sub

補足

仕事が立て込んでおり、お礼が遅くなってしまい、失礼致しました。処理を確認させていただきました。列数に関しては・AutoFilter Field:=～を増やし、
.Columns(4).～の列Noを変える事で仰るとおりに上手く出来ました。有難うございました。ただ、最初に説明不足をお詫びしたのですが、まだ上手く伝わってなかったようですね。仮にＡ～Ｅ列まであるデータが100行あるとします。これを抽出する条件として、Ｂ列に「あ」、Ｃ列に「い」、Ｄ列に「う」と入力した場合、指定した列と条件があっているデータは全て抽出したかったのです（Ａ、Ｅの条件は問わない）。作成していただいたマクロではＡ列＝空白、Ｂ列＝「あ」、Ｃ列＝「い」、Ｄ列＝「う」、Ｅ列＝空白　のデータのみの抽出ですので、私の意図するところとちょっと違うのです。お手間を取らせて申し訳ございませんでした