如何在 Excel 中用常规字符替换重音字符?

ms excelmicrosoft technologiesadvanced excel function

变音符号，通常称为重音字符，在各种语言中经常用于表示特定的语音或语言细微差别。为了简化数据处理和分析，有时您可能需要删除某些重音符号并将其转换为相应的常规字符。本教程将逐步指导您在 Microsoft Excel 中执行此操作。

在本课程结束时，您将深入了解如何使用内置 Excel 函数、公式和其他实用方法将重音字符替换为常规字符。让我们开始学习如何消除这些恼人的重音符号，使您的 Excel 数据更加一致且更易于访问!

用常规字符替换重音字符

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们通过一个简单的过程来学习如何在 Excel 中用常规字符替换重音字符。

步骤 1

假设有一张 Excel 工作表，其中包含类似下图所示的重音字符列表。

首先，右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。

右键单击 >"查看代码"。

步骤 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