☰

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)),"")}

正如我透過螢幕截圖所示，您將獲得唯一的非重音單字清單。

相關內容