質問: ダブリ数字の有無の確認にのマクロについて 恐れ入ります、エクセルのマクロで質問があります。 ダブリ数字の有無の確認にのマクロについてです。 下記のように数字の羅列が有ります。 上の番号から順番に検索して列の中にダブった数字(2つ以上)が無いかを確認するマクロはどのように作成すればいいでしょうか? 下記の場合、238075と238220が2以上つあるので、そこが緑色になるようにしたいです。 宜しくお願い致します。 238075 238096 238220 92528 237702 92378 237662 238077 238063 238065 238208 92523 238205 238253 237702 238220 237708 238075
回答: #2です。 おそらく、前回の質問の続きですよね。 http://oshiete1.goo.ne.jp/qa5798289.html 改めて、2パターン作ってみました。 test04: #2のコードを素直に組み込むんだものです。 理解しやすい反面、2度ループを回すので無駄です。 test05: 前回の質問の処理の中で、だぶりを判定し色づけします。 sub test05() dim ws1 as worksheet dim ws2 as worksheet dim myrange1 as range dim myrange2 as range dim myunionrange as range dim c1 as range dim c2 as range dim myct as long set ws1 = worksheets("sheet1") set ws2 = worksheets("sheet2") set myrange1 = ws1.range("a1", ws1.cells(rows.count, "a").end(xlup)) set myrange2 = ws2.range("a1", ws2.cells(rows.count, "a").end(xlup)) for each c1 in myrange1 myct = 0 set myunionrange = nothing for each c2 in myrange2 if c2.value = c1.value then if c2.offset(, 1).value = "" then c1.offset(, 1).interior.colorindex = 3 else c1.offset(, 1).value = c2.offset(, 1).value end if if myunionrange is nothing then set myunionrange = c2 else set myunionrange = union(c2, myunionrange) end if myct = myct + 1 end if next c2 if myct > 1 then c1.offset(, 1).interior.colorindex = 10 myunionrange.interior.colorindex = 10 end if next c1 set ws1 = nothing set ws2 = nothing set myrange1 = nothing set myrange2 = nothing set myunionrange = nothing end sub '--------------------------------------------------------- sub test04() dim ws1 as worksheet dim ws2 as worksheet dim myrange1 as range dim myrange2 as range dim c1 as range dim c2 as range dim myct as long set ws1 = worksheets("sheet1") set ws2 = worksheets("sheet2") set myrange1 = ws1.range("a1", ws1.cells(rows.count, "a").end(xlup)) set myrange2 = ws2.range("a1", ws2.cells(rows.count, "a").end(xlup)) for each c1 in myrange1 myct = 0 for each c2 in myrange2 if c2.value = c1.value then if c2.offset(, 1).value = "" then c1.offset(, 1).interior.colorindex = 3 else c1.offset(, 1).value = c2.offset(, 1).value end if myct = myct + 1 end if next c2 if myct > 1 then c1.offset(, 1).interior.colorindex = 10 next c1 for each c2 in myrange2 if application.worksheetfunction.countif(myrange2, c2.value) > 1 then c2.interior.colorindex = 10 end if next c2 set ws1 = nothing set ws2 = nothing set myrange1 = nothing set myrange2 = nothing end sub