質問: 0 and .cells(i, "m") <> "" then msgbox i & "行" end if end if next i end with end sub これに少し付け加えて、 l列に『等』が2回出てきたら、m列は『トウ』を2回出てこないとmsgboxを出すようにしたいのですが、どのようにすればよいでしょうか? 例えば l列7行目 柑橘類等や野菜類等 m列7行目 カンキツルイトイヤヤサイルイトウ ※ ひとつ目の『等』のヨミが『トイ』となっていますが、上記のマクロですと ヨミの最後の『トウ』に反応してスルーしてしまいます。 完璧なヨミチェックはマクロでは無理かと思いますが、このくらいはスルーしないマクロを何とかゲットしたいです。。。
回答: private sub 等_click() dim i as long with activesheet for i = 5 to .cells(rows.count, "l").end(xlup).row '『i』はd列の5行目から文字の入っている最後の行をいう(行の範囲) if instr(.cells(i, "l"), "等") > 0 then if len(.cells(i, "l")) - len(application.substitute(.cells(i, "l"), "等", "")) <> _ (len(.cells(i, "m")) - len(application.substitute(.cells(i, "m"), "トウ", ""))) / 2 then msgbox i & "行" end if end if next i end with end sub でどうでしょう。