☰

Excel: 악센트를 무시하고 고유 셀 목록 만들기

tag-icon • tag-icon microsoft-excel
Excel: 악센트를 무시하고 고유 셀 목록 만들기

Excel에 그리스어 단어 목록이 있습니다. 셀 중 일부는 정확히 중복되고, 다른 셀은 정확히 동일한 단어이지만 액센트가 다릅니다(실제로 일부 단어에는 액센트가 있고 일부는 완전히 액센트가 없습니다). 악센트를 무시하고 고유한 단어만 나열하여 목록을 만들고 싶습니다.

이것이 가능한가?

답변1

악센트 문자/단어를 악센트 없는 문자(댓글로 요청해주신대로) 그런 다음 고유한 문자/단어 목록을 추출합니다.

여기에 이미지 설명을 입력하세요

이 VBA 코드를 필수 워크시트와 함께 모듈로 삽입하십시오. 그러면 악센트가 있는 단어/문자가 악센트가 없는 값으로 변환됩니다.

Function ChangeAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
ChangeAccent = thestring
End Function

기능을 사용하는 방법:

A열에 악센트 단어 목록이 있다고 가정합니다.

따라서 셀 B2에 이 수식을 작성하고 Enter 키를 눌러 완료한 후 입력하세요.

=ChangeAccent(A2)

셀 C2에 이 배열 수식을 작성하고 Ctrl+Shift+Enter를 누른 다음 채워 넣으세요.

{=IFERROR(INDEX($B$2:$B$11, MATCH(0, COUNTIF($C$1:C1, $B$2:$B$11), 0)),"")}

스크린샷을 통해 보여드린 것처럼 악센트가 없는 단어의 고유한 목록이 표시됩니다.

관련 정보