[ 문자열 비교하는 사용자 함수 ] 예제 입니다.

                                                  

안녕하세요. 오즈맨 입니다.  시트명은 Sheet1 입니다. [ 문자열 비교하는 사용자 함수 ] 예제 입니다.
1  2  3  4  5  6  7  8  9  10	B C D E 반복암기장     비교결과 단어 답안 뜻    aunt  고모 이모 이모  고모 같음  autumn    가을 <다름>  baby    아기 <다름>  banana    바나나 <다름>  band  끈 악단 끈 악단 같음   부제 설명 부제,설명 같음   부제 설명1 부제,설명2 <다름>       같음

Sheet1 시트 에 사용한 수식 입니다. by MicroSoft Excel v 2003    $ 가 있는 수식은 절대(혼합)참조로 셀 주소를 고정합니다. 참조하세요!!
No	셀주소	왼쪽의 셀에 수식을 넣으면 오른쪽 결과가 나옵니다.	결과	비고
1	E3	=StrComp(C3,D3)	같음
2		E3  셀의 수식을 여기에 복사하세요 -→ E3:E10
보시는 내용은 위의 표에 값이, 아래의 표에는 해당 셀의 수식이 있습니다.       첨부파일을 참조하시거나, 원하는 부분을 시트(셀)에 붙여 넣으세요.      도움이 되시기를 바랍니다. 수식에 사용자 정의 함수가 있습니다. 다른 파일에서는 안 될 수 있습니다.   주) 사용자 정의 함수를 많은 셀에 사용하면 버벅거릴 수 있습니다. 사용자 정의 함수를 사용했던 영역은 그 영역을 복사한 다음 편집/메뉴에서 선택하여 붙여넣기를 선택, 값으로 변환하는 것이 좋습니다.사용자 함수 만들기 입니다. [ 클릭 ]
예제에서는 "고모 이모" 와 "이모 고모" 를 같은 문자로 판단합니다.

Option Explicit
Function StrComp(ChkString_1 As String, ChkString_2 As String, Optional CheckString As String = " ")' === 모듈 시작
' CodeBy [ 오즈맨 ] , Date : 2009-03-29
Dim i As Double, cnt As Double
Dim HisStr1    As Variant
Dim HisStr2    As Variant
Dim MyStr1     As Variant
Dim MyStr2     As Variant
Dim ShrStr     As String
     ShrStr = ","
cnt = Len(ChkString_1) + Len(ChkString_2)
If CheckString = " " Then
     HisStr1 = Trim(ChkString_1)
     HisStr2 = Trim(ChkString_2)
Else
     HisStr1 = Trim(Replace(ChkString_1, CheckString, " "))
     HisStr2 = Trim(Replace(ChkString_2, CheckString, " "))
End If
     HisStr1 = Trim(Replace(HisStr1, ShrStr, " "))
     HisStr2 = Trim(Replace(HisStr2, ShrStr, " "))
For i = 1 To cnt
     HisStr1 = Replace(HisStr1, "  ", " ")
     HisStr2 = Replace(HisStr2, "  ", " ")
Next
     MyStr1 = Split(HisStr1)
     MyStr2 = Split(HisStr2)
If UBound(MyStr1) <> UBound(MyStr2) Then
     StrComp = "<다름>"
     Exit Function
End If
Dim StrNew As New Collection
cnt = UBound(MyStr1)
On Error Resume Next
For i = 0 To cnt
     StrNew.Add i, CStr(MyStr1(i))
Next
For i = 0 To cnt
     Err.Clear
     StrNew.Add i, CStr(MyStr2(i))
     If Err.Number = 0 Then
          StrComp = "<다름>"
          Exit Function
     End If
Next
     StrComp = "같음"
End Function         ' ___ 모듈 종료

파일 다운로드

StringCompareSample.xls