|
'--------------------------
' 사용자 정의 함수
--------------------------
' searchPalletNo- 찾으려는 값
' targetRange - 대상 범위
' 예
' =concate(D2,CJ사!$D$2:$E$22)
Function concate(searchPalletNo As String, targetRange As Range) As String
Dim values As Variant
values = targetRange.Value
Application.Volatile
Dim sTemp As String: sTemp = ""
'searchPalletNo = "P0002"
For r = 1 To UBound(values, 1)
If values(r, 1) = searchPalletNo Then
If sTemp = "" Then ' 맨 처음 매칭될 때
sTemp = values(r, 2)
Else
sTemp = sTemp & "," & values(r, 2)
End If
End If
Next r
concate = sTemp
End Function
|
|