Findを使ったらFindNextで次々と検索できる。以前見つかったセルと同じセルが見つかったりしないかだけはチェック必要。 Sub Sample6() Dim FoundCell As Range, FirstCell As Range, Target As Range Set FoundCell = Cells.Find(What:="田中") If FoundCel…

忍者AdMaxというサービスを使います。同様のサービスにkauliなどもありますので、お好きなものを用いればよいでしょう。ネタ元 http://blog2.k05.biz/2011/12/google.html