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