[엑셀 실무_UDF](findnext error 해결)다중 조건을 만족하는 값 가져오기

--------------------------------------------------------------------------------
좋아요/구독 눌러주세요. 큰 힘이 됩니다.
--------------------------------------------------------------------------------
질문 사항이 있으시면 [email protected]으로 해 주세요.

File Link: https://drive.google.com/open?id=1ZPPTB65PbTE-Px2mKPv3zBHSjmR9cHRx

'---------------------------------------------------------------------------------------------
Function myConcat(rngX As Range, rngC1 As Range, rngC2 As Range) As String
'---------------------------------------------------------------------------------------------


Dim col As New Collection
Dim rngF As Range
Dim add As String, sValue As String
Dim i As Long


Set rngF = rngX.Find(rngC1.Value, SearchOrder:=xlByRows, After:=rngX.Cells(1, 1))

If Not rngF Is Nothing Then
add = rngF.Address
' add B4
'-----------------------------------------------------
Do
'-----------------------------------------------------
If rngF.Offset(, 1).Value = rngC2.Value Then
'On Error Resume Next
col.add rngF.Offset(, 2)
'On Error GoTo 0
End If

Set rngF = rngX.Find(rngC1.Value, After:=rngF)

'-----------------------------------------------------------------------
Loop While not(rngF.Address = add) And Not rngF Is Nothing
'-----------------------------------------------------------------------
End If

For i = 1 To col.Count
If i = 1 Then
sValue = col.Item(i)
Else
sValue = sValue & "," & col.Item(i)
End If
Next i

myConcat = sValue

End Function

#UDF
#다중조건_만족하는_값_가져오기