Wenn Ihre Emojis Shapes sind, führen Sie in Excel mit VBA dieses einfache Makro aus:
Sub dural() Dim sh As Shape If ActiveSheet.Shapes.Count <> 0 Then For Each sh In ActiveSheet.Shapes sh.Delete Next End If End Sub
EDIT # 1:
Wenn die Emojis Text sind, wählen Sie eine Zelle aus und:
Sub kleanIt() Dim r As Range, v As Variant, L As Long Dim CH As String, i As Long, N As Long Set r = ActiveCell v = r.Value L = Len(v) For i = L To 1 Step -1 CH = Mid(v, i, 1) N = AscW(CH) If N < 1 Or N > 256 Then v = Replace(v, CH, "") End If Next i r.Value = v End Sub