用VBA將重音字符替換為常規字符

用Kutools for Excel用普通字符替換重音字符

對於熟悉Microsoft Excel的用戶，使用VBA宏是處理此復雜工作的簡便方法。

1. 按住 其他 + 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. 點擊 庫工具 > 文本 > 替換重音字符…，請參見屏幕截圖：

3. In 替換重音字符 對話框中，單擊 全選 按鈕選擇所有替換規則，然後單擊確定按鈕替換所有重音字符。 看截圖：

筆記:
（1）如果沒有想要的特定重音字符，則可以單擊 添加規則 按鈕，將您自己的規則添加到“替換重音字符”對話框上方的列錶框中。
（2）您可以在“替換重音字符”對話框中自定義新的替換規則。

現在，您將立即將選定範圍內的所有重音字符轉換為常規字符。 看截圖：

替換重音字符 Kutools for Excel的功能可以輕鬆地在整個工作簿中用常規字符替換各種重音字符。 免費試用！