Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1301 / 76734

←次へ　｜　前へ→


	【81085】Re:VBAで重複データ

γ - 19/8/21(水) 7:15 -


	引用なし

	パスワード

こんな書き方もあります。dictionaryを利用する方法です。 Sub test() 　　Dim sh As Worksheet, c As Range 　　Dim dic As Object 　　Set dic = CreateObject("Scripting.Dictionary") 　　For Each sh In Sheets(Array("Sheet1", "Sheet2", "Sheet3")) 　　　　For Each c In sh.Range("A1:G100") 　　　　　　dic(c.Value) = dic(c.Value) + 1 　　　　Next 　　Next 　　For Each sh In Sheets(Array("Sheet1", "Sheet2", "Sheet3")) 　　　　For Each c In sh.Range("A1:G100") 　　　　　　If dic(c.Value) > 1 Then c.Interior.ColorIndex = 40 　　　　Next 　　Next End Sub ちなみに、CountIfによる方法も十分速い（0.6秒台）ですが、上記は0.1秒台でした。データ量にも依存するので、一概に言えないかもしれませんが、一応参考まで。