|
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
|
|