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