|
▼なっちょめ さん:
こんばんは。
>お世話になります。
>初心者の質問でご迷惑をかけるかもしれませんが、
>宜しくお願いします。
>
>選択しているセルの中で、全く同じ”値”が入っているか
>どうか調べるにはどのように書けばいいのですか?
>
>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
これで試してみてください
|
|