Ersetzen Sie Zeichen mit Akzent durch reguläre Zeichen durch VBA

Ersetzen Sie Akzentzeichen durch reguläre Zeichen durch Kutools for Excel

Für Benutzer, die Erfahrung mit Microsoft Excel haben, ist die Verwendung des VBA-Makros eine einfache Möglichkeit, diese komplizierte Arbeit zu erledigen.

1. Halten Sie die Andere + F11 Tasten in Excel, und es öffnet sich die Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modulfenster.

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. Gehen Sie dann zu einer leeren Zelle und fügen Sie die Formel in eine Zelle ein: = CheckStringCHAR (InString)Zum Beispiel = CheckStringCHAR ("ù"), oder = CheckStringCHAR (A2).

Anmerkungen:
(1) Ihr Microsoft Visual Basic erkennt möglicherweise überhaupt keine Zeichen mit Akzent, wenn es Unicode nicht unterstützt. Wenn Sie beispielsweise das "š" in Visual Basic einfügen, wird möglicherweise "?" In diesem Fall ist dieses Makro nicht verfügbar.
(2) Akzentzeichen in den Zeichenfolgen der ausgewählten Zelle werden nicht direkt ersetzt.

Die Verwendung des VBA-Makros erfordert zu viele Fähigkeiten und Kenntnisse. Mit der folgenden Methode können Sie mit nur wenigen Klicks einfacher arbeiten. Mit dem Tool "Akzentzeichen ersetzen" von Kutools for Excel können Sie alle Arten von Akzentzeichen problemlos durch reguläre Zeichen gleichzeitig ersetzen.

1. Wählen Sie den Bereich aus, in dem Sie alle Zeichen mit Akzent ersetzen möchten.

2. Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Kutoolen > Text > Akzentzeichen ersetzen…, Siehe Screenshot:

3. In Akzentzeichen ersetzen Klicken Sie im Dialogfeld auf die Schaltfläche Wählen Sie alle Klicken Sie auf die Schaltfläche, um alle Ersetzungsregeln auszuwählen, und klicken Sie auf die Schaltfläche OK, um alle Zeichen mit Akzent zu ersetzen. siehe Screenshot:

Notizen:
(1) Wenn Sie keine bestimmten Zeichen mit Akzent wünschen, können Sie auf klicken Regel hinzufügen Klicken Sie auf die Schaltfläche, um Ihre eigenen Regeln in das Listenfeld über dem Dialogfeld "Akzentzeichen ersetzen" einzufügen.
(2) Sie können neue Ersetzungsregeln im Dialogfeld Akzentzeichen ersetzen anpassen.

Jetzt werden alle Zeichen mit Akzent in Zeichenfolgen des ausgewählten Bereichs sofort in reguläre Zeichen konvertiert. Siehe Screenshot:

Das Akzentzeichen ersetzen Die Funktion von Kutools für Excel kann problemlos alle Arten von Zeichen mit Akzent durch reguläre Zeichen in der gesamten Arbeitsmappe ersetzen. Haben Sie eine kostenlose Testversion!