☰

Excel: Erstellen Sie eine Liste eindeutiger Zellen und ignorieren Sie Akzente

tag-icon • tag-icon microsoft-excel
Excel: Erstellen Sie eine Liste eindeutiger Zellen und ignorieren Sie Akzente

Ich habe eine Liste griechischer Wörter in Excel. Einige der Zellen sind exakte Duplikate, andere enthalten genau dasselbe Wort, jedoch mit unterschiedlicher Betonung (in der Praxis sind einige Wörter betont und andere völlig unbetont). Ich möchte eine Liste nur der eindeutigen Wörter erstellen und dabei die Betonung außer Acht lassen.

Ist das möglich?

Antwort1

Ich möchte Ihnen die Methode zeigen, mit der Sie akzentuierte Buchstaben/Wörter in nicht akzentuierte Buchstaben/Wörter umwandeln können (wie Sie in Ihren Kommentaren gefordert haben) und extrahieren Sie dann die Liste der eindeutigen Zeichen/Wörter.

Bildbeschreibung hier eingeben

Fügen Sie diesen VBA-Code als Modul in das gewünschte Arbeitsblatt ein. Dadurch werden Wörter/Zeichen mit Akzent in Werte ohne Akzent umgewandelt.

Function ChangeAccent(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
ChangeAccent = thestring
End Function

So verwenden Sie die Funktion:

Ich gehe davon aus, dass Sie in Spalte A eine Liste mit akzentuierten Wörtern haben.

Tragen Sie also diese Formel in Zelle B2 ein, beenden Sie mit Enter und füllen Sie sie aus:

=ChangeAccent(A2)

Schreiben Sie diese Array-Formel in Zelle C2, beenden Sie mit Strg+Umschalt+Eingabe und füllen Sie sie anschließend aus.

{=IFERROR(INDEX($B$2:$B$11, MATCH(0, COUNTIF($C$1:C1, $B$2:$B$11), 0)),"")}

Sie erhalten eine einzigartige Liste mit Wörtern ohne Akzent, wie ich im Screenshot gezeigt habe.

verwandte Informationen