複数セルの比較は、可能でしょうか？

質問

教えて頂ければ助かります。
A1,B1,C1,D1にそれぞれ値が入っており、どれか1つでも同じ値があれば、E1のセルに○、一つもなければ、×を表示させたいのですが、お分かりになる方がいらっしゃればよろしくお願いします。

回答No.3

tom04

こんにちは！

VBAになってしまいますが、一例です。
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
データは1行目からあるとします。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, j As Long, k As Long, str As String, myFlg, myArray

Range("E:E").ClearContents
On Error Resume Next
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If WorksheetFunction.CountA(Rows(i)) > 1 Then
str = ""
myFlg = False
For j = 1 To 4
If Cells(i, j) <> "" Then
str = str & Cells(i, j) & ","
End If
Next j
myArray = Split(Left(str, Len(str) - 1), ",")
For k = 0 To UBound(myArray)
If WorksheetFunction.CountIf(Range(Cells(i, "A"), Cells(i, "D")), myArray(k)) > 1 Then
myFlg = True
Exit For
End If
Next k
If myFlg = True Then
Cells(i, "E") = "○"
Else
Cells(i, "E") = "×"
End If
End If
Next i
End Sub 'この行まで

※　文字列データでも対応できますが、データが数値であればNo.1さんの方が簡単だと思います。
※　関数でないのでデータ変更があるたびにマクロを実行する必要があります。m（_ _）m