Sub 店舗返却リスト()
Dim CSV As Workbook
Dim panel As Worksheet
Dim deetaa As Range
tenpo = Array("1F GUARDAROBA", "2F CAFE", "3F STORE", "5F 家具ショールーム") _
hanbai = Array("楽天", "自社サイト", "BUYMA", "AMAZON", "eBay", "ポンパレ", "11Concept", "ORIGAMI", "ヤフPeppiNo") '"ヤフオク1円", "ヤフオク定額"
Application.ScreenUpdating = False
Set CSV = Workbooks.Open("C:\#\Database\返却分.CSV")
Set panel = CSV.Sheets("返却分")
Set deetaa = panel.UsedRange
Range("A2").Select
ActiveWindow.FreezePanes = True
With deetaa
.AutoFilter Field:=4, Criteria1:=tenpo, Operator:=xlFilterValues
.AutoFilter Field:=5, Criteria1:=hanbai, Operator:=xlFilterValues
.AutoFilter Field:=6, Criteria1:="<>*見?からなかった*", Operator:=xlAnd, Criteria2:="<>*発送済み*"
.Columns("A:G").EntireColumn.AutoFit
.Columns("H").ColumnWidth = 29
.SpecialCells(xlCellTypeVisible).Copy
End With