- ベストアンサー
ＥＸＣＥｌセルの値でフィルター抽出したい
windows10,microsoft365使用の超初心者です。 Sub セルの値でオートフィルターで抽出しその行を削除したい() Range("D8").AutoFilter Field:=6, Criteria1:=Range("Ｆ4").Value, Operator:=xlAnd End Sub このコードでやっても、うまく抽出してくれません。 どうして出来ないのかわかりません。ご教示よろしくお願いいたします。 セルＦ4は、表示は「６月２０日」数値は４４００２です。 セルＤ８は、表示は「令和２年６月分」で数値は４４００２です。
- aitaine
- お礼率43% (170/393)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
8行目以降のD列からF4の値でフィルターをかけるのでしたら Range("D8").AutoFilter Field:=1, Criteria1:=Format(Range("F4").Value, "ggge年m月分"), Operator:=xlAnd で試してみてください。
お礼
ありがとうございます。完璧にできました。嬉しいです。