質問: 10 end if next x next y end sub 〜ここまで〜
回答: こんばんは! わざわざvbaでなくても条件付き書式で対応できそうですが、 vbaをご希望のようなので、一例です。 sub sample1() dim c as range dim myrng as range set myrng = range("a1:e50") myrng.interior.colorindex = xlnone for each c in myrng if worksheetfunction.countif(myrng, c) > 1 then c.interior.colorindex = 10 end if next c end sub こんな感じでいけると思います。m(_ _)m