셀 값이 배열에 있는지 비교 chatgpt

Sub CheckValue()
    Dim arr As Variant
    Dim searchValue As Variant
    Dim cellValue As Variant
    Dim found As Boolean
    
    ' 배열 선언 및 초기화
    arr = Array("a", "b", "c", "d")
    
    ' 검색할 값을 셀 A1에서 가져오기
    searchValue = Range("A1").Value
    
    ' 배열에서 검색
    For Each cellValue In arr
        If cellValue = searchValue Then
            found = True
            Exit For
        End If
    Next
    
    ' 결과 표시
    If found Then
        Range("B1").Value = "OK"
    Else
        Range("B1").Value = "NO"
    End If
End Sub