|    | 
     ▼トキノハジメ さん: 
>▼kanabun さん: 
>有難うございます。余分なコードをなくして参考コードだけにしたら 
>表が3行目だけが残って後は全部消えてしまいました 
 
「3行目だけが残って後は全部消えてしまいました」 
ということから言えることは、 
 
・フィルタはかかった。 
・が、条件にマッチする行が存在しなかった。 
 
ということです。 
A列、B列のフィルタ条件(各Criteria1)に合うデータ行が 実際に 
一つもないのか? あるいは 少なくとも一つ以上存在するけれど、コードで 
フィルタかけると抽出されないのか? 
確認してください。 
'                       ↓ ここの値を確認 
>   .AutoFilter Field:=1, Criteria1:=ws2.Range("E2").Value 
>   .AutoFilter Field:=2, Criteria1:=ws2.Range("H2").Value 
 
実際にも条件にマッチするものがなかったなら →ws2の[E2]と[H2]セルの値 
を変更する。 
実際にはA,B列条件に該当する行があるにもかかわらず、AutoFilterで 
抽出されなかったばあい → ws2の[E2]と[H2]セルの値を教えてください。 
 
ws2の[E2]と[H2]セルの値は まさか 日付じゃないですよね? 
日付ですと、Criteria1 だけではダメですけど。 
 
 | 
     
    
   |