|
▼ichinose さん:
お世話になっております。
ichinoseさん、ご返答ありがとうございます。
私の質問内容が悪かったです。
同じ”値”が入っているかどうかという事で、
投稿させてもらっていましたが、これには文字列も比較対照に
入っています。
例えば”TEST"という文字と、"TEST"だと、同じ値。
"TEST”という文字と" TEST"だと、後者にはスペースが入っているので
違う値。という風に出したいです。
>▼なっちょめ さん:
>こんばんは。
>
>
>>お世話になります。
>>初心者の質問でご迷惑をかけるかもしれませんが、
>>宜しくお願いします。
>>
>>選択しているセルの中で、全く同じ”値”が入っているか
>>どうか調べるにはどのように書けばいいのですか?
>>
>>Range("B1:B5,B10:B11").Selection
>>↑
>>例えば、この範囲の中で同じ値が入っているか調べたいのですが、
>>どのように書いたらいいのでしょうか?
>>
>>質問内容に不備があればご指摘下さい。
>>
>>宜しくお願いいたします。
>
>
>Sub sample()
> Dim crng As Range
> Dim kk As Variant
> With CreateObject("scripting.dictionary")
> For Each crng In Range("b1:b5,B10:B11")
> If Not .Exists(CStr(crng.Value)) Then
> Set .Item(CStr(crng.Value)) = crng
> Else
> Set .Item(CStr(crng.Value)) = Application.Union(.Item(CStr(crng.Value)), crng)
> End If
> Next
> For Each kk In .Keys
> MsgBox kk & " という値で " & .Item(kk).Address & " が同じ"
> Next
> End With
>End Sub
>
>
>これで試してみてください
|
|