| 
    
     |  | こんにちは。かみちゃん です。 
 >>>「Z仕様」と記述された行のフォント色が5になるというような理解を
 >>>しましたが、全てB列がフォント色5に変換されてしまいますが…
 >>
 >>そのとおりです。
 >????
 
 「Z仕様」(全角)という文字列がなければ、1を返せという数式が設定されていますので、「Z仕様」では、1が返ってしまいます。
 さらに、数値が入っているセルを選択して、そのセルが含まれている行は非表示
 とするというのがコードの機能概要です。
 したがって、「全部消えた(非表示になった)」というのは、「Z仕様」(全角)
 という文字列が入っている行は、一行もないということです。
 
 >With Range("B6", Range("B65536").End(xlUp)).Offset(, 254)
 >   .Formula = "=IF(ISERR(FIND(""Z仕様"",$B6)),1,"""")"
 >   .SpecialCells(6, 1).Offset(, -254).interir.ColorIndex = 43
 >    '>>SpecialCellsは何を示すのでしょう?意味が分かりません。
 
 .SpecialCells(6,〜
 の意味を何か間違えていませんか?「6」とはなんですか?
 SpecialCells メソッドのヘルプと、以下の私のコメントを見てみてください。
 http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=31588;id=excel
 
 私も、最近、Keinさんが書かれたこの手の処理方法を勉強させていただき、なるほどなぁと感心した次第です。
 
 |  |