두가지 조건을 만족하는 값 나열

두가지 조건(동, 반)을 만족하는 값을 모두 나열해주는 사용자정의 함수

오랜만에 하니 헷갈리는구먼 ㅋ

Option Explicit
Function Whoisthis(CriteriaRange As Range, _
                    SearchValueDong As Integer, _
                    SearchValueBan As Integer, _
                    Optional DelimiterChar As String = ",") As Variant
 
    Dim rnG As Range
    Dim vName() As String
    Dim i As Integer
        
    If CriteriaRange.Columns.Count > 1 Then Exit Function
        
    For Each rnG In CriteriaRange
        With rnG
            If .Value2 = SearchValueDong Then
                If .Offset(, 1) = SearchValueBan Then
                    ReDim Preserve vName(i)
                    vName(i) = .Offset(, -1)
                    i = i + 1
                End If
            End If
        End With
    Next rnG
        
    Whoisthis = Join(vName, DelimiterChar)
    
End Function

통합 문서1.xlsm