|
안녕하세요. 엑셀 통합문서 버전을 사용중입니다.
키워드를 설정한 후, 키워드 앞마다 특정 기호를 출력시키는 수식이 궁금합니다 .
감사합니다. 좋은 하루 되세요 .
==============[너굴너굴님 글에 대한 답변입니다]==============
첨부화일 참고하세요...
Function SpecialChar(rKey As Range, sSoc As String, sSign As String)
Dim vKeys, vX
Dim iPos As Integer
Application.Volatile
vKeys = Split(rKey, ",")
For Each vX In vKeys
iPos = InStr(sSoc, vX)
If iPos > 0 Then
If iPos = 1 Then '첫위치일 경우
iPos = InStr(sSoc, vX & " ")
If iPos > 0 Then
sSoc = Replace(sSoc, vX, sSign & vX)
End If
ElseIf (iPos + Len(vX) - 1) = Len(sSoc) Then '마지막 위치일 경우
iPos = InStr(sSoc, " " & vX)
If iPos > 0 Then
sSoc = Replace(sSoc, " " & vX, " " & sSign & vX)
End If
Else
iPos = InStr(sSoc, " " & vX & " ")
If iPos > 0 Then
sSoc = Replace(sSoc, " " & vX & " ", " " & sSign & vX & " ")
End If
End If
End If
Next
SpecialChar = sSoc
End Function
|
|