Sub 抽出()
'品名呼び出し
    Dim i
    For i = 3 To 22
        Call 指定品名抽出(Worksheets("Sheet2").Cells(i, "B").Value, i)
    Next i
End Sub
 
 
Sub 指定品名抽出(ByVal hinmei As String, ByVal wrow As Long)
'オートフィルターで抽出
    Dim Count As Long
    With Worksheets("Sheet3")
        '抽出条件1
        .Range("B4").AutoFilter 6, Array("五個入り", "10個入り", "ケース ", "1個"), xlFilterValues
        '抽出条件2
        .Range("B4").AutoFilter 2, hinmei
        Count = WorksheetFunction.Subtotal(3, .Range("B4").CurrentRegion.Columns(1))
    End With
 
    '処理月へ転記
    Dim c As Long
    With Worksheets("Sheet2")
        For c = 3 To 14    '４月～3月の範囲
            If .Cells(2, c).Value = Worksheets("Sheet1").Range("A2").Value Then
                .Cells(wrow, c) = Count - 1
                Exit For
            End If
        Next c    '該当月の指定
    End With
End Sub
 

U3ViIOaKveWHuigpCiflk4HlkI3lkbzjgbPlh7rjgZcKICAgIERpbSBpCiAgICBGb3IgaSA9IDMgVG8gMjIKICAgICAgICBDYWxsIOaMh+WumuWTgeWQjeaKveWHuihXb3Jrc2hlZXRzKCJTaGVldDIiKS5DZWxscyhpLCAiQiIpLlZhbHVlLCBpKQogICAgTmV4dCBpCkVuZCBTdWIKCgpTdWIg5oyH5a6a5ZOB5ZCN5oq95Ye6KEJ5VmFsIGhpbm1laSBBcyBTdHJpbmcsIEJ5VmFsIHdyb3cgQXMgTG9uZykKJ+OCquODvOODiOODleOCo+ODq+OCv+ODvOOBp+aKveWHugogICAgRGltIENvdW50IEFzIExvbmcKICAgIFdpdGggV29ya3NoZWV0cygiU2hlZXQzIikKICAgICAgICAn5oq95Ye65p2h5Lu2MQogICAgICAgIC5SYW5nZSgiQjQiKS5BdXRvRmlsdGVyIDYsIEFycmF5KCLkupTlgIvlhaXjgooiLCAiMTDlgIvlhaXjgooiLCAi44Kx44O844K5ICIsICIx5YCLIiksIHhsRmlsdGVyVmFsdWVzCiAgICAgICAgJ+aKveWHuuadoeS7tjIKICAgICAgICAuUmFuZ2UoIkI0IikuQXV0b0ZpbHRlciAyLCBoaW5tZWkKICAgICAgICBDb3VudCA9IFdvcmtzaGVldEZ1bmN0aW9uLlN1YnRvdGFsKDMsIC5SYW5nZSgiQjQiKS5DdXJyZW50UmVnaW9uLkNvbHVtbnMoMSkpCiAgICBFbmQgV2l0aAoKICAgICflh6bnkIbmnIjjgbjou6LoqJgKICAgIERpbSBjIEFzIExvbmcKICAgIFdpdGggV29ya3NoZWV0cygiU2hlZXQyIikKICAgICAgICBGb3IgYyA9IDMgVG8gMTQgICAgJ++8lOaciO+9njPmnIjjga7nr4Tlm7IKICAgICAgICAgICAgSWYgLkNlbGxzKDIsIGMpLlZhbHVlID0gV29ya3NoZWV0cygiU2hlZXQxIikuUmFuZ2UoIkEyIikuVmFsdWUgVGhlbgogICAgICAgICAgICAgICAgLkNlbGxzKHdyb3csIGMpID0gQ291bnQgLSAxCiAgICAgICAgICAgICAgICBFeGl0IEZvcgogICAgICAgICAgICBFbmQgSWYKICAgICAgICBOZXh0IGMgICAgJ+ipsuW9k+aciOOBruaMh+WumgogICAgRW5kIFdpdGgKRW5kIFN1Ygo=