Excel VBA質問箱 IV

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

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


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

51288 / 76732

←次へ　｜　前へ→


	【30315】Re:EXCEL重複チェック

優哉 - 05/10/25(火) 9:58 -


	引用なし

	パスワード

ichinoseさん、UFさん　

回答有難うございます。
ExcelVBAについては初心者なもので・・・
これからいろいろ覚えていきますので今後とも宜しくお願いします。
早速ですが、UFさん　初心者の私にとってはかなり簡易的で
分かりやすいプログラムでして参考になりました。
一応やりたい事も実現できました。

今後の為にいくつか教えてください。

このプログラムは、MyRにA1～A100の値を代入し
A1からループでまわして一点ずつ重複の確認をする
ようなプログラムでしょうか？
R.Valueの用途及びSet MyR = Nothingの役割
のあたりを詳しく教えていただけると助かるのですが・・・。
宜しくお願いいたします。

▼UF さん：
>▼優哉さん：
>このようなことでは？如何です。
>
>Sub 重複データチェック()　'色付けとメッセージ
>
>Dim MyR As Range, R As Range
>Set MyR = Range("A1:A100")
>For Each R In MyR
>　　If Application.CountIf(MyR, R.Value) > 1 Then
>　　　 'R.Interior.ColorIndex = 34　'色つけ
>　　　 MsgBox "重複データがあります"　'メッセージ
>　　End If
>Next
>Set MyR = Nothing
>
>End Sub

1 hits

▼

【30247】EXCEL重複チェック 優哉 05/10/24(月) 7:14