--------------------------------------------------------------------------------
좋아요/구독 눌러주세요. 큰 힘이 됩니다.
--------------------------------------------------------------------------------
질문 사항이 있으시면 [email protected]으로 해 주세요.
--------------------------
source code:
--------------------------
Function ex_words(str_ As String)
Dim v As String
Dim result As String: result = ""
For i = 1 To Len(str_)
v = Mid(str_, i, 1)
If v Like "[가-힣, ]" Then result = result & v
Next i
ex_words = result
End Function