如何在 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 的替换重音字符功能可以轻松地在整个工作簿中将所有种类的重音字符替换为常规字符。免费试用！