如何在 Excel 中將重音字符替換為一般字元？

使用 VBA 將重音字符替換為一般字元

使用 Kutools for Excel 將重音字符替換為一般字元

對於熟悉 Microsoft Excel 的使用者而言，運用 VBA 巨集是處理這項複雜任務的簡便方式。

1. 在 Excel 中按住 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入> 模組，並將下列巨集貼上至模組視窗中。

Function StripAccent(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
StripAccent = thestring
End Function

3. 接著移至空白儲存格，並輸入公式：=CheckStringCHAR(InString)，例如 =CheckStringCHAR("ù")或 =CheckStringCHAR(A2)。

注意事項：
（1）若您的 Microsoft Visual Basic 不支援 Unicode，將可能完全無法辨識重音字符。例如，在 Visual Basic 中貼上「š」時，可能會顯示為「？」。若發生此情況，此巨集將無法使用。
（2）此方法不會直接取代所選儲存格字串中的重音字符。

使用 VBA 巨集需要相當多的技術與知識，而以下方法僅需點擊幾下，就能讓您輕鬆完成工作！Kutools for Excel 的「取代重音字符」工具，可一次輕鬆將所有類型的重音字符轉換為一般字元。

1. 選取您要將所有重音字符進行取代的範圍。

2. 按一下 Kutools> 文字> 取代重音字符……，請參閱下方截圖：

3. 在取代重音字符對話方塊中，點擊全選按鈕以選取所有取代規則，再點擊「確定」即可完成所有重音字符的取代。操作畫面請參閱下方截圖：

注意事項：
（1）若清單中缺少您所需的特定重音字符，可點擊添加規則按鈕，將自訂規則新增至上方「取代重音字符」對話方塊的清單中。
（2）您也可在「取代重音字符」對話方塊中自行設定新的取代規則。

現在，區域字串中所有帶重音符號的字符都會立即轉換為一般字符。請參閱截圖：

Kutools for Excel 的取代重音字符功能，可輕鬆將整個活頁簿中的所有重音字符一鍵替換為一般字元！立即免費試用！