| 
    
     |  | ▼kkk さん: >ご回答いただき大変ありがとうございます。
 >恐縮ながら自己解決してしまいました。。。
 それはよかったですね。
 
 恐縮でもなんでもないです。
 自己解決してもらうのが、回答者にとっての目標です。
 解決するのは自分なのはあたりまえ。
 
 ポイントは、
 .Range(.Cells(1, "A"), .Cells(RowNum,"A")).AutoFilter _
 Field:=tmpF, Criteria1:=">=" & width1, _
 Operator:=xlAnd, Criteria2:="<=" & width2
 の部分だと思います。
 あなたが詰まっていたこの部分の原型が、
 マクロ記録で簡単に得られるということを、私は申し上げた。
 
 マクロ記録で得られる、4とか6のところをwidth1,width2で置き換えることは
 常識的に思いつきますが、
 Autofilterの文法に沿ったコードの原型を得るのは思いつけるものではありません。
 
 もちろん、ヘルプをみて一から書き下す方法もありますが、
 マクロ記録の利用は簡便です。
 マクロ記録の利用は、中上級者でも使う手法だと思います。
 よく研究されることを推奨します。
 
 マクロ記録の使い方は、どんなExcelVBA関係の本にも必ず書いてあります。
 よく確認してください。
 
 
 |  |