|
'-----------------------------
사용자 정의 함수
'-----------------------------
'---------------------------------------------------------------
Function extractX(rngX As Range, rngY As Range) As String
'---------------------------------------------------------------
Dim sValue As String: sValue = rngX.Value
Dim sSearch As String: sSearch = rngY.Value
If sSearch = "" Then extractX = "": Exit Function
Dim sTemp As String: sTemp = ""
For i = 1 To VBA.Len(sValue)
If InStr(1, sSearch, Mid(sValue, i, 1)) >= 1 Then
sTemp = sTemp & Mid(sValue, i, 1)
End If
Next i
extractX = sTemp
End Function
|
|