조건에 따라 셀 값 데이터 찾기
엑셀에서 데이터 매칭하려면 IF문이 엄청 길어지곤 해서 짜증났는데,
VBA로 하니 의외로 편하다.
아래 그림에서
data2는 raw에 있는 값이 data1에 있을때, same 텍스트 반환,
data3는 ref에 있는 값이 data1에 있을때, same 텍스트를 반환한다.
[코드샘플]
Sub data_same()
Set raw = Range("b4:b16")
Set data_1 = Range("d4:d16")
Set ref = Range("h4")
For Each x1 In raw
For Each x2 In data_1
If x1 = x2 Then
x2.Offset(0, 1).Value = "same"
End If
Next
Next
For Each x2 In data_1
If x2 = ref.Value Then
x2.Offset(0, 2).Value = "same"
End If
Next
End Sub
